PPU207Á€"¶ðMHi˜f(ç‚ì{4


DirectivesTree
U)
directivestree.pasZaZ
codetools.incàXŽXö
System|rNƒ”j`ºΣáobjpas,Úފü>.¯nÿËClassesÞo£WùÅðý«Xì¦sysutilsâ1.Ӧ£Gb<sÆLaz_AVL_Tree!RW
RE$xÙë	FileProcsª¤ÇÞmīpÙÒvÐBasicCodeToolsoc^ŸTã	{P¥°¢KeywordFuncLists5·™p5û>ÆŠõj	CodeCache™Ì:‹>~LoÁ*ðSExprEval[7‚f+	k¥+CodeTreeQø%ީ¨«°É€s
directivestree.o



	


d

R†

SYSTEMCODETREE	CODECACHECLASSESKEYWORDFUNCLISTSTYPESLAZ_AVL_TREESYSUTILSOBJPASBASICCODETOOLS	FILEPROCSEXPREVAL	SOURCELOG%









-

â
ß



/



1



3



5



7



9



;



=



?



A



C



E



G





J



L



N



P



R



T



V



X



Z



\



^



`



b





e

g



i





l




6

o







s



u

=

x




?

{





}
















„






‡



‰





Œ











’



”





—






š







6





Ÿ\

¡

£









6

¦\
¨



6





ª\

¬

®









6

±\
³




6



·




6



»




6







À




6



Ä




6




È





6

@

Ì




6









Ò




6

@

Ö




6

Ù

Û



6



Þ




6

™

â




Ÿ


Ÿ



ç



^



ë





î




6



ò




6



ö





ù





ü




Ÿ


Ÿ










6











6










6










6






































 




"




$


1










*
 !"#$%&'()*+,-./0123456789:;






]

6




<>@AB



)J







GHIJKLMN



!






"






#







#






$

YZ]_acdefghijklmnopqrstuvwxyz{|}~





















 
 







>
	




'
(
)
*
+
:
;
<
1

â
Œ









7




	




'
(
)
*
+
:
;
¡
8



ê
x






è
ç	








ß



ß






ß



L
ß



ß







ß




ß




ß







ß







ß







ß




ß

ß




ß




Œ



i

n

â
ß



6

6

	




'
(
)
*
+
:
;
<
o



ê
x






è
ç	






ß



Œ

â
ß




Ž













“













	




'
(
)
*
+
:
;
<
”



ê
x






è
ç	







¯



ê
x






è
ç‹	





?











Î









Ñ









Ô









×








Ú








Ý


































ŠŒŽ‘
1

]

6
”
^
«

Ÿ
ß




“““

â
ß
“


	




'
(
)
*
+
:
;
<’“”
š

Ÿ

B
j
¢
¸
9
Â

­

«
­
-
Ú
.

º



É
—
	
?

t


