tdinfo6.inc

Turbo Pascal 6.0编译器源码

l141c	dw	l1540,l1582,l15f3,l160d
	dw	l1614,l1681,l16c5,l1731
	dw	l1749,l1788,l17af,l17cc
	dw	l17f6,l1821,l1851,l186f

l143c	db	000h,000h,000h,000h,000h,000h,000h,000h,004h,000h,000h,001h,000h,000h,000h,000h
	db	080h,0FFh,0FFh,0FFh,07Fh,000h,000h,000h,005h,000h,000h,002h,000h,000h,000h,000h
	db	000h,080h,0FFh,0FFh,0FFh,07Fh,000h,000h,006h,000h,000h,004h,000h,000h,000h,000h
	db	000h,000h,000h,080h,0FFh,0FFh,0FFh,07Fh,008h,000h,000h,001h,000h,000h,000h,000h
	db	000h,000h,000h,000h,0FFh,000h,000h,000h,009h,000h,000h,002h,000h,000h,000h,000h
	db	000h,000h,000h,000h,0FFh,0FFh,000h,000h,00Ah,000h,000h,004h,000h,000h,000h,000h
	db	000h,000h,000h,000h,0FFh,0FFh,0FFh,0FFh,00Dh,000h,000h,004h,000h,000h,000h,000h
	db	00Fh,000h,000h,008h,000h,000h,000h,000h,010h,000h,000h,00Ah,000h,000h,000h,000h
	db	00Eh,000h,000h,006h,000h,000h,000h,000h,028h,000h,000h,001h,000h,000h,000h,000h
	db	00Ch,000h,000h,001h,000h,000h,000h,000h,000h,000h,000h,000h,0FFh,000h,000h,000h
	db	007h,000h,000h,008h,000h,000h,000h,000h,00Bh,000h,000h,008h,000h,000h,000h,000h
	db	02Bh,000h,000h,00Ah,000h,000h,000h,000h,026h,000h,000h,000h,001h,000h,000h,000h
	db	027h,000h,000h,080h,000h,000h,001h,000h,016h,000h,000h,004h,000h,000h,001h,000h
	db	003h,000h,000h,000h,001h,0FFh,000h,000h,023h,000h,000h,004h,000h,041h,001h,000h
	db	023h,000h,000h,004h,000h,045h,001h,000h,023h,000h,000h,004h,000h,001h,001h,000h
	db	023h,000h,000h,004h,000h,005h,001h,000h,023h,000h,000h,000h,000h,007h,001h,000h

l153c	dw	l03a2,l03d4
l1540	proc	near
	xor	bx,bx
	mov	cx,es:[42h]
@@1:	jcxz	@@2
	push	bx
	mov	ax,9
	cwd
	inc	cx
	mul	cx
	push	es
	call	GetMem
	call	StartBuf
	pop	es
	mov	d3cb6,di
	push	Cnt.SymbolCount
	call	cs:l153c[bx]
	pop	ax
	call	l1b6b
	pop	bx
@@2:	or	bx,bx
	jnz	@@3
	mov	cx,es:[4ah]
	inc	bx
	inc	bx
	jmp	@@1
@@3:	lea	ax,l04cf
	call	TraceIterator
	call	l194e
	ret
l1540	endp

l1582	proc	near
	mov	ax,10h
	cwd
	call	GetMem
	mov	ax,es:[42h]
	add	Cnt.SymbolCount,ax
	mov	ax,es:[44h]
	add	ax,Cnt.NameCount
	mov	Cnt.NameCount,ax
	mov	bx,es:[3ch]
	mov	cx,es:[3eh]
	mov	dx,es:[4ah]
	push	es
	call	StartBuf
	stosw
	mov	ax,402h
	stosw
	mov	ax,Cnt.SymbolCount
	or	dx,dx
	jnz	@@1
	mov	ax,dx
@@1:	stosw
	mov	ax,dx
	stosw
	mov	ax,Cnt.SourceFileCount
	or	bx,bx
	jnz	@@2
	mov	ax,bx
@@2:	stosw
	mov	ax,bx
	stosw
	add	Cnt.SourceFileCount,ax
	mov	ax,cx
	jcxz	@@3
	mov	ax,Cnt.CorrelCount
@@3:	stosw
	mov	ax,cx
	stosw
	add	Cnt.CorrelCount,ax
	call	StopBuf
	pop	es
	call	l194e
	lea	ax,l1958
	call	TraceIterator
	add	Cnt.SymbolCount,dx
	ret
l1582	endp

l15f3	proc	near
	mov	ax,es:[44h]
	inc	ax
	add	Cnt.NameCount,ax
	mov	ax,es:[3ch]
	cwd
	mov	cx,6
	mul	cx
	call	GetMem
	call	l0603
	ret
l15f3	endp

l160d	proc	near
	lea	ax,l127d
	call	TraceIterator
	ret
l160d	endp

l1614	proc	near
	mov	ax,0ch
	cwd
	call	GetMem
	xor	dx,dx
	xor	cx,cx
	mov	di,es:[0ch]
	mov	bx,es:[di+4]
	cmp	bx,-1
	je	@@1
	add	bx,es:[0eh]
	mov	dx,es:[bx]
	mov	ax,es:[di+6]
	add	dx,ax
	mov	cx,es:[bx+2]
	sub	cx,ax