î
`
æ
i

Š
¶
e
»
¾
o
Ü
'
ß
&


Ì

É

u

·













¸
	›


	
~
Î
—
’

Ð

D






R

F


	ä
%
y

!
Ý
1
 
/
Ú
\


‹

Y
c
 


C
¤

~

z

é
«





	
B
s
0

	
›
:



¯

³
…


v
º

H
	0

»
0
n
Æ
Å

o
1
	ð
Á


C

ê
©
Ë

¾
®


×

Ö
	Ù
á
æ
¹
Q
.
0
/



	

y
	>
?
>
	
9
ž
	

	u

i

J
f
g
]
e
—
˜
™
?
ü
[
ø!,
*
 [øùúû,
*
#[øùúû’
0,¾TCompilerDirectivesTree0
€4=
ª°¹ÂËÔÝæïø

^[øQ+FJÿÿ[a
§
"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_IFDEFDIRECTIVE$$BOOLEAN[øùú
("$self.
™
SBY
û›+gkÿÿ|‚
®
"
DDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_IFCDIRECTIVE$$BOOLEAN[øùú
("$self0
š
tBz
ûž+ˆŒÿÿ£
µ
"
GDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_IFNDEFDIRECTIVE$$BOOLEAN[øùú
("$self2
›
•B›
ûš+©­ÿÿ¾Ä
¼
"
CDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_IFDIRECTIVE$$BOOLEAN[øùú
("$self4
œ
¶B¼
û+ ÊÎÿÿßå
Ã
"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_IFOPTDIRECTIVE$$BOOLEAN[øùú
("$self6

×BÝ
û+!ëïÿÿ


Ê
"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ENDIFDIRECTIVE$$BOOLEAN[øùú
("$self8
ž
øBþ
ûœ+"

ÿÿ!
'

Ô
"
EDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ENDCDIRECTIVE$$BOOLEAN[øùú
("$self:
Ÿ

B

û+#-
1
ÿÿB
H

Þ
"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_IFENDDIRECTIVE$$BOOLEAN[øùú
("$self<
 
:
B@

ûœ+$N
R
ÿÿc
i

è
"
EDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ELSEDIRECTIVE$$BOOLEAN[øùú
("$self>
¡
[
Ba

û+%o
s
ÿÿ„
Š

ð
"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ELSECDIRECTIVE$$BOOLEAN[øùú
("$self@
¢
|
B‚

ûž+&
”
ÿÿ¥
«

ø
"
GDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ELSEIFDIRECTIVE$$BOOLEAN[øùú
("$selfB
£

B£

û+'±
µ
ÿÿÆ
Ì

"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ELIFCDIRECTIVE$$BOOLEAN[øùú
("$selfD
¤
¾
BÄ

ûž+(Ò
Ö
ÿÿç
í

"
GDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DEFINEDIRECTIVE$$BOOLEAN[øùú
("$selfF
¥
ß
Bå

ûŸ+)ó
÷
ÿÿ
#
HDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_SETNESTEDCOMMENTS$BOOLEAN[øùú)"AValueH
¦!
	

("$selfI
¦
B
û+*#ÿÿ4:
"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_UNDEFDIRECTIVE$$BOOLEAN[øùú
("$selfK
§
,B2
ûœ++@DÿÿU[
""
EDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_SETCDIRECTIVE$$BOOLEAN[øùú
("$selfM
¨
MBS
ûŸ+,aeÿÿv|
+"
HDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_INCLUDEDIRECTIVE$$BOOLEAN[øùú
("$selfO
©
nBt
û£+-‚†ÿÿ—
3"
LDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_INCLUDEPATHDIRECTIVE$$BOOLEAN[øùú
("$selfQ
ª
B•û£+.£§ÿÿ¸¾
9"
LDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_SHORTSWITCHDIRECTIVE$$BOOLEAN[øùú
("$selfS
«
°B¶
û¦+/ÄÈÿÿÙß
I"
ODIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_READNEXTSWITCHDIRECTIVE$$BOOLEAN[øùú
("$selfU
¬
ÑB×û¢+0åéÿÿú
N"
KDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_LONGSWITCHDIRECTIVE$$BOOLEAN[øùú
("$selfW
­
òBø
ûœ+1
ÿÿ!
W"
EDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_MODEDIRECTIVE$$BOOLEAN[øùú
("$selfY
®
B
û¡+2'+ÿÿ<B
`"
JDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_THREADINGDIRECTIVE$$BOOLEAN[øùú
("$self[
¯
4B:
û+3HLÿÿ]c
i"
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_OTHERDIRECTIVE$$BOOLEAN[øùú
("$self]
°
UB[
û•+4imÿÿ~„
q#
>DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_INITKEYWORDLIST[øùú
("$self_
±
vB|
û+5ŠŽÿÿŸ¥
–#
9DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_INITPARSER[øùú
("$selfa
³
—B
ûŸ+6«¯ÿÿãé
§#
HDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_CREATECHILDNODE$WORD$WORD[øùú'"Descc
´
¸Á

*"SubDescd
µ
ÃÌ
'$defSUBDESCe
µ€
Ò
è("$selff
´
ÛBá
û’+7ïóÿÿ

µ#
;DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ENDCHILDNODE[øùú
("$selfh
¶
üB
ûš+8ÿÿ06
¼#
CDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ENDIFNODE$ANSISTRING[øùú+"ErrorMsgj
·

&

("$selfk
·
(B.
û¦+9<@ÿÿ\b
F#
ODIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_INTERNALREMOVENODE$TCODETREENODE[øùú'"Nodem
¹"
IR

("$selfn
¹
TBZ
û¥+:hlÿÿ“™
\#
NDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_RAISEEXCEPTION$INT64$ANSISTRING[øùú%"idp
º
u~

+"ErrorMsgq
º/

€‰
("$selfr
º

‹B‘
û”+;Ÿ£ÿÿ´º
i#
=DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_RAISELASTERROR[øùú
("$selft
»
¬B²
û¥+<ÀÄÿÿÚà
¸%
NDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_CREATE$$TCOMPILERDIRECTIVESTREE[øùú'"$vmtv
Æ
ÊDÐ
("$selfw
Æ
ÒBØ
û5=æê+>ðôD

Á$
6DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DESTROY[øùú'"$vmty
Ç
ýD
("$selfz
Ç

B
û5?‹+@#'ÿÿ8>
É#
4DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_CLEAR[øùú
("$self|
È

0B6
û‹+ADHÿÿY_
Ò#
4DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_PARSE[øùú
("$self~
Ë
QBW
ûŸ+Beiÿÿ–
Ù#
HDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_PARSE$TCODEBUFFER$BOOLEAN[øùú("aCode€
Ì
r{

2"aNestedComments
Ì)
}†
("$self‚
Ì

ˆBŽ
û›+Gœ ÿÿ±·
"
DDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_UPDATENEEDED$$BOOLEAN[øùú
("$selfƒ
Ï
©B¯
û+H½ÁÿÿÝã
B
#
FDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_MOVECURSORTOPOS$LONGINT[øùú$"
p…
Ð
ÊÓ

("$self†
Ð
ÕBÛ
û’+Iéíÿÿþ
H
#
;DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_READNEXTATOM[øùú
("$selfˆ
Ñ

öBü
û§+J
ÿÿ*0
O
"
PDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_READTILBRACKETCLOSE$CHAR$$BOOLEAN[øùú/"CloseBracketŠ
Ò"
 

("$self‹
Ò
"B(
û¡+K6:ÿÿV\
a
"
JDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ATOMIS$SHORTSTRING$$BOOLEAN[øùú$"
s
Ó
CL

("$selfŽ
Ó
NBT
û£+Lbfÿÿ‚ˆ
n
"
LDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_UPATOMIS$SHORTSTRING$$BOOLEAN[øùú$"
s
Ô
ox

("$self‘
Ô
zB€
ûŸ+MŽ’ÿÿ£©
{
"
HDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ATOMISIDENTIFIER$$BOOLEAN[øùú
("$self“
Õ
›B¡
û™+N¯³ÿÿÏÕ
Š
"
BDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_GETATOM$$ANSISTRING[øùú("$self•
Ö
¼BÂ
+"$result–
Š
"ÄAÍ
û­+YÛßÿÿ$
	"
VDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_SRCPOSTOSTR$LONGINT$BOOLEAN$$ANSISTRING[øùú$"
p˜
Þ
èñ

/"WithFilename™
Þ&
óü
,$defWITHFILENAMEš
Þ&€

("$self›
Þ
B
+"$resultœ
	"A
û§+Z*.ÿÿ‚ˆ
	"
PDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_FINDRESOURCEDIRECTIVE$crc1B0388C3[ø
,*[7;D [øùúûùú+"Filenamež
á*

MV

#$defFILENAMEŸ
á*€\+"StartPos 
â$
bk
($defSTARTPOS¡
â$€
q

("$self¢
á
zB€
û»+]Ž’ÿÿÙß
+	"
dDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ISRESOURCEDIRECTIVE$TCODETREENODE$ANSISTRING$$BOOLEAN[ø
,*^›Ÿ¨ [øùúûùú'"Node¤
ã"
±º

+"Filename¥
ä(

¼Å
#$defFILENAME¦
ä(€Ë("$self§
ã
ÑB×
û¦+_åéÿÿ=C
A	"
ODIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_FINDINCLUDEDIRECTIVE$crc1B0388C3[ø
,*`òöÿ [øùúûùú+"Filename©
æ)



#$defFILENAMEª
æ)€+"StartPos«
ç#
&
($defSTARTPOS¬
ç#€
,

("$self­
æ
5B;
ûº+aIMÿÿ”š
M	"
cDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ISINCLUDEDIRECTIVE$TCODETREENODE$ANSISTRING$$BOOLEAN[ø
,*bVZc [øùúûùú'"Node¯
è!
lu

+"Filename°
é'

w€
#$defFILENAME±
é'€†("$self²
è
ŒB’
û°+c ¤ÿÿËÑ
l	"
YDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_GETDIRECTIVENAME$TCODETREENODE$$ANSISTRING[øùú'"Node´
ì
­¶

("$selfµ
ì
¸B¾
+"$result¶
l	"ÀAÉ
û¬+d×Ûÿÿ		
q	"
UDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_GETDIRECTIVE$TCODETREENODE$$ANSISTRING[øùú'"Node¸
í
äí

("$self¹
í
ïBõ
+"$resultº
q	"÷A	
û¡+e		ÿÿD	J	
w	"
JDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_GETIFEXPRESSION$crcD811E754[øùú'"Node¼
î
	$	

,"	ExprStart½
ï"&	/	
*"ExprEnd¾
ï-1	:	
("$self¿
î
<	BB	
ûµ+fP	T	ÿÿ{		
Š	"
^DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_GETIFEXPRESSIONSTRING$TCODETREENODE$$ANSISTRING[øùú'"NodeÁ
ð$
]	f	

("$selfÂ
ð
h	Bn	
+"$resultÃ
Š	"p	Ay	
û¹+g‡	‹	ÿÿ²	¸	
–	"
bDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_ISIFEXPRESSIONSIMPLE$TCODETREENODE$LONGINT$$BOOLEAN[øùú'"NodeÅ
ñ#
”		

,"	NameStartÆ
ñ<Ÿ	¨	
("$selfÇ
ñ
ª	B°	
û¹+h¾	Â	ÿÿé	ï	
·	"
bDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_FINDNAMEINIFEXPRESSION$TCODETREENODE$PCHAR$$LONGINT[øùú'"NodeÉ
ó%
Ë	Ô	

-"
IdentifierÊ
ó:
Ö	ß	
("$selfË
ó
á	Bç	
û§+iõ	ù	ÿÿ6
<

Ó	"
PDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_GETDEFINENAMEANDVALUE$crc2AE759C3[øùú-"
DefineNodeÍ
õ$




,"	NameStartÎ
ö


+"HasValueÏ
ö'
!

-"
ValueStartÐ
ö>#
,
(
("$selfÑ
õ
.
B4

û±+jB
F
ÿÿm
s

õ	"
ZDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DEFINEUSESNAME$TCODETREENODE$PCHAR$$BOOLEAN[øùú-"
DefineNodeÓ
ø
O
X


-"
IdentifierÔ
ù
Z
c

("$selfÕ
ø
e
Bk

û°+ky
}
ÿÿ±
·


"
YDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_NODEISEMPTY$TCODETREENODE$BOOLEAN$$BOOLEAN[øùú'"Node×
ú
†



1"IgnoreCommentsØ
ú/
‘
š

.$defIGNORECOMMENTSÙ
ú/€
 


("$selfÚ
ú
©
B¯

ûª+l½
Á
ÿÿÝ
ã

)
"
SDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_FINDNODEATPOS$LONGINT$$TCODETREENODE[øùú$"
pÜ
û
Ê
Ó


("$selfÝ
û
Õ
BÛ

û¤+mé
í
ÿÿ
	"
MDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_NODESTARTTOCODEPOS$crcB07B7A5B[øùú'"Nodeß
ü!
ö
ÿ


*"CodePosà
ý%



("$selfá
ü
B
û¸+n $ÿÿV\
#
aDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_REDUCECOMPILERDIRECTIVES$TSTRINGS$TSTRINGS$BOOLEAN[øùú-"	Undefinesã

(
-6

+"Definesä

3
8A
+"Changedå


,
CL
)"$selfæ


NBT
ûª+obfÿÿ“
¡#
SDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_GATHERH2PASFUNCTIONS$TFPLIST$BOOLEAN[øùú8"ListOfH2PasFunctionsè

(
ox

0"FindDefNodesé

$
zƒ
)"$selfê


…B‹
û§+p™ÿÿ¹¿
W#
PDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_FIXMISSINGH2PASDIRECTIVES$BOOLEAN[øùú+"Changedì

-¦¯

)"$selfí


±B·
û¸+qÅÉÿÿðö
Ä#
aDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_CHECKANDIMPROVEEXPR_BRACKETS$TCODETREENODE$BOOLEAN[øùú("Nodeï

,
ÒÛ

+"Changedð

0Ýæ
)"$selfñ


èBî
û´+rüÿÿ'-
í#
]DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_CHECKANDIMPROVEEXPR_IFDEFINEDMACRO$crcA70199CA[øùú("Nodeó

2
	

+"Changedô
	
6
)"$selfõ


B%
û¥+s37ÿÿSY
)#
NDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DISABLEALLUNUSEDDEFINES$BOOLEAN[øùú+"Changed÷


+
@I

)"$selfø



KBQ
û¡+t_cÿÿ…
?#
JDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_MOVEIFNOTTHENDEFSUP$BOOLEAN[øùú+"Changedú

'
lu

)"$selfû


wB}
û¸+u‹ÿÿÁÇ
Ü#
aDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DISABLEUNREACHABLEBLOCKS$TSTRINGS$TSTRINGS$BOOLEAN[øùú-"	Undefinesý

(
˜¡

+"Definesþ

3
£¬
+"Changedÿ


,
®·
)"$self



¹B¿
û¯+vÍÑÿÿ
	

@#
XDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DISABLENODE$TCODETREENODE$BOOLEAN$BOOLEAN[øùú("Node



Úã

+"Changed


4
åî
/"WithContent



ðù
)"$self



ûB


û­+w

ÿÿ:
@

J#
VDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DISABLEDEFINENODE$TCODETREENODE$BOOLEAN[øùú("Node


!

%


+"Changed


:'
0

)"$self	



2
B8

û±+xF
J
ÿÿ|
‚

i#
ZDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_DISABLEIFNODE$TCODETREENODE$BOOLEAN$BOOLEAN[øùú("Node



S
\


/"WithContent


2
^
g

+"Changed



!i
r

)"$self



t
Bz

û¹+yˆ
Œ
ÿÿ¾
Ä

›"
bDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_INSERTDEFINE$LONGINT$ANSISTRING$WORD$$TCODETREENODE[øùú,"Position



•
ž


*"NewSrc


4

 
©

+"SubDesc



«
´

)"$self



¶
B¼

ûž+zÊ
Î
ÿÿê
ð

o#
GDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_REMOVEEMPTYNODES$BOOLEAN[øùú+"Changed


$

×
à


)"$self



â
Bè

û¨+{ö
ú
ÿÿ,2

#
QDIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_REPLACE$LONGINT$LONGINT$ANSISTRING[øùú+"FromPos





)"ToPos


 

*"NewSrc


6

"
)"$self



$B*
û˜+|8<ÿÿMS
¦
#
ADIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_INCREASECHANGESTEP[øùú
)"$self



EBK
û‘+}Y]ÿÿnt
®
#
:DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_RESETMACROS[øùú
)"$self



fBl
û‘+~z~ÿÿ•
¶
#
:DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_CLEARMACROS[øùú
)"$self!




‡B
û–+›Ÿÿÿ°¶
¾
#
?DIRECTIVESTREE$_$TCOMPILERDIRECTIVESTREE_$__$$_WRITEDEBUGREPORT[øùú
)"$self#



¨B®
ûùún-FChangeStep
¼;FDefaultDirectiveFuncList
ŽÅ7FDisableUnusedDefines
Î1FNestedComments
×2FParseChangeStep
‘à;FRemoveDisabledDirectives
’é 6FSimplifyExpressions
“ò!6FUndefH2PasFunctions 
”û"/
FLastErrorMsg!
•(/
fLastErrorPos"
–
0.fLastErrorXY#
—4.fLastErrorId$
˜@"IfdefDirective/
™
( IfCDirective1
š
.#IfndefDirective3
›
4IfDirective5
œ
:"IfOptDirective7

@"EndifDirective9
ž
F!
EndCDirective;
Ÿ
L"IfEndDirective=
 
R!
ElseDirective?
¡
X"ElseCDirectiveA
¢
^#ElseIfDirectiveC
£
d"ElIfCDirectiveE
¤
j#DefineDirectiveG
¥
p%SetNestedCommentsJ
¦
v"UndefDirectiveL
§
|!
SetCDirectiveN
¨
‚$IncludeDirectiveP
©
ˆ(IncludePathDirectiveR
ª
Ž(ShortSwitchDirectiveT
«
”+ReadNextSwitchDirectiveV
¬
š'LongSwitchDirectiveX
­
 !
ModeDirectiveZ
®
¦&ThreadingDirective\
¯
¬"OtherDirective^
°
²#InitKeyWordList`
±
¸
InitParserb
³
¾#CreateChildNodeg
´
Ä EndChildNodei
¶
Ê	EndIFNodel
·
Ð&InternalRemoveNodeo
¹
Ö"RaiseExceptions
º
Ü"RaiseLastErroru
»
â&Code%
½èH%Src&
¾ñP(SrcLen'
¿úX&Tree(
À`)CurNode)
Áh(SrcPos*
Âp+	AtomStart+
Ãt(Macros,
Ä'xCreatex
Æ
0Destroy{
Ç
6Clear}
È
<Parse
ËBHNNestedComments%

ÍN€WY[
]cioJParseChangeStep&

Îq€z|~
€†ˆ UpdateNeeded„
Ï
Š#MoveCursorToPos‡
Ð
 ReadNextAtom‰
Ñ
–'ReadTilBracketCloseŒ
Ò
œAtomIs
Ó
¢UpAtomIs’
Ô
¨$AtomIsIdentifier”
Õ
®GetAtom—
Ö
´CErrorMsg'

ÙºÃÅÇ
ÉÏÑCErrorPos(

ÚÓ€ÜÞà
âèêI	ErrorLine)

Ûì€õ÷ù
û

KErrorColumn*

Ü€
#,.BErrorId+

Ý0€9;=
?EGSrcPosToStr
Þ
I)FindResourceDirective£
á
O'IsResourceDirective¨
ã
U(FindIncludeDirective®
æ
[&IsIncludeDirective³
è
a$GetDirectiveName·
ì
g GetDirective»
í
m#GetIfExpressionÀ
î
s)GetIfExpressionStringÄ
ð
y(IsIfExpressionSimpleÈ
ñ
*FindNameInIfExpressionÌ
ó
…)GetDefineNameAndValueÒ
õ
‹"DefineUsesNameÖ
ø
‘NodeIsEmptyÛ
ú
—!
FindNodeAtPosÞ
û
&NodeStartToCodePosâ
ü
£-ReduceCompilerDirectivesç


©)GatherH2PasFunctionsë


¯.FixMissingH2PasDirectivesî


µ1CheckAndImproveExpr_Bracketsò


»7"CheckAndImproveExpr_IfDefinedMacroö


Á,DisableAllUnusedDefinesù



Ç(MoveIfNotThenDefsUpü


Í-DisableUnreachableBlocks




Ó DisableNode



Ù&DisableDefineNode




ß"
DisableIfNode



å!InsertDefine



ë%RemoveEmptyNodes



ñReplace



÷'IncreaseChangeStep



ý ResetMacros 



 ClearMacros"



	%WriteDebugReport$



TSimplifyExpressions,


€ "
$*
,2UDisableUnusedDefines-

!
4€=?A
CI
KQYRemoveDisabledDirectives.

#
S€\^`
bh
jpTUndefH2PasFunctions/

%
r€{}
‡
‰F
ChangeStep0

'
‘€šœž
 ¦¨û•
0¾ECDirectiveParserException0
($-
™¢«´½ÆÏØáêóü^[ø›+6:ÿÿnt
Þ
(
DDIRECTIVESTREE$_$ECDIRECTIVEPARSEREXCEPTION_$__$$_CREATE$crcEF0E0D49[øùú*"ASender2

e
@F

("TheId3

e:
HQ
+"AMessage4

eN

S\
'"$vmt5

e
^Dd
("$self6

e
fBl
û5z~ùú(Sender	
c„$Id

dŠ Create7

e
“ûK
-
°"$vmtdef$ECDIRECTIVEPARSEREXCEPTION
Ð^[øùú%$f09

h%$f1:

h%$f2;

h(%$f3<

h1%$f4=

h: %$f5>

hC(%$f6?

hL0%$f7@

hU8%$f8A

h^@%$f9B

hgH&$f10C

hpP&$f11D

hyX&$f12E

h‚`&$f13F

hˆh&$f14G

hŽp&$f15H

h”x&$f16I

hš€&$f17J

h ˆ&$f18K

h¦&$f19L

h¬˜&$f20M

h² &$f21N

h¸¨&$f22O

h¾°&$f23P

hĸ&$f24Q

hÊÀ&$f25R

hÐÈû7
3ÙÝ„[øùú'"$vmtS

h
æDï("$selfT

h
ñBúû7
3ü†[øùú
("$selfU

h
	Bû7
3	„[øùú
("$selfV

h
!B*û7
3
,0„[øùú/"exceptobjectW

h
9B
-"
exceptaddrX

h
DM("$selfY

h
OBXû7
3Z^„[øùú*"messageZ

hgp
("$self[

h
rB{û7
3}„[øùú
("$self\

h
ŠB“û7
3
•™„[øùú
("$self]

h
¢B«û7
3­±„[øùú*"message^

hºÃ
("$self_

h
ÅBÎû7
3ÐÔ„[øùú*"message`

hÝæ
("$selfa

h
èBñû7
3ó÷„[øùú*"messageb

h	
("$selfc

h
Bû7
3„[øùú&"Objd

h
#,
("$selfe

h
.B7û7
39=„[øùú
("$selff

h
FBOû7
3QUÄ[øùú("$selfg

h
^Bg*"$resulth

hiAr
û(
1t”[øùú 
cmsUnknownj

i| 
cmsDefinedk

j‚
"cmsUndefinedl

kˆ 
cmsComplexm

lŽûŽ
0”¾TCompilerMacroStats
0ϴ
Øáêóü )2;D^[øùú&Name
q®'Value
r·(Status

sÀ0LastDefineNode
tÆ .LastReadNode
uÏ(ûD
-M
°$vmtdef$TCOMPILERMACROSTATS
Ð^[øùú%$f0p

zU%$f1q

z^%$f2r

zg%$f3s

zp%$f4t

zy %$f5u

z‚(%$f6v

z‹0%$f7w

z”8%$f8x

z@%$f9y

z¦H&$f10z

z¯P&$f11{

z¸X&$f12|

zÁ`&$f13}

zÇh&$f14~

zÍp&$f15

zÓx&$f16€

zÙ€&$f17

z߈&$f18‚

zå&$f19ƒ

zë˜&$f20„

zñ &$f21…

z÷¨&$f22†

zý°&$f23‡

z¸&$f24ˆ

z	À&$f25‰

zÈû7
3„[øùú("$selfŠ

z
%B.*"$result‹

z0A9
û‰
0;¾TH2PasFunction
0CL
$-6?HQZclu~^[ø+UYÿÿjp
Î

8DIRECTIVESTREE$_$TH2PASFUNCTION_$__$$_NEEDSBODY$$BOOLEAN[øùú
("$self

…
bBh
û¯+vzÿÿ¬²
Ó

XDIRECTIVESTREE$_$TH2PASFUNCTION_$__$$_ADJUSTPOSITIONSAFTERINSERT$LONGINT$LONGINT$LONGINT[øùú*"FromPos

†*
ƒŒ

("ToPos

†3
Ž—
*"DiffPos‘

†:
™¢
("$self’

†

¤Bª
ûùú&Name
|¸-HeaderStart
}Á+	HeaderEnd
~Ê,
BeginStart
Ó*BeginEnd
ۆ+	IsForward
å ,
IsExternal
‚î!-InInterface
ƒ÷")DefNode
„(	NeedsBodyŽ

…
.AdjustPositionsAfterInsert“

†
û?
-‡
°$vmtdef$TH2PASFUNCTION
Ð^[øùú%$f0•

‹%$f1–

‹˜%$f2—

‹¡%$f3˜

‹ª%$f4™

‹³ %$f5š

‹¼(%$f6›

‹Å0%$f7œ

‹Î8%$f8

‹×@%$f9ž

‹àH&$f10Ÿ

‹éP&$f11 

‹òX&$f12¡

‹û`&$f13¢

‹
h&$f14£

‹p&$f15¤

‹
x&$f16¥

‹€&$f17¦

‹ˆ&$f18§

‹&$f19¨

‹%˜&$f20©

‹+ &$f21ª

‹1¨&$f22«

‹7°&$f23¬

‹=¸&$f24­

‹CÀ&$f25®

‹IÈû,
*\RV_ÿÿÿÿÿÿÿÿ[øùúûH
-Šh
°$vmtdef$TCOMPILERDIRECTIVESTREE
Ð^[øùú&$f0°

*

p&$f1±

*

y&$f2²

*

‚&$f3³

*

‹&$f4´

*

” &$f5µ

*

(&$f6¶

*

¦0&$f7·

*

¯8&$f8¸

*

¸@&$f9¹

*

ÁH'$f10º

*

ÊP'$f11»

*

ÓX'$f12¼

*

Ü`'$f13½

*

âh'$f14¾

*

èp'$f15¿

*

îx'$f16À

*

ô€'$f17Á

*

úˆ'$f18Â

*

'$f19Ã

*

˜'$f20Ä

*

 '$f21Å

*

¨'$f22Æ

*

°'$f23Ç

*

¸'$f24È

*

$À'$f25É

*

*Èû7
3‹37Ä[øùú("$vmtÊ

*


@DF)"$selfË

*


HBNû›
+ŒPTÿÿsu
T


DDIRECTIVESTREE_$$_COMPARECOMPILERMACROSTATS$POINTER$POINTER$$LONGINT[øùú)"Data1Ì

*
$
]f

)"Data2Í

*
+
hq
û¤
+{ÿÿž 
Z


MDIRECTIVESTREE_$$_COMPAREPCHARWITHCOMPILERMACROSTATS$POINTER$POINTER$$LONGINT[øùú("NameÏ

+
-
ˆ‘

."
MacroStatsÐ

+
3
“œ
ûž
+Ž¦ªÿÿÉË
`


GDIRECTIVESTREE_$$_COMPAREH2PASFUNCBYNAMEANDPOS$POINTER$POINTER$$LONGINT[øùú)"Data1Ò

,
'
³¼

)"Data2Ó

,
.
¾Ç
ûŸ
+ÑÕÿÿôö
q


HDIRECTIVESTREE_$$_COMPAREPCHARWITHH2PASFUNCNAME$POINTER$POINTER$$LONGINT[øùú("NameÕ

-
(
Þç

-"	H2PasFuncÖ

-
.
éò
ûŒ
+üÿÿ!
v


5DIRECTIVESTREE_$$_CDNODEDESCASSTRING$WORD$$ANSISTRING[øùú("DescØ

/

	

+"$resultÙ

v

A
û
+‘'+ÿÿJL
‡


8DIRECTIVESTREE_$$_CDNODESUBDESCASSTRING$WORD$$ANSISTRING[øùú("DescÛ

0
 
4=

+"$resultÜ

‡

?AH
û
ù
úB
DirectivesTreeÞ

 

SYSTEMß

 

OBJPASà

$

Classes
(
SysUtils

(
Laz_AVL_Tree
(
	FileProcs
*
BasicCodeTools
*
KeywordFuncLists
*
	CodeCache
*0
ExprEval
*;
CodeTree
*E0
TCompilerDirectiveNodeDescá

-  R#
cdnBaseâ

1
[
è#
cdnNoneã

2
d
è#
cdnRootä

4
m
é%
	cdnDefineå

6
v
ó&

cdnIncludeæ

7

ô!
cdnIfç

9
ˆ
ý%
	cdnElseIfè

:
‘
þ#
cdnElseé

;
š
ÿ"
cdnEndê

<
£
$
cdnsBaseë

?
¬
'$
cdnsNoneì

@
µ
'%
	cdnsIfdefí

B
¾
'#
cdnsIfCî

C
Ç
'&

cdnsIfndefï

D
Ð
'"
cdnsIfð

E
Ù
'%
	cdnsIfOptñ

F
â
'%
	cdnsEndifò

G
ë
'$
cdnsEndCó

H
ô
'%
	cdnsIfEndô

I
ý
'$
cdnsElseõ

J

%'%
	cdnsElseCö

K

&'&

cdnsElseIf÷

L

''%
	cdnsElIfCø

M
!
('&

cdnsDefineù

N
*
/'%
	cdnsUndefú

O
3
0'$
cdnsSetCû

P
<
1''
cdnsIncludeü

Q
E
9'+
cdnsIncludePathý

R
N
:'+
cdnsShortSwitchþ

S
W
C'*
cdnsLongSwitchÿ

T
`
D'$
cdnsMode
U
i
E')

cdnsThreading

V
r
F'%
	cdnsOther
W
{
G';
H2Pas_Function_Prefix
Z„H2PAS_FUNCTION_-
TCompilerDirectivesTree-
]Š0
ECDirectiveParserException1

a 8
"$vmtdef$ECDIRECTIVEPARSEREXCEPTION8

h–*
TCompilerMacroStatusi

hœ 

cmsUnknown
i¢ 

cmsDefined
j¨
"
cmsUndefined
k® 

cmsComplex
l´)
TCompilerMacroStatsn

oº1
$vmtdef$TCOMPILERMACROSTATSo

zÀ$
TH2PasFunctionŒ

zÆ,
$vmtdef$TH2PASFUNCTION”

‹Ì6
$vmtdef$TCOMPILERDIRECTIVESTREE¯

*

Ò.
CompareCompilerMacroStatsÎ

*


Ø7
"ComparePCharWithCompilerMacroStatsÑ

+


Þ1
CompareH2PasFuncByNameAndPosÔ

,


ä2
ComparePCharWithH2PasFuncName×

-


ê'
CDNodeDescAsStringÚ

/


ð*
CDNodeSubDescAsStringÝ

0


ö
û


æ
QF.VMT_$DIRECTIVESTREE_$$_TCOMPILERDIRECTIVESTREE7VMT_$DIRECTIVESTREE_$$_TCOMPILERDIRECTIVESTREE$indirect
1VMT_$DIRECTIVESTREE_$$_ECDIRECTIVEPARSEREXCEPTION:VMT_$DIRECTIVESTREE_$$_ECDIRECTIVEPARSEREXCEPTION$indirect
*VMT_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATS3VMT_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATS$indirect
%VMT_$DIRECTIVESTREE_$$_TH2PASFUNCTION.VMT_$DIRECTIVESTREE_$$_TH2PASFUNCTION$indirect
#VMT_$DIRECTIVESTREE_$$_TDEFINEVALUE,VMT_$DIRECTIVESTREE_$$_TDEFINEVALUE$indirect
,RTTI_$DIRECTIVESTREE_$$_def000000E2$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E2,RTTI_$DIRECTIVESTREE_$$_def000000E3$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E3,RTTI_$DIRECTIVESTREE_$$_def000000E4$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E4,RTTI_$DIRECTIVESTREE_$$_def000000E5$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E5,RTTI_$DIRECTIVESTREE_$$_def000000E6$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E6,RTTI_$DIRECTIVESTREE_$$_def000000E7$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E7,INIT_$DIRECTIVESTREE_$$_def00000097$indirect
#INIT_$DIRECTIVESTREE_$$_def00000097.RTTI_$DIRECTIVESTREE_$$_TDEFINESTATUS$indirect
%RTTI_$DIRECTIVESTREE_$$_TDEFINESTATUS2RTTI_$DIRECTIVESTREE_$$_TDEFINESTATUS_s2o$indirect
)RTTI_$DIRECTIVESTREE_$$_TDEFINESTATUS_s2o2RTTI_$DIRECTIVESTREE_$$_TDEFINESTATUS_o2s$indirect
)RTTI_$DIRECTIVESTREE_$$_TDEFINESTATUS_o2s,RTTI_$DIRECTIVESTREE_$$_def00000097$indirect
#RTTI_$DIRECTIVESTREE_$$_def00000097,RTTI_$DIRECTIVESTREE_$$_def00000096$indirect
#RTTI_$DIRECTIVESTREE_$$_def00000096,RTTI_$DIRECTIVESTREE_$$_def000000AA$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000AA,RTTI_$DIRECTIVESTREE_$$_def000000E8$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E8,RTTI_$DIRECTIVESTREE_$$_def000000E9$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000E9,RTTI_$DIRECTIVESTREE_$$_def000000EA$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000EA,RTTI_$DIRECTIVESTREE_$$_def000000EB$indirect
#RTTI_$DIRECTIVESTREE_$$_def000000EB8INIT_$DIRECTIVESTREE_$$_TCOMPILERDIRECTIVESTREE$indirect
/INIT_$DIRECTIVESTREE_$$_TCOMPILERDIRECTIVESTREE8RTTI_$DIRECTIVESTREE_$$_TCOMPILERDIRECTIVESTREE$indirect
/RTTI_$DIRECTIVESTREE_$$_TCOMPILERDIRECTIVESTREE;INIT_$DIRECTIVESTREE_$$_ECDIRECTIVEPARSEREXCEPTION$indirect
2INIT_$DIRECTIVESTREE_$$_ECDIRECTIVEPARSEREXCEPTION;RTTI_$DIRECTIVESTREE_$$_ECDIRECTIVEPARSEREXCEPTION$indirect
2RTTI_$DIRECTIVESTREE_$$_ECDIRECTIVEPARSEREXCEPTION5RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATUS$indirect
,RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATUS9RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATUS_s2o$indirect
0RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATUS_s2o9RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATUS_o2s$indirect
0RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATUS_o2s4INIT_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATS$indirect
+INIT_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATS4RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATS$indirect
+RTTI_$DIRECTIVESTREE_$$_TCOMPILERMACROSTATS/INIT_$DIRECTIVESTREE_$$_TH2PASFUNCTION$indirect
&INIT_$DIRECTIVESTREE_$$_TH2PASFUNCTION/RTTI_$DIRECTIVESTREE_$$_TH2PASFUNCTION$indirect
&RTTI_$DIRECTIVESTREE_$$_TH2PASFUNCTION-INIT_$DIRECTIVESTREE_$$_TDEFINEVALUE$indirect
$INIT_$DIRECTIVESTREE_$$_TDEFINEVALUE-RTTI_$DIRECTIVESTREE_$$_TDEFINEVALUE$indirect
$RTTI_$DIRECTIVESTREE_$$_TDEFINEVALUE²

Q
-VMT_$KEYWORDFUNCLISTS_$$_TKEYWORDFUNCTIONLIST
VMT_$CODETREE_$$_TCODETREE
VMT_$CODETREE_$$_TCODETREENODE

FPC_EMPTYCHAR
VMT_$LAZ_AVL_TREE_$$_TAVLTREE
VMT_$CLASSES_$$_TFPLIST
VMT_$CLASSES_$$_TSTRINGLIST
VMT_$SYSTEM_$$_TOBJECT$indirect#VMT_$SYSUTILS_$$_EXCEPTION$indirectRTTI_$SYSTEM_$$_RAWBYTESTRING
RTTI_$SYSTEM_$$_LONGINT
RTTI_$SYSTEM_$$_ANSISTRING
RTTI_$SYSTEM_$$_TOBJECT
RTTI_$SYSUTILS_$$_EXCEPTION

V£JS\enw€‰’›¤­¶¿ÈÑÚãìõþ   " + 4 = F O X a j s | … Ž —   © ² » Ä Í Ö ß è ñ ú !!!!'!0!9!B!K!T!]!f!o!x!!Š!“!œ!¥!®!·!À!É!Ò!Û!ä!í!ö!ÿ!"""#","5">"G"P"Y"b"k"t"}"†""˜"¡"ª"³"¼"Å"Î"×"à"é"ò"û"#
###(#1#:#C#L#U#^#g#p#y#‚#‹#”##¦#¯#¸#Á#Ê#Ó#Ü#å#î#÷#$	$$$$$-$6$?$H$Q$Z$c$l$u$~$‡$$™$¢$«$´$½$Æ$Ï$Ø$á$ê$ó$ü$
ý
[
øœ
+’bf	DIRECTIVESTREE_$$_init$ÿÿ
oq
4

INIT$_$DIRECTIVESTREEDIRECTIVESTREE_$$_init$[øùúû(
1“w[øùú 	dsUnknown
6
 	dsDefined
7
…
#dsNotDefined
8
‹û‡
0”‘>TDefineValue
 ™¢
ÃÌÕÞçðù&/^[øùú'Name	
<
«)Status

=
´(Value
>
ºû
ù
ú-
$DIRECTIVESTREE_$$_init$
4


8$

TDefineStatus
5
>#
TDefineValue
;
D
û\
S
ü &,28AJh€Sg\

ÿ