@@1:	mov	bx,es:[42h]
	mov	si,es:[46h]
	push	es
	call	StartBuf
	mov	ax,Cnt.SymbolCount
	stosw
	mov	ax,bx
	stosw
	add	Cnt.SymbolCount,ax
	mov	ax,si
	stosw
	mov	ax,-1
	stosw
	mov	ax,dx
	stosw
	mov	ax,cx
	stosw
	call	StopBuf
	pop	es
	xor	dx,dx
	lea	ax,l1958
	call	TraceIterator
	add	dx,es:[4ah]
	add	Cnt.SymbolCount,dx
	inc	word ptr Cnt[8]
	ret
l1614	endp

l1681	proc	near
	mov	ax,es:[42h]
	add	ax,es:[4ah]
	add	Cnt.SymbolCount,ax
	mov	ax,es
	cmp	ax,LastUnit
	je	@@1
	mov	ax,es:[46h]
	sub	ax,Cnt.ScopeCount
	inc	ax
	xor	dx,dx
	mov	cx,0ch
	mul	cx
	call	GetMem
	call	StoreUnit
	mov	ax,es:[40h]
	xor	dx,dx
	mov	cx,0ch
	mul	cx
	call	GetMem
	lea	ax,l068b
	call	TraceIterator
@@1:	inc	Cnt.SegmentCount
	ret
l1681	endp

l16c5	proc	near
	mov	ax,10h
	cwd
	call	GetMem
	mov	Cnt.ScopeCount,1
	mov	ax,es:[46h]
	add	Cnt.ScopeCount,ax
	mov	bx,es:[2ch]
	mov	cx,es:[30h]
	or	cx,cx
	jnz	@@1
	mov	cx,es:[2eh]
@@1:	mov	dx,es:[40h]
	mov	si,es:[3eh]
	call	StartBuf
	mov	ax,Cnt.SegmentCount
	stosw
	mov	ax,bx
	stosw
	xor	ax,ax
	stosw
	mov	ax,cx
	stosw
	mov	ax,Cnt.ScopeCount
	or	dx,dx
	jnz	@@2
	mov	ax,Cnt.SegmentCount
	mov	dx,1
@@2:	stosw
	mov	ax,dx
	stosw
	mov	ax,Cnt.CorrelCount
	or	si,si
	jnz	@@3
	xor	ax,ax
@@3:	stosw
	mov	ax,si
	stosw
	add	Cnt.CorrelCount,ax
	call	StopBuf
	inc	Cnt.SegmentCount
	ret
l16c5	endp

l1731	proc	near
	mov	cx,es:[3eh]
	jcxz	@@1
	mov	ax,8
	cwd
	mul	cx
	call	GetMem
	call	l063e
@@1:	inc	Cnt.XPEHCount
	ret
l1731	endp

l1749	proc	near
	cmp	Cnt.TypeCount,1
	jne	@@1
	mov	cx,d3cf0
	mov	ax,8
	cwd
	mul	cx
	call	GetMem
	push	es
	mov	cx,100h
	call	StartBuf
	mov	d3cb8,di
	push	ds
	lea	si,l143c
	push	cs
	pop	ds
	rep	movsb
	pop	ds
	call	StopBuf
	pop	es
	mov	Cnt.TypeCount,21h
@@1:	call	l039b
	lea	ax,l04b2
	call	TraceIterator
	call	l194e
	ret
l1749	endp

l1788	proc	near
	mov	cx,d3cf2
	jcxz	@@2
	cmp	Cnt.MemberCount,1
	jne	@@1
	mov	ax,5
	cwd
	mul	cx
	call	GetMem
@@1:	call	l039b
	lea	ax,l04b2
	call	TraceIterator
	call	l194e
	ret
@@2:	call	l05ba
	ret
l1788	endp

l17af	proc	near
	mov	cx,es:[48h]
	add	cx,es:[4ch]
	jcxz	@@1
	mov	ax,0bh
	cwd
	mul	cx
	call	GetMem
	call	l039b
	ret
@@1:	call	l05ba
	ret
l17af	endp

l17cc	proc	near
	mov	cx,d3cf4
	jcxz	@@2
	cmp	Cnt.ParentCount,1
	jne	@@1
	mov	ax,2
	cwd
	mul	cx
	call	GetMem
@@1:	mov	cx,es:[48h]
	add	cx,es:[4ch]
	jcxz	@@2
	call	l039b
	ret
@@2:	call	l05ba
	ret
l17cc	endp

l17f6	proc	near
	mov	ax,4
	cwd
	call	GetMem
	mov	ax,Cnt.ClassCount
	mov	bx,es:[48h]
	or	bx,bx
	jnz	@@1
	mov	ax,bx
@@1:	mov	cx,es:[4ch]
	call	StartBuf
	stosw
	mov	ax,bx
	stosw
	call	StopBuf
	add	bx,cx
	add	Cnt.ClassCount,bx
	ret
l17f6	endp

l1821	proc	near
	mov	ax,8
	cwd
	call	GetMem
	mov	cx,Cnt.ClassCount
	add	cx,es:[48h]
	mov	bx,es:[4ch]
	or	bx,bx
	jnz	@@1
	mov	cx,bx
@@1:	call	StartBuf
	xor	ax,ax
	stosw
	stosw
	mov	ax,cx
	stosw
	mov	ax,bx
	stosw
	call	StopBuf
	add	Cnt.ClassCount,bx
	ret
l1821	endp

l1851	proc	near
	mov	cx,d3cf6
	jcxz	@@2
	cmp	Cnt.DataCount,1
	jne	@@1
	mov	ax,cx
	xor	dx,dx
	call	GetMem
@@1:	call	l039b
	lea	ax,l04b2
	call	TraceIterator
@@2:	ret
l1851	endp

l186f	proc	near
	call	l039b
	lea	ax,l04b2
	call	TraceIterator
	call	StoreUnitName
	call	l0603
	ret
l186f	endp