$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronValueCompile1Impl.Mesa!14
0000000 - - S a f f r o n V a l u e C
0000020 o m p i l e 1 I m p l . m e s a
0000040 \r - - C o p y r i g h t 323
0000060 1 9 8 7 b y X e r o x C
0000100 o r p o r a t i o n . A l l
0000120 r i g h t s r e s e r v e d
0000140 . \r - - G e n e r a t e d
0000160 b y R a u e n . p a a t S
0000200 e p t e m b e r 1 , 1 9 8 8
0000220 7 : 3 3 : 0 4 p m P D T \r
0000240 - - u s i n g T h r e e
0000260 C a s a b a F o u r [ 1 . 2 ]
0000300 o f J u n e 1 , 1 9 8 7
0000320 6 : 0 0 : 0 0 p m P D T \r
0000340 \r D I R E C T O R Y \r \t S a f f
0000360 r o n A G 1 a D e f , \r \t S a f
0000400 f r o n A G 1 b D e f , \r \t S a
0000420 f f r o n P G D e f , \r \t T h r
0000440 e e C 4 S u p p o r t , \r \t S a
0000460 f f r o n B a s e D e f , \r \t B
0000500 i g I n t e g e r s , \r \t S a f
0000520 f r o n A T D e f ; \r \r S a f f
0000540 r o n V a l u e C o m p i l e 1
0000560 I m p l : C E D A R P R O G
0000600 R A M I M P O R T S S a f f
0000620 r o n P G D e f , T h r e e C
0000640 4 S u p p o r t , S a f f r o
0000660 n B a s e D e f , B i g I n t
0000700 e g e r s , S a f f r o n A T
0000720 D e f E X P O R T S S a f f
0000740 r o n A G 1 a D e f , S a f f
0000760 r o n A G 1 b D e f = \r B E G
0001000 I N \r O P E N S a f f r o n A
0001020 G 1 a D e f , S a f f r o n A
0001040 G 1 b D e f , S a f f r o n P
0001060 G D e f , T h r e e C 4 S u p
0001100 p o r t , S a f f r o n B a s
0001120 e D e f , B i g I n t e g e r
0001140 s , S a f f r o n A T D e f ;
0001160 \r E x p s u m P r o d C o m p i
0001200 l e L V a l u e : \t P U B L I C
0001220 P R O C [ r e f : R E F A
0001240 N Y , c o n t e x t T r e e :
0001260 C o n t e x t T r e e N o d e
0001300 , c s : C o m p i l e r S t
0001320 a t e N o d e ] R E T U R N S
0001340 [ t e m p 0 : P a r a m e t e
0001360 r i z e d F i e l d D e s c r i
0001400 p t o r N o d e , t e m p 1 :
0001420 T y p e G r a p h N o d e N o
0001440 d e ] = \r B E G I N \r t r e e
0001460 : \t E x p N o d e _ N A R R O
0001500 W [ r e f ] ; \r B E G I N \r E N
0001520 A B L E T h r e e C 4 S u p p
0001540 o r t . G e t S o u r c e I n f
0001560 o = > R E S U M E [ t r e e
0001600 . p o s i t i o n , t r e e .
0001620 l e n g t h ] ; \r t r e e D a t
0001640 a : \t E x p s u m P r o d D a t
0001660 a _ N A R R O W [ t r e e .
0001700 d a t a ] ; \r B E G I N \r p f d
0001720 : \t P a r a m e t e r i z e d F
0001740 i e l d D e s c r i p t o r N o
0001760 d e ; \r t g n : \t T y p e G r a
0002000 p h N o d e N o d e ; \r e r r :
0002020 \t B O O L E A N ; \r e r r _
0002040 E r r o r [ " A r i t h m e t i
0002060 c e x p r e s s i o n u s e
0002100 d a s l - v a l u e " ] ; \r
0002120 t g n _ G e t I n t r i n s
0002140 i c B o o l e a n T y p e [ c s
0002160 ] ; \r p f d _ E m p t y P F
0002200 D [ ] ; \r t e m p 1 _ t g n
0002220 ; \r t e m p 0 _ p f d ; \r E
0002240 N D ; \r E N D \r E N D ; \r \r E x
0002260 p s u m P r o d C o m p i l e E
0002300 x p r e s s i o n : \t P U B L I
0002320 C P R O C [ r e f : R E F
0002340 A N Y , c o n t e x t T r e e
0002360 : C o n t e x t T r e e N o d
0002400 e , c s : C o m p i l e r S
0002420 t a t e N o d e , t a r g e t
0002440 T y p e : T y p e G r a p h N
0002460 o d e N o d e ] R E T U R N S
0002500 [ t e m p 0 : V a l u e N o d
0002520 e , t e m p 1 : C o n t e x
0002540 t T r e e N o d e ] = \r B E G
0002560 I N \r t r e e : \t E x p N o d e
0002600 _ N A R R O W [ r e f ] ; \r B
0002620 E G I N \r E N A B L E T h r e
0002640 e C 4 S u p p o r t . G e t S o
0002660 u r c e I n f o = > R E S U
0002700 M E [ t r e e . p o s i t i o n
0002720 , t r e e . l e n g t h ] ; \r
0002740 t r e e D a t a : \t E x p s u m
0002760 P r o d D a t a _ N A R R O
0003000 W [ t r e e . d a t a ] ; \r B E
0003020 G I N \r r e s u l t : \t V a l u
0003040 e N o d e ; \r t e m p 2 : B O
0003060 O L E A N ; \r l h s T y p e : \t
0003100 T y p e G r a p h N o d e N o d
0003120 e ; \r r h s T y p e : \t T y p e
0003140 G r a p h N o d e N o d e ; \r l
0003160 h s : \t V a l u e N o d e ; \r r
0003200 h s : \t V a l u e N o d e ; \r u
0003220 n c h e c k e d R h s : \t V a l
0003240 u e N o d e ; \r c o n t e x t T
0003260 r e e 2 : \t C o n t e x t T r e
0003300 e N o d e ; \r u n c h e c k e d
0003320 L h s : \t V a l u e N o d e ; \r
0003340 c o n t e x t T r e e 1 : \t C o
0003360 n t e x t T r e e N o d e ; \r [
0003400 u n c h e c k e d L h s , c o
0003420 n t e x t T r e e 1 ] _ t r
0003440 e e D a t a . E x p l e f t . p
0003460 r o c s . C o m p i l e E x p r
0003500 e s s i o n [ t r e e D a t a .
0003520 E x p l e f t , c o n t e x t
0003540 T r e e , c s , t a r g e t
0003560 T y p e ] ; \r [ u n c h e c k e
0003600 d R h s , c o n t e x t T r e
0003620 e 2 ] _ t r e e D a t a . E
0003640 x p r i g h t . p r o c s . C o
0003660 m p i l e E x p r e s s i o n [
0003700 t r e e D a t a . E x p r i g h
0003720 t , c o n t e x t T r e e 1 ,
0003740 c s , t a r g e t T y p e ]
0003760 ; \r r h s _ D e m a n d N u
0004000 m b e r [ u n c h e c k e d R h
0004020 s ] ; \r l h s _ D e m a n d
0004040 N u m b e r [ u n c h e c k e d
0004060 L h s ] ; \r r h s T y p e _
0004100 T y p e [ r h s ] ; \r l h s T y
0004120 p e _ T y p e [ l h s ] ; \r
0004140 I F A n d [ A n d [ S t a t i
0004160 c [ l h s ] , S t a t i c [ r
0004200 h s ] ] , A n d [ C o n f o r
0004220 m s T o I n t e g e r [ l h s T
0004240 y p e ] , C o n f o r m s T o
0004260 I n t e g e r [ r h s T y p e ]
0004300 ] ] T H E N { I F t e m p
0004320 2 _ t r e e D a t a . A d d
0004340 O p . p r o c s . I s P l u s [
0004360 t r e e D a t a . A d d O p ]
0004400 T H E N { N U L L ; \r } E
0004420 L S E { N U L L ; \r } ; \r r e
0004440 s u l t _ C a s t I n t e g
0004460 e r V a l u e [ ( I F t e m p
0004500 2 T H E N A d d [ R e t r i
0004520 e v e I n t e g e r V a l u e [
0004540 l h s ] , R e t r i e v e I n
0004560 t e g e r V a l u e [ r h s ] ]
0004600 E L S E S u b [ R e t r i e
0004620 v e I n t e g e r V a l u e [ l
0004640 h s ] , R e t r i e v e I n t
0004660 e g e r V a l u e [ r h s ] ] )
0004700 , G e t I n t r i n s i c I n
0004720 t e g e r T y p e s [ c s ] ] ;
0004740 \r } E L S E { B E G I N \r c
0004760 o d e : \t P r o g r a m F r a g
0005000 m e n t N o d e ; \r p u s h L H
0005020 S : \t P r o g r a m F r a g m e
0005040 n t N o d e ; \r p u s h R H S :
0005060 \t P r o g r a m F r a g m e n t
0005100 N o d e ; \r o p : \t P r o g r a
0005120 m F r a g m e n t N o d e ; \r I
0005140 F t r e e D a t a . A d d O p
0005160 . p r o c s . I s P l u s [ t r
0005200 e e D a t a . A d d O p ] T H
0005220 E N { o p _ M a k e P G A
0005240 d d [ ] ; \r } E L S E { o p
0005260 _ M a k e P G S u b t r a c
0005300 t [ ] ; \r } ; \r p u s h R H S
0005320 _ C o d e [ r h s ] ; \r p u s
0005340 h L H S _ C o d e [ l h s ]
0005360 ; \r c o d e _ C o n c a t P
0005400 r o g r a m F r a g m e n t s [
0005420 C o n c a t P r o g r a m F r a
0005440 g m e n t s [ p u s h L H S ,
0005460 p u s h R H S ] , o p ] ; \r r
0005500 e s u l t _ M a k e R u n t
0005520 i m e V a l u e [ c o d e , t
0005540 a r g e t T y p e ] ; \r E N D ;
0005560 \r } ; \r t e m p 1 _ c o n t
0005600 e x t T r e e 2 ; \r t e m p 0
0005620 _ r e s u l t ; \r E N D ; \r E
0005640 N D \r E N D ; \r \r E x p s u m P
0005660 r o d E v a l u a t e E x p r e
0005700 s s i o n : \t P U B L I C P R
0005720 O C [ r e f : R E F A N Y ,
0005740 l c : L o c a l C o n t e x
0005760 t N o d e , f l : F i e l d
0006000 L i s t N o d e , c s : C o
0006020 m p i l e r S t a t e N o d e ,
0006040 t a r g e t T y p e : T y p
0006060 e G r a p h N o d e N o d e ]
0006100 R E T U R N S [ t e m p 0 : V
0006120 a l u e N o d e ] = \r B E G I
0006140 N \r t r e e : \t E x p N o d e _
0006160 N A R R O W [ r e f ] ; \r B E
0006200 G I N \r E N A B L E T h r e e
0006220 C 4 S u p p o r t . G e t S o u
0006240 r c e I n f o = > R E S U M
0006260 E [ t r e e . p o s i t i o n ,
0006300 t r e e . l e n g t h ] ; \r t
0006320 r e e D a t a : \t E x p s u m P
0006340 r o d D a t a _ N A R R O W
0006360 [ t r e e . d a t a ] ; \r B E G
0006400 I N \r t e m p 1 : B O O L E A
0006420 N ; \r l h s : \t V a l u e N o d
0006440 e ; \r r h s : \t V a l u e N o d
0006460 e ; \r u n c h e c k e d R h s :
0006500 \t V a l u e N o d e ; \r u n c h
0006520 e c k e d L h s : \t V a l u e N
0006540 o d e ; \r u n c h e c k e d L h
0006560 s _ t r e e D a t a . E x p
0006600 l e f t . p r o c s . E v a l u
0006620 a t e E x p r e s s i o n [ t r
0006640 e e D a t a . E x p l e f t ,
0006660 l c , f l , c s , t a r g
0006700 e t T y p e ] ; \r u n c h e c k
0006720 e d R h s _ t r e e D a t a
0006740 . E x p r i g h t . p r o c s .
0006760 E v a l u a t e E x p r e s s i
0007000 o n [ t r e e D a t a . E x p r
0007020 i g h t , l c , f l , c s
0007040 , t a r g e t T y p e ] ; \r r
0007060 h s _ D e m a n d N u m b e
0007100 r [ u n c h e c k e d R h s ] ;
0007120 \r l h s _ D e m a n d N u m
0007140 b e r [ u n c h e c k e d L h s
0007160 ] ; \r I F t e m p 1 _ t r
0007200 e e D a t a . A d d O p . p r o
0007220 c s . I s P l u s [ t r e e D a
0007240 t a . A d d O p ] T H E N {
0007260 N U L L ; \r } E L S E { N
0007300 U L L ; \r } ; \r t e m p 0 _
0007320 C a s t I n t e g e r V a l u e
0007340 [ ( I F t e m p 1 T H E N
0007360 A d d [ R e t r i e v e I n t e
0007400 g e r V a l u e [ l h s ] , R
0007420 e t r i e v e I n t e g e r V a
0007440 l u e [ r h s ] ] E L S E S
0007460 u b [ R e t r i e v e I n t e g
0007500 e r V a l u e [ l h s ] , R e
0007520 t r i e v e I n t e g e r V a l
0007540 u e [ r h s ] ] ) , G e t I n
0007560 t r i n s i c I n t e g e r T y
0007600 p e s [ c s ] ] ; \r E N D ; \r E
0007620 N D \r E N D ; \r \r E x p u n a r
0007640 y s u m P r o d C o m p i l e L
0007660 V a l u e : \t P U B L I C P R
0007700 O C [ r e f : R E F A N Y ,
0007720 c o n t e x t T r e e : C o
0007740 n t e x t T r e e N o d e , c
0007760 s : C o m p i l e r S t a t e
0010000 N o d e ] R E T U R N S [ t e
0010020 m p 0 : P a r a m e t e r i z
0010040 e d F i e l d D e s c r i p t o
0010060 r N o d e , t e m p 1 : T y
0010100 p e G r a p h N o d e N o d e ]
0010120 = \r B E G I N \r t r e e : \t E
0010140 x p N o d e _ N A R R O W [ r
0010160 e f ] ; \r B E G I N \r E N A B L
0010200 E T h r e e C 4 S u p p o r t
0010220 . G e t S o u r c e I n f o =
0010240 > R E S U M E [ t r e e . p o
0010260 s i t i o n , t r e e . l e n
0010300 g t h ] ; \r t r e e D a t a : \t
0010320 E x p u n a r y s u m P r o d D
0010340 a t a _ N A R R O W [ t r e
0010360 e . d a t a ] ; \r B E G I N \r p
0010400 f d : \t P a r a m e t e r i z e
0010420 d F i e l d D e s c r i p t o r
0010440 N o d e ; \r t g n : \t T y p e G
0010460 r a p h N o d e N o d e ; \r e r
0010500 r : \t B O O L E A N ; \r e r r
0010520 _ E r r o r [ " A r i t h m e
0010540 t i c e x p r e s s i o n u
0010560 s e d a s l - v a l u e " ]
0010600 ; \r t g n _ G e t I n t r i
0010620 n s i c B o o l e a n T y p e [
0010640 c s ] ; \r p f d _ E m p t y
0010660 P F D [ ] ; \r t e m p 1 _ t
0010700 g n ; \r t e m p 0 _ p f d ;
0010720 \r E N D ; \r E N D \r E N D ; \r \r
0010740 E x p u n a r y s u m P r o d C
0010760 o m p i l e E x p r e s s i o n
0011000 : \t P U B L I C P R O C [ r e
0011020 f : R E F A N Y , c o n t
0011040 e x t T r e e : C o n t e x t
0011060 T r e e N o d e , c s : C o
0011100 m p i l e r S t a t e N o d e ,
0011120 t a r g e t T y p e : T y p
0011140 e G r a p h N o d e N o d e ]
0011160 R E T U R N S [ t e m p 0 : V
0011200 a l u e N o d e , t e m p 1 :
0011220 C o n t e x t T r e e N o d e
0011240 ] = \r B E G I N \r t r e e : \t
0011260 E x p N o d e _ N A R R O W [
0011300 r e f ] ; \r B E G I N \r E N A B
0011320 L E T h r e e C 4 S u p p o r
0011340 t . G e t S o u r c e I n f o
0011360 = > R E S U M E [ t r e e . p
0011400 o s i t i o n , t r e e . l e
0011420 n g t h ] ; \r t r e e D a t a :
0011440 \t E x p u n a r y s u m P r o d
0011460 D a t a _ N A R R O W [ t r
0011500 e e . d a t a ] ; \r B E G I N \r
0011520 r e s u l t : \t V a l u e N o d
0011540 e ; \r t e m p 2 : B O O L E A
0011560 N ; \r r h s T y p e : \t T y p e
0011600 G r a p h N o d e N o d e ; \r r
0011620 h s : \t V a l u e N o d e ; \r u
0011640 n c h e c k e d R h s : \t V a l
0011660 u e N o d e ; \r c o n t e x t T
0011700 r e e 1 : \t C o n t e x t T r e
0011720 e N o d e ; \r [ u n c h e c k e
0011740 d R h s , c o n t e x t T r e
0011760 e 1 ] _ t r e e D a t a . E
0012000 x p . p r o c s . C o m p i l e
0012020 E x p r e s s i o n [ t r e e D
0012040 a t a . E x p , c o n t e x t
0012060 T r e e , c s , t a r g e t
0012100 T y p e ] ; \r r h s _ D e m
0012120 a n d N u m b e r [ u n c h e c
0012140 k e d R h s ] ; \r r h s T y p e
0012160 _ T y p e [ r h s ] ; \r I F
0012200 A n d [ S t a t i c [ r h s ]
0012220 , C o n f o r m s T o I n t e
0012240 g e r [ r h s T y p e ] ] T H
0012260 E N { I F t e m p 2 _ t
0012300 r e e D a t a . A d d O p . p r
0012320 o c s . I s P l u s [ t r e e D
0012340 a t a . A d d O p ] T H E N
0012360 { N U L L ; \r } E L S E {
0012400 N U L L ; \r } ; \r r e s u l t
0012420 _ C a s t I n t e g e r V a l
0012440 u e [ ( I F t e m p 2 T H E
0012460 N R e t r i e v e I n t e g e
0012500 r V a l u e [ r h s ] E L S E
0012520 N e g [ R e t r i e v e I n t
0012540 e g e r V a l u e [ r h s ] ] )
0012560 , G e t I n t r i n s i c I n
0012600 t e g e r T y p e s [ c s ] ] ;
0012620 \r } E L S E { B E G I N \r c
0012640 o d e : \t P r o g r a m F r a g
0012660 m e n t N o d e ; \r p u s h R H
0012700 S : \t P r o g r a m F r a g m e
0012720 n t N o d e ; \r p u s h R H S
0012740 _ C o d e [ r h s ] ; \r I F
0012760 t r e e D a t a . A d d O p . p
0013000 r o c s . I s P l u s [ t r e e
0013020 D a t a . A d d O p ] T H E N
0013040 { c o d e _ C o n c a t P
0013060 r o g r a m F r a g m e n t s [
0013100 p u s h R H S , M a k e P G N
0013120 o O p [ ] ] ; \r } E L S E {
0013140 c o d e _ C o n c a t P r o
0013160 g r a m F r a g m e n t s [ p u
0013200 s h R H S , M a k e P G N e g
0013220 a t e [ ] ] ; \r } ; \r r e s u l
0013240 t _ M a k e R u n t i m e V
0013260 a l u e [ c o d e , t a r g e
0013300 t T y p e ] ; \r E N D ; \r } ; \r
0013320 t e m p 1 _ c o n t e x t T
0013340 r e e 1 ; \r t e m p 0 _ r e
0013360 s u l t ; \r E N D ; \r E N D \r E
0013400 N D ; \r \r E x p u n a r y s u m
0013420 P r o d E v a l u a t e E x p r
0013440 e s s i o n : \t P U B L I C P
0013460 R O C [ r e f : R E F A N Y
0013500 , l c : L o c a l C o n t e
0013520 x t N o d e , f l : F i e l
0013540 d L i s t N o d e , c s : C
0013560 o m p i l e r S t a t e N o d e
0013600 , t a r g e t T y p e : T y
0013620 p e G r a p h N o d e N o d e ]
0013640 R E T U R N S [ t e m p 0 :
0013660 V a l u e N o d e ] = \r B E G
0013700 I N \r t r e e : \t E x p N o d e
0013720 _ N A R R O W [ r e f ] ; \r B
0013740 E G I N \r E N A B L E T h r e
0013760 e C 4 S u p p o r t . G e t S o
0014000 u r c e I n f o = > R E S U
0014020 M E [ t r e e . p o s i t i o n
0014040 , t r e e . l e n g t h ] ; \r
0014060 t r e e D a t a : \t E x p u n a
0014100 r y s u m P r o d D a t a _
0014120 N A R R O W [ t r e e . d a t a
0014140 ] ; \r B E G I N \r t e m p 1 :
0014160 B O O L E A N ; \r r h s : \t V a
0014200 l u e N o d e ; \r u n c h e c k
0014220 e d R h s : \t V a l u e N o d e
0014240 ; \r u n c h e c k e d R h s _
0014260 t r e e D a t a . E x p . p r
0014300 o c s . E v a l u a t e E x p r
0014320 e s s i o n [ t r e e D a t a .
0014340 E x p , l c , f l , c s ,
0014360 t a r g e t T y p e ] ; \r r h
0014400 s _ D e m a n d N u m b e r
0014420 [ u n c h e c k e d R h s ] ; \r
0014440 I F t e m p 1 _ t r e e D
0014460 a t a . A d d O p . p r o c s .
0014500 I s P l u s [ t r e e D a t a .
0014520 A d d O p ] T H E N { N U
0014540 L L ; \r } E L S E { N U L L
0014560 ; \r } ; \r t e m p 0 _ C a s
0014600 t I n t e g e r V a l u e [ ( I
0014620 F t e m p 1 T H E N R e t
0014640 r i e v e I n t e g e r V a l u
0014660 e [ r h s ] E L S E N e g [
0014700 R e t r i e v e I n t e g e r V
0014720 a l u e [ r h s ] ] ) , G e t
0014740 I n t r i n s i c I n t e g e r
0014760 T y p e s [ c s ] ] ; \r E N D ;
0015000 \r E N D \r E N D ; \r \r E x p p r
0015020 o d u c t P r o d C o m p i l e
0015040 L V a l u e : \t P U B L I C P
0015060 R O C [ r e f : R E F A N Y
0015100 , c o n t e x t T r e e : C
0015120 o n t e x t T r e e N o d e ,
0015140 c s : C o m p i l e r S t a t
0015160 e N o d e ] R E T U R N S [ t
0015200 e m p 0 : P a r a m e t e r i
0015220 z e d F i e l d D e s c r i p t
0015240 o r N o d e , t e m p 1 : T
0015260 y p e G r a p h N o d e N o d e
0015300 ] = \r B E G I N \r t r e e : \t
0015320 E x p N o d e _ N A R R O W [
0015340 r e f ] ; \r B E G I N \r E N A B
0015360 L E T h r e e C 4 S u p p o r
0015400 t . G e t S o u r c e I n f o
0015420 = > R E S U M E [ t r e e . p
0015440 o s i t i o n , t r e e . l e
0015460 n g t h ] ; \r t r e e D a t a :
0015500 \t E x p p r o d u c t P r o d D
0015520 a t a _ N A R R O W [ t r e
0015540 e . d a t a ] ; \r B E G I N \r p
0015560 f d : \t P a r a m e t e r i z e
0015600 d F i e l d D e s c r i p t o r
0015620 N o d e ; \r t g n : \t T y p e G
0015640 r a p h N o d e N o d e ; \r e r
0015660 r : \t B O O L E A N ; \r e r r
0015700 _ E r r o r [ " A r i t h m e
0015720 t i c e x p r e s s i o n u
0015740 s e d a s l - v a l u e " ]
0015760 ; \r t g n _ G e t I n t r i
0016000 n s i c B o o l e a n T y p e [
0016020 c s ] ; \r p f d _ E m p t y
0016040 P F D [ ] ; \r t e m p 1 _ t
0016060 g n ; \r t e m p 0 _ p f d ;
0016100 \r E N D ; \r E N D \r E N D ; \r \r
0016120 E x p p r o d u c t P r o d C o
0016140 m p i l e E x p r e s s i o n :
0016160 \t P U B L I C P R O C [ r e f
0016200 : R E F A N Y , c o n t e
0016220 x t T r e e : C o n t e x t T
0016240 r e e N o d e , c s : C o m
0016260 p i l e r S t a t e N o d e ,
0016300 t a r g e t T y p e : T y p e
0016320 G r a p h N o d e N o d e ] R
0016340 E T U R N S [ t e m p 0 : V a
0016360 l u e N o d e , t e m p 1 :
0016400 C o n t e x t T r e e N o d e ]
0016420 = \r B E G I N \r t r e e : \t E
0016440 x p N o d e _ N A R R O W [ r
0016460 e f ] ; \r B E G I N \r E N A B L
0016500 E T h r e e C 4 S u p p o r t
0016520 . G e t S o u r c e I n f o =
0016540 > R E S U M E [ t r e e . p o
0016560 s i t i o n , t r e e . l e n
0016600 g t h ] ; \r t r e e D a t a : \t
0016620 E x p p r o d u c t P r o d D a
0016640 t a _ N A R R O W [ t r e e
0016660 . d a t a ] ; \r B E G I N \r r e
0016700 s u l t : \t V a l u e N o d e ;
0016720 \r t e m p 3 : B O O L E A N ;
0016740 \r t e m p 2 : B O O L E A N ;
0016760 \r l h s T y p e : \t T y p e G r
0017000 a p h N o d e N o d e ; \r r h s
0017020 T y p e : \t T y p e G r a p h N
0017040 o d e N o d e ; \r l h s : \t V a
0017060 l u e N o d e ; \r r h s : \t V a
0017100 l u e N o d e ; \r u n c h e c k
0017120 e d R h s : \t V a l u e N o d e
0017140 ; \r c o n t e x t T r e e 2 : \t
0017160 C o n t e x t T r e e N o d e ;
0017200 \r u n c h e c k e d L h s : \t V
0017220 a l u e N o d e ; \r c o n t e x
0017240 t T r e e 1 : \t C o n t e x t T
0017260 r e e N o d e ; \r [ u n c h e c
0017300 k e d L h s , c o n t e x t T
0017320 r e e 1 ] _ t r e e D a t a
0017340 . E x p l e f t . p r o c s . C
0017360 o m p i l e E x p r e s s i o n
0017400 [ t r e e D a t a . E x p l e f
0017420 t , c o n t e x t T r e e ,
0017440 c s , t a r g e t T y p e ] ;
0017460 \r [ u n c h e c k e d R h s ,
0017500 c o n t e x t T r e e 2 ] _
0017520 t r e e D a t a . E x p r i g h
0017540 t . p r o c s . C o m p i l e E
0017560 x p r e s s i o n [ t r e e D a
0017600 t a . E x p r i g h t , c o n
0017620 t e x t T r e e 1 , c s , t
0017640 a r g e t T y p e ] ; \r r h s
0017660 _ D e m a n d N u m b e r [ u
0017700 n c h e c k e d R h s ] ; \r l h
0017720 s _ D e m a n d N u m b e r
0017740 [ u n c h e c k e d L h s ] ; \r
0017760 r h s T y p e _ T y p e [ r
0020000 h s ] ; \r l h s T y p e _ T
0020020 y p e [ l h s ] ; \r I F A n d
0020040 [ A n d [ S t a t i c [ l h s ]
0020060 , S t a t i c [ r h s ] ] ,
0020100 A n d [ C o n f o r m s T o I n
0020120 t e g e r [ l h s T y p e ] ,
0020140 C o n f o r m s T o I n t e g e
0020160 r [ r h s T y p e ] ] ] T H E
0020200 N { I F t e m p 3 _ t r
0020220 e e D a t a . M u l t O p . p r
0020240 o c s . I s T i m e s [ t r e e
0020260 D a t a . M u l t O p ] T H E
0020300 N { N U L L ; \r } E L S E
0020320 { N U L L ; \r I F t e m p 2
0020340 _ t r e e D a t a . M u l t
0020360 O p . p r o c s . I s D i v i d
0020400 e [ t r e e D a t a . M u l t O
0020420 p ] T H E N { N U L L ; \r
0020440 } E L S E { N U L L ; \r } ;
0020460 \r } ; \r r e s u l t _ C a s
0020500 t I n t e g e r V a l u e [ ( I
0020520 F t e m p 3 T H E N M u l
0020540 [ R e t r i e v e I n t e g e r
0020560 V a l u e [ l h s ] , R e t r
0020600 i e v e I n t e g e r V a l u e
0020620 [ r h s ] ] E L S E ( I F
0020640 t e m p 2 T H E N D i v [ R
0020660 e t r i e v e I n t e g e r V a
0020700 l u e [ l h s ] , R e t r i e
0020720 v e I n t e g e r V a l u e [ r
0020740 h s ] ] E L S E M o d [ R e
0020760 t r i e v e I n t e g e r V a l
0021000 u e [ l h s ] , R e t r i e v
0021020 e I n t e g e r V a l u e [ r h
0021040 s ] ] ) ) , G e t I n t r i n
0021060 s i c I n t e g e r T y p e s [
0021100 c s ] ] ; \r } E L S E { B E
0021120 G I N \r c o d e : \t P r o g r a
0021140 m F r a g m e n t N o d e ; \r p
0021160 u s h L H S : \t P r o g r a m F
0021200 r a g m e n t N o d e ; \r p u s
0021220 h R H S : \t P r o g r a m F r a
0021240 g m e n t N o d e ; \r o p : \t P
0021260 r o g r a m F r a g m e n t N o
0021300 d e ; \r I F t r e e D a t a .
0021320 M u l t O p . p r o c s . I s T
0021340 i m e s [ t r e e D a t a . M u
0021360 l t O p ] T H E N { o p _
0021400 M a k e P G M u l t i p l y [
0021420 ] ; \r } E L S E { I F t r
0021440 e e D a t a . M u l t O p . p r
0021460 o c s . I s D i v i d e [ t r e
0021500 e D a t a . M u l t O p ] T H
0021520 E N { o p _ M a k e P G D
0021540 i v i d e [ ] ; \r } E L S E
0021560 { o p _ M a k e P G M o d [
0021600 ] ; \r } ; \r } ; \r p u s h R H S
0021620 _ C o d e [ r h s ] ; \r p u
0021640 s h L H S _ C o d e [ l h s
0021660 ] ; \r c o d e _ C o n c a t
0021700 P r o g r a m F r a g m e n t s
0021720 [ C o n c a t P r o g r a m F r
0021740 a g m e n t s [ p u s h L H S ,
0021760 p u s h R H S ] , o p ] ; \r
0022000 r e s u l t _ M a k e R u n
0022020 t i m e V a l u e [ c o d e ,
0022040 t a r g e t T y p e ] ; \r E N D
0022060 ; \r } ; \r t e m p 1 _ c o n
0022100 t e x t T r e e 2 ; \r t e m p 0
0022120 _ r e s u l t ; \r E N D ; \r
0022140 E N D \r E N D ; \r \r E x p p r o
0022160 d u c t P r o d E v a l u a t e
0022200 E x p r e s s i o n : \t P U B L
0022220 I C P R O C [ r e f : R E F
0022240 A N Y , l c : L o c a l C
0022260 o n t e x t N o d e , f l :
0022300 F i e l d L i s t N o d e , c
0022320 s : C o m p i l e r S t a t e
0022340 N o d e , t a r g e t T y p e
0022360 : T y p e G r a p h N o d e N
0022400 o d e ] R E T U R N S [ t e m
0022420 p 0 : V a l u e N o d e ] =
0022440 \r B E G I N \r t r e e : \t E x p
0022460 N o d e _ N A R R O W [ r e f
0022500 ] ; \r B E G I N \r E N A B L E
0022520 T h r e e C 4 S u p p o r t . G
0022540 e t S o u r c e I n f o = >
0022560 R E S U M E [ t r e e . p o s i
0022600 t i o n , t r e e . l e n g t
0022620 h ] ; \r t r e e D a t a : \t E x
0022640 p p r o d u c t P r o d D a t a
0022660 _ N A R R O W [ t r e e . d
0022700 a t a ] ; \r B E G I N \r t e m p
0022720 2 : B O O L E A N ; \r t e m p
0022740 1 : B O O L E A N ; \r l h s :
0022760 \t V a l u e N o d e ; \r r h s :
0023000 \t V a l u e N o d e ; \r u n c h
0023020 e c k e d R h s : \t V a l u e N
0023040 o d e ; \r u n c h e c k e d L h
0023060 s : \t V a l u e N o d e ; \r u n
0023100 c h e c k e d L h s _ t r e
0023120 e D a t a . E x p l e f t . p r
0023140 o c s . E v a l u a t e E x p r
0023160 e s s i o n [ t r e e D a t a .
0023200 E x p l e f t , l c , f l ,
0023220 c s , t a r g e t T y p e ]
0023240 ; \r u n c h e c k e d R h s _
0023260 t r e e D a t a . E x p r i g
0023300 h t . p r o c s . E v a l u a t
0023320 e E x p r e s s i o n [ t r e e
0023340 D a t a . E x p r i g h t , l
0023360 c , f l , c s , t a r g e
0023400 t T y p e ] ; \r r h s _ D e
0023420 m a n d N u m b e r [ u n c h e
0023440 c k e d R h s ] ; \r l h s _
0023460 D e m a n d N u m b e r [ u n c
0023500 h e c k e d L h s ] ; \r I F t
0023520 e m p 2 _ t r e e D a t a .
0023540 M u l t O p . p r o c s . I s T
0023560 i m e s [ t r e e D a t a . M u
0023600 l t O p ] T H E N { N U L
0023620 L ; \r } E L S E { N U L L ;
0023640 \r I F t e m p 1 _ t r e e
0023660 D a t a . M u l t O p . p r o c
0023700 s . I s D i v i d e [ t r e e D
0023720 a t a . M u l t O p ] T H E N
0023740 { N U L L ; \r } E L S E
0023760 { N U L L ; \r } ; \r } ; \r t e m
0024000 p 0 _ C a s t I n t e g e r
0024020 V a l u e [ ( I F t e m p 2
0024040 T H E N M u l [ R e t r i e v
0024060 e I n t e g e r V a l u e [ l h
0024100 s ] , R e t r i e v e I n t e
0024120 g e r V a l u e [ r h s ] ] E
0024140 L S E ( I F t e m p 1 T H
0024160 E N D i v [ R e t r i e v e I
0024200 n t e g e r V a l u e [ l h s ]
0024220 , R e t r i e v e I n t e g e
0024240 r V a l u e [ r h s ] ] E L S
0024260 E M o d [ R e t r i e v e I n
0024300 t e g e r V a l u e [ l h s ] ,
0024320 R e t r i e v e I n t e g e r
0024340 V a l u e [ r h s ] ] ) ) , G
0024360 e t I n t r i n s i c I n t e g
0024400 e r T y p e s [ c s ] ] ; \r E N
0024420 D ; \r E N D \r E N D ; \r \r E x p
0024440 o r P r o d C o m p i l e L V a
0024460 l u e : \t P U B L I C P R O C
0024500 [ r e f : R E F A N Y , c
0024520 o n t e x t T r e e : C o n t
0024540 e x t T r e e N o d e , c s :
0024560 C o m p i l e r S t a t e N o
0024600 d e ] R E T U R N S [ t e m p
0024620 0 : P a r a m e t e r i z e d
0024640 F i e l d D e s c r i p t o r N
0024660 o d e , t e m p 1 : T y p e
0024700 G r a p h N o d e N o d e ] =
0024720 \r B E G I N \r t r e e : \t E x p
0024740 N o d e _ N A R R O W [ r e f
0024760 ] ; \r B E G I N \r E N A B L E
0025000 T h r e e C 4 S u p p o r t . G
0025020 e t S o u r c e I n f o = >
0025040 R E S U M E [ t r e e . p o s i
0025060 t i o n , t r e e . l e n g t
0025100 h ] ; \r t r e e D a t a : \t E x
0025120 p o r P r o d D a t a _ N A
0025140 R R O W [ t r e e . d a t a ] ;
0025160 \r B E G I N \r p f d : \t P a r a
0025200 m e t e r i z e d F i e l d D e
0025220 s c r i p t o r N o d e ; \r t g
0025240 n : \t T y p e G r a p h N o d e
0025260 N o d e ; \r e r r : \t B O O L E
0025300 A N ; \r e r r _ E r r o r [
0025320 " O R e x p r e s s i o n u
0025340 s e d a s l - v a l u e " ]
0025360 ; \r t g n _ G e t I n t r i
0025400 n s i c B o o l e a n T y p e [
0025420 c s ] ; \r p f d _ E m p t y
0025440 P F D [ ] ; \r t e m p 1 _ t
0025460 g n ; \r t e m p 0 _ p f d ;
0025500 \r E N D ; \r E N D \r E N D ; \r \r
0025520 E x p o r P r o d C o m p i l e
0025540 E x p r e s s i o n : \t P U B L
0025560 I C P R O C [ r e f : R E F
0025600 A N Y , c o n t e x t T r e
0025620 e : C o n t e x t T r e e N o
0025640 d e , c s : C o m p i l e r
0025660 S t a t e N o d e , t a r g e
0025700 t T y p e : T y p e G r a p h
0025720 N o d e N o d e ] R E T U R N
0025740 S [ t e m p 0 : V a l u e N o
0025760 d e , t e m p 1 : C o n t e
0026000 x t T r e e N o d e ] = \r B E
0026020 G I N \r t r e e : \t E x p N o d
0026040 e _ N A R R O W [ r e f ] ; \r
0026060 B E G I N \r E N A B L E T h r
0026100 e e C 4 S u p p o r t . G e t S
0026120 o u r c e I n f o = > R E S
0026140 U M E [ t r e e . p o s i t i o
0026160 n , t r e e . l e n g t h ] ;
0026200 \r t r e e D a t a : \t E x p o r
0026220 P r o d D a t a _ N A R R O
0026240 W [ t r e e . d a t a ] ; \r B E
0026260 G I N \r r e s u l t : \t V a l u
0026300 e N o d e ; \r r h s : \t V a l u
0026320 e N o d e ; \r c o n t e x t T r
0026340 e e 2 : \t C o n t e x t T r e e
0026360 N o d e ; \r l h s : \t V a l u e
0026400 N o d e ; \r c o n t e x t T r e
0026420 e 1 : \t C o n t e x t T r e e N
0026440 o d e ; \r b o o l e a n : \t T y
0026460 p e G r a p h N o d e N o d e ;
0026500 \r b o o l e a n _ G e t I n
0026520 t r i n s i c B o o l e a n T y
0026540 p e [ c s ] ; \r [ l h s , c o
0026560 n t e x t T r e e 1 ] _ C o
0026600 m p i l e A n d T y p e C h e c
0026620 k E x p r e s s i o n [ t r e e
0026640 D a t a . E x p l e f t , c o
0026660 n t e x t T r e e , c s , b
0026700 o o l e a n ] ; \r [ r h s , c
0026720 o n t e x t T r e e 2 ] _ C
0026740 o m p i l e A n d T y p e C h e
0026760 c k E x p r e s s i o n [ t r e
0027000 e D a t a . E x p r i g h t ,
0027020 c o n t e x t T r e e 1 , c s
0027040 , b o o l e a n ] ; \r I F A
0027060 n d [ S t a t i c [ l h s ] ,
0027100 S t a t i c [ r h s ] ] T H E
0027120 N { r e s u l t _ M a k e
0027140 S t a t i c B o o l e a n [ O r
0027160 [ B o o l e a n V a l u e [ l h
0027200 s ] , B o o l e a n V a l u e
0027220 [ r h s ] ] , b o o l e a n ]
0027240 ; \r } E L S E { B E G I N \r
0027260 c o d e : \t P r o g r a m F r a
0027300 g m e n t N o d e ; \r p u s h L
0027320 H S : \t P r o g r a m F r a g m
0027340 e n t N o d e ; \r p u s h R H S
0027360 : \t P r o g r a m F r a g m e n
0027400 t N o d e ; \r o p : \t P r o g r
0027420 a m F r a g m e n t N o d e ; \r
0027440 o p _ M a k e P G O r [ ] ;
0027460 \r p u s h R H S _ C o d e [
0027500 r h s ] ; \r p u s h L H S _
0027520 C o d e [ l h s ] ; \r c o d e
0027540 _ C o n c a t P r o g r a m F
0027560 r a g m e n t s [ C o n c a t P
0027600 r o g r a m F r a g m e n t s [
0027620 p u s h L H S , p u s h R H S
0027640 ] , o p ] ; \r r e s u l t _
0027660 M a k e R u n t i m e V a l u
0027700 e [ c o d e , b o o l e a n ]
0027720 ; \r E N D ; \r } ; \r t e m p 1
0027740 _ c o n t e x t T r e e 2 ; \r
0027760 t e m p 0 _ r e s u l t ; \r
0030000 E N D ; \r E N D \r E N D ; \r \r E
0030020 x p o r P r o d E v a l u a t e
0030040 E x p r e s s i o n : \t P U B L
0030060 I C P R O C [ r e f : R E F
0030100 A N Y , l c : L o c a l C
0030120 o n t e x t N o d e , f l :
0030140 F i e l d L i s t N o d e , c
0030160 s : C o m p i l e r S t a t e
0030200 N o d e , t a r g e t T y p e
0030220 : T y p e G r a p h N o d e N
0030240 o d e ] R E T U R N S [ t e m
0030260 p 0 : V a l u e N o d e ] =
0030300 \r B E G I N \r t r e e : \t E x p
0030320 N o d e _ N A R R O W [ r e f
0030340 ] ; \r B E G I N \r E N A B L E
0030360 T h r e e C 4 S u p p o r t . G
0030400 e t S o u r c e I n f o = >
0030420 R E S U M E [ t r e e . p o s i
0030440 t i o n , t r e e . l e n g t
0030460 h ] ; \r t r e e D a t a : \t E x
0030500 p o r P r o d D a t a _ N A
0030520 R R O W [ t r e e . d a t a ] ;
0030540 \r B E G I N \r r h s : \t V a l u
0030560 e N o d e ; \r l h s : \t V a l u
0030600 e N o d e ; \r b o o l e a n : \t
0030620 T y p e G r a p h N o d e N o d
0030640 e ; \r b o o l e a n _ G e t
0030660 I n t r i n s i c B o o l e a n
0030700 T y p e [ c s ] ; \r l h s _
0030720 E v a l u a t e A n d T y p e C
0030740 h e c k E x p r e s s i o n [ t
0030760 r e e D a t a . E x p l e f t ,
0031000 l c , f l , c s , b o o
0031020 l e a n ] ; \r r h s _ E v a
0031040 l u a t e A n d T y p e C h e c
0031060 k E x p r e s s i o n [ t r e e
0031100 D a t a . E x p r i g h t , l
0031120 c , f l , c s , b o o l e
0031140 a n ] ; \r t e m p 0 _ M a k
0031160 e S t a t i c B o o l e a n [ O
0031200 r [ B o o l e a n V a l u e [ l
0031220 h s ] , B o o l e a n V a l u
0031240 e [ r h s ] ] , b o o l e a n
0031260 ] ; \r E N D ; \r E N D \r E N D ;
0031300 \r \r E x p a n d P r o d C o m p
0031320 i l e L V a l u e : \t P U B L I
0031340 C P R O C [ r e f : R E F
0031360 A N Y , c o n t e x t T r e e
0031400 : C o n t e x t T r e e N o d
0031420 e , c s : C o m p i l e r S
0031440 t a t e N o d e ] R E T U R N
0031460 S [ t e m p 0 : P a r a m e t
0031500 e r i z e d F i e l d D e s c r
0031520 i p t o r N o d e , t e m p 1
0031540 : T y p e G r a p h N o d e N
0031560 o d e ] = \r B E G I N \r t r e
0031600 e : \t E x p N o d e _ N A R R
0031620 O W [ r e f ] ; \r B E G I N \r E
0031640 N A B L E T h r e e C 4 S u p
0031660 p o r t . G e t S o u r c e I n
0031700 f o = > R E S U M E [ t r e
0031720 e . p o s i t i o n , t r e e
0031740 . l e n g t h ] ; \r t r e e D a
0031760 t a : \t E x p a n d P r o d D a
0032000 t a _ N A R R O W [ t r e e
0032020 . d a t a ] ; \r B E G I N \r p f
0032040 d : \t P a r a m e t e r i z e d
0032060 F i e l d D e s c r i p t o r N
0032100 o d e ; \r t g n : \t T y p e G r
0032120 a p h N o d e N o d e ; \r e r r
0032140 : \t B O O L E A N ; \r e r r _
0032160 E r r o r [ " A N D e x p r
0032200 e s s i o n u s e d a s l
0032220 - v a l u e " ] ; \r t g n _
0032240 G e t I n t r i n s i c B o o l
0032260 e a n T y p e [ c s ] ; \r p f d
0032300 _ E m p t y P F D [ ] ; \r t
0032320 e m p 1 _ t g n ; \r t e m p
0032340 0 _ p f d ; \r E N D ; \r E N
0032360 D \r E N D ; \r \r E x p a n d P r
0032400 o d C o m p i l e E x p r e s s
0032420 i o n : \t P U B L I C P R O C
0032440 [ r e f : R E F A N Y , c
0032460 o n t e x t T r e e : C o n t
0032500 e x t T r e e N o d e , c s :
0032520 C o m p i l e r S t a t e N o
0032540 d e , t a r g e t T y p e :
0032560 T y p e G r a p h N o d e N o d
0032600 e ] R E T U R N S [ t e m p 0
0032620 : V a l u e N o d e , t e m
0032640 p 1 : C o n t e x t T r e e N
0032660 o d e ] = \r B E G I N \r t r e
0032700 e : \t E x p N o d e _ N A R R
0032720 O W [ r e f ] ; \r B E G I N \r E
0032740 N A B L E T h r e e C 4 S u p
0032760 p o r t . G e t S o u r c e I n
0033000 f o = > R E S U M E [ t r e
0033020 e . p o s i t i o n , t r e e
0033040 . l e n g t h ] ; \r t r e e D a
0033060 t a : \t E x p a n d P r o d D a
0033100 t a _ N A R R O W [ t r e e
0033120 . d a t a ] ; \r B E G I N \r r e
0033140 s u l t : \t V a l u e N o d e ;
0033160 \r r h s : \t V a l u e N o d e ;
0033200 \r c o n t e x t T r e e 2 : \t C
0033220 o n t e x t T r e e N o d e ; \r
0033240 l h s : \t V a l u e N o d e ; \r
0033260 c o n t e x t T r e e 1 : \t C o
0033300 n t e x t T r e e N o d e ; \r b
0033320 o o l e a n : \t T y p e G r a p
0033340 h N o d e N o d e ; \r b o o l e
0033360 a n _ G e t I n t r i n s i
0033400 c B o o l e a n T y p e [ c s ]
0033420 ; \r [ l h s , c o n t e x t T
0033440 r e e 1 ] _ C o m p i l e A
0033460 n d T y p e C h e c k E x p r e
0033500 s s i o n [ t r e e D a t a . E
0033520 x p l e f t , c o n t e x t T
0033540 r e e , c s , b o o l e a n
0033560 ] ; \r [ r h s , c o n t e x t
0033600 T r e e 2 ] _ C o m p i l e
0033620 A n d T y p e C h e c k E x p r
0033640 e s s i o n [ t r e e D a t a .
0033660 E x p r i g h t , c o n t e x
0033700 t T r e e 1 , c s , b o o l
0033720 e a n ] ; \r I F A n d [ S t a
0033740 t i c [ l h s ] , S t a t i c
0033760 [ r h s ] ] T H E N { r e s
0034000 u l t _ M a k e S t a t i c
0034020 B o o l e a n [ A n d [ B o o l
0034040 e a n V a l u e [ l h s ] , B
0034060 o o l e a n V a l u e [ r h s ]
0034100 ] , b o o l e a n ] ; \r } E
0034120 L S E { B E G I N \r c o d e :
0034140 \t P r o g r a m F r a g m e n t
0034160 N o d e ; \r p u s h L H S : \t P
0034200 r o g r a m F r a g m e n t N o
0034220 d e ; \r p u s h R H S : \t P r o
0034240 g r a m F r a g m e n t N o d e
0034260 ; \r o p : \t P r o g r a m F r a
0034300 g m e n t N o d e ; \r o p _
0034320 M a k e P G A n d [ ] ; \r p u s
0034340 h R H S _ C o d e [ r h s ]
0034360 ; \r p u s h L H S _ C o d e
0034400 [ l h s ] ; \r c o d e _ C o
0034420 n c a t P r o g r a m F r a g m
0034440 e n t s [ C o n c a t P r o g r
0034460 a m F r a g m e n t s [ p u s h
0034500 L H S , p u s h R H S ] , o
0034520 p ] ; \r r e s u l t _ M a k
0034540 e R u n t i m e V a l u e [ c o
0034560 d e , b o o l e a n ] ; \r E N
0034600 D ; \r } ; \r t e m p 1 _ c o
0034620 n t e x t T r e e 2 ; \r t e m p
0034640 0 _ r e s u l t ; \r E N D ;
0034660 \r E N D \r E N D ; \r \r E x p a n
0034700 d P r o d E v a l u a t e E x p
0034720 r e s s i o n : \t P U B L I C
0034740 P R O C [ r e f : R E F A N
0034760 Y , l c : L o c a l C o n t
0035000 e x t N o d e , f l : F i e
0035020 l d L i s t N o d e , c s :
0035040 C o m p i l e r S t a t e N o d
0035060 e , t a r g e t T y p e : T
0035100 y p e G r a p h N o d e N o d e
0035120 ] R E T U R N S [ t e m p 0 :
0035140 V a l u e N o d e ] = \r B E
0035160 G I N \r t r e e : \t E x p N o d
0035200 e _ N A R R O W [ r e f ] ; \r
0035220 B E G I N \r E N A B L E T h r
0035240 e e C 4 S u p p o r t . G e t S
0035260 o u r c e I n f o = > R E S
0035300 U M E [ t r e e . p o s i t i o
0035320 n , t r e e . l e n g t h ] ;
0035340 \r t r e e D a t a : \t E x p a n
0035360 d P r o d D a t a _ N A R R
0035400 O W [ t r e e . d a t a ] ; \r B
0035420 E G I N \r r h s : \t V a l u e N
0035440 o d e ; \r l h s : \t V a l u e N
0035460 o d e ; \r b o o l e a n : \t T y
0035500 p e G r a p h N o d e N o d e ;
0035520 \r b o o l e a n _ G e t I n
0035540 t r i n s i c B o o l e a n T y
0035560 p e [ c s ] ; \r l h s _ E v
0035600 a l u a t e A n d T y p e C h e
0035620 c k E x p r e s s i o n [ t r e
0035640 e D a t a . E x p l e f t , l
0035660 c , f l , c s , b o o l e
0035700 a n ] ; \r r h s _ E v a l u
0035720 a t e A n d T y p e C h e c k E
0035740 x p r e s s i o n [ t r e e D a
0035760 t a . E x p r i g h t , l c ,
0036000 f l , c s , b o o l e a n
0036020 ] ; \r t e m p 0 _ M a k e S
0036040 t a t i c B o o l e a n [ A n d
0036060 [ B o o l e a n V a l u e [ l h
0036100 s ] , B o o l e a n V a l u e
0036120 [ r h s ] ] , b o o l e a n ]
0036140 ; \r E N D ; \r E N D \r E N D ; \r
0036160 \r E x p n o t P r o d C o m p i
0036200 l e L V a l u e : \t P U B L I C
0036220 P R O C [ r e f : R E F A
0036240 N Y , c o n t e x t T r e e :
0036260 C o n t e x t T r e e N o d e
0036300 , c s : C o m p i l e r S t
0036320 a t e N o d e ] R E T U R N S
0036340 [ t e m p 0 : P a r a m e t e
0036360 r i z e d F i e l d D e s c r i
0036400 p t o r N o d e , t e m p 1 :
0036420 T y p e G r a p h N o d e N o
0036440 d e ] = \r B E G I N \r t r e e
0036460 : \t E x p N o d e _ N A R R O
0036500 W [ r e f ] ; \r B E G I N \r E N
0036520 A B L E T h r e e C 4 S u p p
0036540 o r t . G e t S o u r c e I n f
0036560 o = > R E S U M E [ t r e e
0036600 . p o s i t i o n , t r e e .
0036620 l e n g t h ] ; \r t r e e D a t
0036640 a : \t E x p n o t P r o d D a t
0036660 a _ N A R R O W [ t r e e .
0036700 d a t a ] ; \r B E G I N \r p f d
0036720 : \t P a r a m e t e r i z e d F
0036740 i e l d D e s c r i p t o r N o
0036760 d e ; \r t g n : \t T y p e G r a
0037000 p h N o d e N o d e ; \r e r r :
0037020 \t B O O L E A N ; \r e r r _
0037040 E r r o r [ " N O T e x p r e
0037060 s s i o n u s e d a s l -
0037100 v a l u e " ] ; \r t g n _ G
0037120 e t I n t r i n s i c B o o l e
0037140 a n T y p e [ c s ] ; \r p f d
0037160 _ E m p t y P F D [ ] ; \r t e
0037200 m p 1 _ t g n ; \r t e m p 0
0037220 _ p f d ; \r E N D ; \r E N D
0037240 \r E N D ; \r \r E x p n o t P r o
0037260 d C o m p i l e E x p r e s s i
0037300 o n : \t P U B L I C P R O C [
0037320 r e f : R E F A N Y , c o
0037340 n t e x t T r e e : C o n t e
0037360 x t T r e e N o d e , c s :
0037400 C o m p i l e r S t a t e N o d
0037420 e , t a r g e t T y p e : T
0037440 y p e G r a p h N o d e N o d e
0037460 ] R E T U R N S [ t e m p 0 :
0037500 V a l u e N o d e , t e m p
0037520 1 : C o n t e x t T r e e N o
0037540 d e ] = \r B E G I N \r t r e e
0037560 : \t E x p N o d e _ N A R R O
0037600 W [ r e f ] ; \r B E G I N \r E N
0037620 A B L E T h r e e C 4 S u p p
0037640 o r t . G e t S o u r c e I n f
0037660 o = > R E S U M E [ t r e e
0037700 . p o s i t i o n , t r e e .
0037720 l e n g t h ] ; \r t r e e D a t
0037740 a : \t E x p n o t P r o d D a t
0037760 a _ N A R R O W [ t r e e .
0040000 d a t a ] ; \r B E G I N \r r e s
0040020 u l t : \t V a l u e N o d e ; \r
0040040 r h s : \t V a l u e N o d e ; \r
0040060 c o n t e x t T r e e 1 : \t C o
0040100 n t e x t T r e e N o d e ; \r b
0040120 o o l e a n : \t T y p e G r a p
0040140 h N o d e N o d e ; \r b o o l e
0040160 a n _ G e t I n t r i n s i
0040200 c B o o l e a n T y p e [ c s ]
0040220 ; \r [ r h s , c o n t e x t T
0040240 r e e 1 ] _ C o m p i l e A
0040260 n d T y p e C h e c k E x p r e
0040300 s s i o n [ t r e e D a t a . E
0040320 x p , c o n t e x t T r e e ,
0040340 c s , b o o l e a n ] ; \r I
0040360 F S t a t i c [ r h s ] T H
0040400 E N { r e s u l t _ M a k
0040420 e S t a t i c B o o l e a n [ N
0040440 o t [ B o o l e a n V a l u e [
0040460 r h s ] ] , b o o l e a n ] ;
0040500 \r } E L S E { B E G I N \r c
0040520 o d e : \t P r o g r a m F r a g
0040540 m e n t N o d e ; \r c o d e _
0040560 C o n c a t P r o g r a m F r
0040600 a g m e n t s [ C o d e [ r h s
0040620 ] , M a k e P G N o t [ ] ] ;
0040640 \r r e s u l t _ M a k e R u
0040660 n t i m e V a l u e [ c o d e ,
0040700 b o o l e a n ] ; \r E N D ; \r
0040720 } ; \r t e m p 1 _ c o n t e
0040740 x t T r e e 1 ; \r t e m p 0 _
0040760 r e s u l t ; \r E N D ; \r E N
0041000 D \r E N D ; \r \r E x p n o t P r
0041020 o d E v a l u a t e E x p r e s
0041040 s i o n : \t P U B L I C P R O
0041060 C [ r e f : R E F A N Y ,
0041100 l c : L o c a l C o n t e x t
0041120 N o d e , f l : F i e l d L
0041140 i s t N o d e , c s : C o m
0041160 p i l e r S t a t e N o d e ,
0041200 t a r g e t T y p e : T y p e
0041220 G r a p h N o d e N o d e ] R
0041240 E T U R N S [ t e m p 0 : V a
0041260 l u e N o d e ] = \r B E G I N
0041300 \r t r e e : \t E x p N o d e _
0041320 N A R R O W [ r e f ] ; \r B E G
0041340 I N \r E N A B L E T h r e e C
0041360 4 S u p p o r t . G e t S o u r
0041400 c e I n f o = > R E S U M E
0041420 [ t r e e . p o s i t i o n ,
0041440 t r e e . l e n g t h ] ; \r t r
0041460 e e D a t a : \t E x p n o t P r
0041500 o d D a t a _ N A R R O W [
0041520 t r e e . d a t a ] ; \r B E G I
0041540 N \r r h s : \t V a l u e N o d e
0041560 ; \r b o o l e a n : \t T y p e G
0041600 r a p h N o d e N o d e ; \r b o
0041620 o l e a n _ G e t I n t r i
0041640 n s i c B o o l e a n T y p e [
0041660 c s ] ; \r r h s _ E v a l u
0041700 a t e A n d T y p e C h e c k E
0041720 x p r e s s i o n [ t r e e D a
0041740 t a . E x p , l c , f l ,
0041760 c s , b o o l e a n ] ; \r t e
0042000 m p 0 _ M a k e S t a t i c
0042020 B o o l e a n [ N o t [ B o o l
0042040 e a n V a l u e [ r h s ] ] ,
0042060 b o o l e a n ] ; \r E N D ; \r E
0042100 N D \r E N D ; \r \r E x p r e l a
0042120 t i o n P r o d C o m p i l e L
0042140 V a l u e : \t P U B L I C P R
0042160 O C [ r e f : R E F A N Y ,
0042200 c o n t e x t T r e e : C o
0042220 n t e x t T r e e N o d e , c
0042240 s : C o m p i l e r S t a t e
0042260 N o d e ] R E T U R N S [ t e
0042300 m p 0 : P a r a m e t e r i z
0042320 e d F i e l d D e s c r i p t o
0042340 r N o d e , t e m p 1 : T y
0042360 p e G r a p h N o d e N o d e ]
0042400 = \r B E G I N \r t r e e : \t E
0042420 x p N o d e _ N A R R O W [ r
0042440 e f ] ; \r B E G I N \r E N A B L
0042460 E T h r e e C 4 S u p p o r t
0042500 . G e t S o u r c e I n f o =
0042520 > R E S U M E [ t r e e . p o
0042540 s i t i o n , t r e e . l e n
0042560 g t h ] ; \r t r e e D a t a : \t
0042600 E x p r e l a t i o n P r o d D
0042620 a t a _ N A R R O W [ t r e
0042640 e . d a t a ] ; \r B E G I N \r p
0042660 f d : \t P a r a m e t e r i z e
0042700 d F i e l d D e s c r i p t o r
0042720 N o d e ; \r t g n : \t T y p e G
0042740 r a p h N o d e N o d e ; \r e r
0042760 r : \t B O O L E A N ; \r e r r
0043000 _ E r r o r [ " R e l a t i o
0043020 n u s e d a s l - v a l u
0043040 e " ] ; \r t g n _ G e t I n
0043060 t r i n s i c B o o l e a n T y
0043100 p e [ c s ] ; \r p f d _ E m
0043120 p t y P F D [ ] ; \r t e m p 1
0043140 _ t g n ; \r t e m p 0 _ p
0043160 f d ; \r E N D ; \r E N D \r E N D
0043200 ; \r \r E x p r e l a t i o n P r
0043220 o d C o m p i l e E x p r e s s
0043240 i o n : \t P U B L I C P R O C
0043260 [ r e f : R E F A N Y , c
0043300 o n t e x t T r e e : C o n t
0043320 e x t T r e e N o d e , c s :
0043340 C o m p i l e r S t a t e N o
0043360 d e , t a r g e t T y p e :
0043400 T y p e G r a p h N o d e N o d
0043420 e ] R E T U R N S [ t e m p 0
0043440 : V a l u e N o d e , t e m
0043460 p 1 : C o n t e x t T r e e N
0043500 o d e ] = \r B E G I N \r t r e
0043520 e : \t E x p N o d e _ N A R R
0043540 O W [ r e f ] ; \r B E G I N \r E
0043560 N A B L E T h r e e C 4 S u p
0043600 p o r t . G e t S o u r c e I n
0043620 f o = > R E S U M E [ t r e
0043640 e . p o s i t i o n , t r e e
0043660 . l e n g t h ] ; \r t r e e D a
0043700 t a : \t E x p r e l a t i o n P
0043720 r o d D a t a _ N A R R O W
0043740 [ t r e e . d a t a ] ; \r B E G
0043760 I N \r r e s u l t : \t V a l u e
0044000 N o d e ; \r c o n t e x t T r e
0044020 e 1 : \t C o n t e x t T r e e N
0044040 o d e ; \r c o n t e x t T r e e
0044060 1 _ F a k e D a m a g e C o
0044100 n t e x t T r e e [ c o n t e x
0044120 t T r e e ] ; \r r e s u l t _
0044140 M a k e D u m m y [ " r e l a
0044160 t i o n " ] ; \r t e m p 1 _
0044200 c o n t e x t T r e e 1 ; \r t e
0044220 m p 0 _ r e s u l t ; \r E N
0044240 D ; \r E N D \r E N D ; \r \r E x p
0044260 r e l a t i o n P r o d E v a l
0044300 u a t e E x p r e s s i o n : \t
0044320 P U B L I C P R O C [ r e f :
0044340 R E F A N Y , l c : L o
0044360 c a l C o n t e x t N o d e ,
0044400 f l : F i e l d L i s t N o d
0044420 e , c s : C o m p i l e r S
0044440 t a t e N o d e , t a r g e t
0044460 T y p e : T y p e G r a p h N
0044500 o d e N o d e ] R E T U R N S
0044520 [ t e m p 0 : V a l u e N o d
0044540 e ] = \r B E G I N \r t r e e :
0044560 \t E x p N o d e _ N A R R O W
0044600 [ r e f ] ; \r B E G I N \r E N A
0044620 B L E T h r e e C 4 S u p p o
0044640 r t . G e t S o u r c e I n f o
0044660 = > R E S U M E [ t r e e .
0044700 p o s i t i o n , t r e e . l
0044720 e n g t h ] ; \r t r e e D a t a
0044740 : \t E x p r e l a t i o n P r o
0044760 d D a t a _ N A R R O W [ t
0045000 r e e . d a t a ] ; \r t e m p 0
0045020 _ M a k e D u m m y [ " r e
0045040 l a t i o n " ] ; \r E N D \r E N
0045060 D ; \r \r E x p i f t h e n e l s
0045100 e P r o d C o m p i l e L V a l
0045120 u e : \t P U B L I C P R O C [
0045140 r e f : R E F A N Y , c o
0045160 n t e x t T r e e : C o n t e
0045200 x t T r e e N o d e , c s :
0045220 C o m p i l e r S t a t e N o d
0045240 e ] R E T U R N S [ t e m p 0
0045260 : P a r a m e t e r i z e d F
0045300 i e l d D e s c r i p t o r N o
0045320 d e , t e m p 1 : T y p e G
0045340 r a p h N o d e N o d e ] = \r
0045360 B E G I N \r t r e e : \t E x p N
0045400 o d e _ N A R R O W [ r e f ]
0045420 ; \r B E G I N \r E N A B L E T
0045440 h r e e C 4 S u p p o r t . G e
0045460 t S o u r c e I n f o = > R
0045500 E S U M E [ t r e e . p o s i t
0045520 i o n , t r e e . l e n g t h
0045540 ] ; \r t r e e D a t a : \t E x p
0045560 i f t h e n e l s e P r o d D a
0045600 t a _ N A R R O W [ t r e e
0045620 . d a t a ] ; \r B E G I N \r p f
0045640 d : \t P a r a m e t e r i z e d
0045660 F i e l d D e s c r i p t o r N
0045700 o d e ; \r t g n : \t T y p e G r
0045720 a p h N o d e N o d e ; \r e r r
0045740 : \t B O O L E A N ; \r e r r _
0045760 E r r o r [ " I F e x p r e
0046000 s s i o n u s e d a s l -
0046020 v a l u e " ] ; \r t g n _ G
0046040 e t I n t r i n s i c B o o l e
0046060 a n T y p e [ c s ] ; \r p f d
0046100 _ E m p t y P F D [ ] ; \r t e
0046120 m p 1 _ t g n ; \r t e m p 0
0046140 _ p f d ; \r E N D ; \r E N D
0046160 \r E N D ; \r \r E x p i f t h e n
0046200 e l s e P r o d C o m p i l e E
0046220 x p r e s s i o n : \t P U B L I
0046240 C P R O C [ r e f : R E F
0046260 A N Y , c o n t e x t T r e e
0046300 : C o n t e x t T r e e N o d
0046320 e , c s : C o m p i l e r S
0046340 t a t e N o d e , t a r g e t
0046360 T y p e : T y p e G r a p h N
0046400 o d e N o d e ] R E T U R N S
0046420 [ t e m p 0 : V a l u e N o d
0046440 e , t e m p 1 : C o n t e x
0046460 t T r e e N o d e ] = \r B E G
0046500 I N \r t r e e : \t E x p N o d e
0046520 _ N A R R O W [ r e f ] ; \r B
0046540 E G I N \r E N A B L E T h r e
0046560 e C 4 S u p p o r t . G e t S o
0046600 u r c e I n f o = > R E S U
0046620 M E [ t r e e . p o s i t i o n
0046640 , t r e e . l e n g t h ] ; \r
0046660 t r e e D a t a : \t E x p i f t
0046700 h e n e l s e P r o d D a t a
0046720 _ N A R R O W [ t r e e . d a
0046740 t a ] ; \r B E G I N \r r e s u l
0046760 t : \t V a l u e N o d e ; \r c o
0047000 n t e x t T r e e 4 : \t C o n t
0047020 e x t T r e e N o d e ; \r c o n
0047040 d i t i o n : \t V a l u e N o d
0047060 e ; \r c o n t e x t T r e e 1 :
0047100 \t C o n t e x t T r e e N o d e
0047120 ; \r b o o l e a n T y p e : \t T
0047140 y p e G r a p h N o d e N o d e
0047160 ; \r b o o l e a n T y p e _
0047200 G e t I n t r i n s i c B o o l
0047220 e a n T y p e [ c s ] ; \r [ c o
0047240 n d i t i o n , c o n t e x t
0047260 T r e e 1 ] _ C o m p i l e
0047300 A n d T y p e C h e c k E x p r
0047320 e s s i o n [ t r e e D a t a .
0047340 E x p c o n d , c o n t e x t
0047360 T r e e , c s , b o o l e a
0047400 n T y p e ] ; \r I F S t a t i
0047420 c [ c o n d i t i o n ] T H E
0047440 N { I F B o o l e a n V a l
0047460 u e [ c o n d i t i o n ] T H
0047500 E N { [ r e s u l t , c o n
0047520 t e x t T r e e 4 ] _ C o m
0047540 p i l e A n d T y p e C h e c k
0047560 E x p r e s s i o n [ t r e e D
0047600 a t a . E x p t h e n p a r t ,
0047620 c o n t e x t T r e e 1 , c
0047640 s , t a r g e t T y p e ] ; \r
0047660 } E L S E { [ r e s u l t ,
0047700 c o n t e x t T r e e 4 ] _
0047720 C o m p i l e A n d T y p e C
0047740 h e c k E x p r e s s i o n [ t
0047760 r e e D a t a . E x p e l s e p
0050000 a r t , c o n t e x t T r e e
0050020 1 , c s , t a r g e t T y p
0050040 e ] ; \r } ; \r } E L S E { B
0050060 E G I N \r c o d e : \t P r o g r
0050100 a m F r a g m e n t N o d e ; \r
0050120 e l s e P a r t : \t V a l u e N
0050140 o d e ; \r c o n t e x t T r e e
0050160 3 : \t C o n t e x t T r e e N o
0050200 d e ; \r t h e n P a r t : \t V a
0050220 l u e N o d e ; \r c o n t e x t
0050240 T r e e 2 : \t C o n t e x t T r
0050260 e e N o d e ; \r [ t h e n P a r
0050300 t , c o n t e x t T r e e 2 ]
0050320 _ C o m p i l e A n d T y p
0050340 e C h e c k E x p r e s s i o n
0050360 [ t r e e D a t a . E x p t h e
0050400 n p a r t , c o n t e x t T r
0050420 e e 1 , c s , t a r g e t T
0050440 y p e ] ; \r [ e l s e P a r t ,
0050460 c o n t e x t T r e e 3 ] _
0050500 C o m p i l e A n d T y p e C
0050520 h e c k E x p r e s s i o n [ t
0050540 r e e D a t a . E x p e l s e p
0050560 a r t , c o n t e x t T r e e
0050600 2 , c s , t a r g e t T y p
0050620 e ] ; \r c o d e _ M a k e P
0050640 G T e s t [ C o d e [ c o n d i
0050660 t i o n ] , C o d e [ t h e n
0050700 P a r t ] , C o d e [ e l s e
0050720 P a r t ] ] ; \r c o n t e x t T
0050740 r e e 4 _ c o n t e x t T r
0050760 e e 3 ; \r r e s u l t _ M a
0051000 k e R u n t i m e V a l u e [ c
0051020 o d e , t a r g e t T y p e ]
0051040 ; \r E N D ; \r } ; \r t e m p 1
0051060 _ c o n t e x t T r e e 4 ; \r
0051100 t e m p 0 _ r e s u l t ; \r
0051120 E N D ; \r E N D \r E N D ; \r \r E
0051140 x p i f t h e n e l s e P r o d
0051160 E v a l u a t e E x p r e s s i
0051200 o n : \t P U B L I C P R O C [
0051220 r e f : R E F A N Y , l c
0051240 : L o c a l C o n t e x t N o
0051260 d e , f l : F i e l d L i s
0051300 t N o d e , c s : C o m p i
0051320 l e r S t a t e N o d e , t a
0051340 r g e t T y p e : T y p e G r
0051360 a p h N o d e N o d e ] R E T
0051400 U R N S [ t e m p 0 : V a l u
0051420 e N o d e ] = \r B E G I N \r t
0051440 r e e : \t E x p N o d e _ N A
0051460 R R O W [ r e f ] ; \r B E G I N
0051500 \r E N A B L E T h r e e C 4 S
0051520 u p p o r t . G e t S o u r c e
0051540 I n f o = > R E S U M E [ t
0051560 r e e . p o s i t i o n , t r
0051600 e e . l e n g t h ] ; \r t r e e
0051620 D a t a : \t E x p i f t h e n e
0051640 l s e P r o d D a t a _ N A
0051660 R R O W [ t r e e . d a t a ] ;
0051700 \r B E G I N \r b o o l e a n : \t
0051720 T y p e G r a p h N o d e N o d
0051740 e ; \r b o o l e a n _ G e t
0051760 I n t r i n s i c B o o l e a n
0052000 T y p e [ c s ] ; \r I F B o o
0052020 l e a n V a l u e [ E v a l u a
0052040 t e A n d T y p e C h e c k E x
0052060 p r e s s i o n [ t r e e D a t
0052100 a . E x p c o n d , l c , f
0052120 l , c s , b o o l e a n ] ]
0052140 T H E N { t e m p 0 _ E
0052160 v a l u a t e A n d T y p e C h
0052200 e c k E x p r e s s i o n [ t r
0052220 e e D a t a . E x p t h e n p a
0052240 r t , l c , f l , c s ,
0052260 t a r g e t T y p e ] ; \r } E
0052300 L S E { t e m p 0 _ E v a
0052320 l u a t e A n d T y p e C h e c
0052340 k E x p r e s s i o n [ t r e e
0052360 D a t a . E x p e l s e p a r t
0052400 , l c , f l , c s , t a
0052420 r g e t T y p e ] ; \r } ; \r E N
0052440 D ; \r E N D \r E N D ; \r \r E x p
0052460 s e l e c t P r o d C o m p i l
0052500 e L V a l u e : \t P U B L I C
0052520 P R O C [ r e f : R E F A N
0052540 Y , c o n t e x t T r e e :
0052560 C o n t e x t T r e e N o d e ,
0052600 c s : C o m p i l e r S t a
0052620 t e N o d e ] R E T U R N S [
0052640 t e m p 0 : P a r a m e t e r
0052660 i z e d F i e l d D e s c r i p
0052700 t o r N o d e , t e m p 1 :
0052720 T y p e G r a p h N o d e N o d
0052740 e ] = \r B E G I N \r t r e e :
0052760 \t E x p N o d e _ N A R R O W
0053000 [ r e f ] ; \r B E G I N \r E N A
0053020 B L E T h r e e C 4 S u p p o
0053040 r t . G e t S o u r c e I n f o
0053060 = > R E S U M E [ t r e e .
0053100 p o s i t i o n , t r e e . l
0053120 e n g t h ] ; \r t r e e D a t a
0053140 : \t E x p s e l e c t P r o d D
0053160 a t a _ N A R R O W [ t r e
0053200 e . d a t a ] ; \r B E G I N \r p
0053220 f d : \t P a r a m e t e r i z e
0053240 d F i e l d D e s c r i p t o r
0053260 N o d e ; \r t g n : \t T y p e G
0053300 r a p h N o d e N o d e ; \r e r
0053320 r : \t B O O L E A N ; \r e r r
0053340 _ E r r o r [ " S E L E C T
0053360 e x p r e s s i o n u s e d
0053400 a s l - v a l u e " ] ; \r t g
0053420 n _ G e t I n t r i n s i c
0053440 B o o l e a n T y p e [ c s ] ;
0053460 \r p f d _ E m p t y P F D [
0053500 ] ; \r t e m p 1 _ t g n ; \r
0053520 t e m p 0 _ p f d ; \r E N D
0053540 ; \r E N D \r E N D ; \r \r E x p s
0053560 e l e c t P r o d C o m p i l e
0053600 E x p r e s s i o n : \t P U B L
0053620 I C P R O C [ r e f : R E F
0053640 A N Y , c o n t e x t T r e
0053660 e : C o n t e x t T r e e N o
0053700 d e , c s : C o m p i l e r
0053720 S t a t e N o d e , t a r g e
0053740 t T y p e : T y p e G r a p h
0053760 N o d e N o d e ] R E T U R N
0054000 S [ t e m p 0 : V a l u e N o
0054020 d e , t e m p 1 : C o n t e
0054040 x t T r e e N o d e ] = \r B E
0054060 G I N \r t r e e : \t E x p N o d
0054100 e _ N A R R O W [ r e f ] ; \r
0054120 B E G I N \r E N A B L E T h r
0054140 e e C 4 S u p p o r t . G e t S
0054160 o u r c e I n f o = > R E S
0054200 U M E [ t r e e . p o s i t i o
0054220 n , t r e e . l e n g t h ] ;
0054240 \r t r e e D a t a : \t E x p s e
0054260 l e c t P r o d D a t a _ N
0054300 A R R O W [ t r e e . d a t a ]
0054320 ; \r B E G I N \r r e s u l t : \t
0054340 V a l u e N o d e ; \r c o n t e
0054360 x t T r e e 1 : \t C o n t e x t
0054400 T r e e N o d e ; \r c o n t e x
0054420 t T r e e 1 _ F a k e D a m
0054440 a g e C o n t e x t T r e e [ c
0054460 o n t e x t T r e e ] ; \r r e s
0054500 u l t _ M a k e D u m m y [
0054520 " s e l e c t " ] ; \r t e m p 1
0054540 _ c o n t e x t T r e e 1 ;
0054560 \r t e m p 0 _ r e s u l t ;
0054600 \r E N D ; \r E N D \r E N D ; \r \r
0054620 E x p s e l e c t P r o d E v a
0054640 l u a t e E x p r e s s i o n :
0054660 \t P U B L I C P R O C [ r e f
0054700 : R E F A N Y , l c : L
0054720 o c a l C o n t e x t N o d e ,
0054740 f l : F i e l d L i s t N o
0054760 d e , c s : C o m p i l e r
0055000 S t a t e N o d e , t a r g e
0055020 t T y p e : T y p e G r a p h
0055040 N o d e N o d e ] R E T U R N
0055060 S [ t e m p 0 : V a l u e N o
0055100 d e ] = \r B E G I N \r t r e e
0055120 : \t E x p N o d e _ N A R R O
0055140 W [ r e f ] ; \r B E G I N \r E N
0055160 A B L E T h r e e C 4 S u p p
0055200 o r t . G e t S o u r c e I n f
0055220 o = > R E S U M E [ t r e e
0055240 . p o s i t i o n , t r e e .
0055260 l e n g t h ] ; \r t r e e D a t
0055300 a : \t E x p s e l e c t P r o d
0055320 D a t a _ N A R R O W [ t r
0055340 e e . d a t a ] ; \r t e m p 0
0055360 _ M a k e D u m m y [ " s e l
0055400 e c t " ] ; \r E N D \r E N D ; \r
0055420 \r E x p a s s i g n P r o d C o
0055440 m p i l e L V a l u e : \t P U B
0055460 L I C P R O C [ r e f : R E
0055500 F A N Y , c o n t e x t T r
0055520 e e : C o n t e x t T r e e N
0055540 o d e , c s : C o m p i l e
0055560 r S t a t e N o d e ] R E T U
0055600 R N S [ t e m p 0 : P a r a m
0055620 e t e r i z e d F i e l d D e s
0055640 c r i p t o r N o d e , t e m
0055660 p 1 : T y p e G r a p h N o d
0055700 e N o d e ] = \r B E G I N \r t
0055720 r e e : \t E x p N o d e _ N A
0055740 R R O W [ r e f ] ; \r B E G I N
0055760 \r E N A B L E T h r e e C 4 S
0056000 u p p o r t . G e t S o u r c e
0056020 I n f o = > R E S U M E [ t
0056040 r e e . p o s i t i o n , t r
0056060 e e . l e n g t h ] ; \r t r e e
0056100 D a t a : \t E x p a s s i g n P
0056120 r o d D a t a _ N A R R O W
0056140 [ t r e e . d a t a ] ; \r B E G
0056160 I N \r p f d : \t P a r a m e t e
0056200 r i z e d F i e l d D e s c r i
0056220 p t o r N o d e ; \r t g n : \t T
0056240 y p e G r a p h N o d e N o d e
0056260 ; \r e r r : \t B O O L E A N ; \r
0056300 e r r _ E r r o r [ " A s s
0056320 i g n m e n t e x p r e s s i
0056340 o n u s e d a s l - v a l
0056360 u e " ] ; \r t g n _ G e t I
0056400 n t r i n s i c B o o l e a n T
0056420 y p e [ c s ] ; \r p f d _ E
0056440 m p t y P F D [ ] ; \r t e m p 1
0056460 _ t g n ; \r t e m p 0 _
0056500 p f d ; \r E N D ; \r E N D \r E N
0056520 D ; \r \r E x p a s s i g n P r o
0056540 d C o m p i l e E x p r e s s i
0056560 o n : \t P U B L I C P R O C [
0056600 r e f : R E F A N Y , c o
0056620 n t e x t T r e e : C o n t e
0056640 x t T r e e N o d e , c s :
0056660 C o m p i l e r S t a t e N o d
0056700 e , t a r g e t T y p e : T
0056720 y p e G r a p h N o d e N o d e
0056740 ] R E T U R N S [ t e m p 0 :
0056760 V a l u e N o d e , t e m p
0057000 1 : C o n t e x t T r e e N o
0057020 d e ] = \r B E G I N \r t r e e
0057040 : \t E x p N o d e _ N A R R O
0057060 W [ r e f ] ; \r B E G I N \r E N
0057100 A B L E T h r e e C 4 S u p p
0057120 o r t . G e t S o u r c e I n f
0057140 o = > R E S U M E [ t r e e
0057160 . p o s i t i o n , t r e e .
0057200 l e n g t h ] ; \r t r e e D a t
0057220 a : \t E x p a s s i g n P r o d
0057240 D a t a _ N A R R O W [ t r
0057260 e e . d a t a ] ; \r B E G I N \r
0057300 r e s u l t : \t V a l u e N o d
0057320 e ; \r c o d e : \t P r o g r a m
0057340 F r a g m e n t N o d e ; \r s t
0057360 o r e T O S : \t P r o g r a m F
0057400 r a g m e n t N o d e ; \r r h s
0057420 V a l u e : \t V a l u e N o d e
0057440 ; \r c o n t e x t T r e e 1 : \t
0057460 C o n t e x t T r e e N o d e ;
0057500 \r l v a l u e : \t P a r a m e t
0057520 e r i z e d F i e l d D e s c r
0057540 i p t o r N o d e ; \r t g n : \t
0057560 T y p e G r a p h N o d e N o d
0057600 e ; \r [ l v a l u e , t g n ]
0057620 _ t r e e D a t a . E x p l
0057640 h s . p r o c s . C o m p i l e
0057660 L V a l u e [ t r e e D a t a .
0057700 E x p l h s , c o n t e x t T
0057720 r e e , c s ] ; \r [ r h s V a
0057740 l u e , c o n t e x t T r e e
0057760 1 ] _ C o m p i l e A n d T
0060000 y p e C h e c k E x p r e s s i
0060020 o n [ t r e e D a t a . E x p r
0060040 h s , c o n t e x t T r e e ,
0060060 c s , t g n ] ; \r I F P F
0060100 D I s L o c a l [ l v a l u e ]
0060120 T H E N { s t o r e T O S
0060140 _ M a k e P G S t o r e L o c
0060160 a l [ l v a l u e ] ; \r } E L
0060200 S E { s t o r e T O S _ M
0060220 a k e P G S t o r e I n d i r e
0060240 c t [ l v a l u e ] ; \r } ; \r c
0060260 o d e _ C o n c a t P r o g
0060300 r a m F r a g m e n t s [ C o d
0060320 e [ r h s V a l u e ] , s t o
0060340 r e T O S ] ; \r r e s u l t _
0060360 M a k e R u n t i m e V a l u
0060400 e [ c o d e , t g n ] ; \r t e
0060420 m p 1 _ c o n t e x t T r e
0060440 e 1 ; \r t e m p 0 _ r e s u
0060460 l t ; \r E N D ; \r E N D \r E N D
0060500 ; \r \r E x p a s s i g n P r o d
0060520 E v a l u a t e E x p r e s s i
0060540 o n : \t P U B L I C P R O C [
0060560 r e f : R E F A N Y , l c
0060600 : L o c a l C o n t e x t N o
0060620 d e , f l : F i e l d L i s
0060640 t N o d e , c s : C o m p i
0060660 l e r S t a t e N o d e , t a
0060700 r g e t T y p e : T y p e G r
0060720 a p h N o d e N o d e ] R E T
0060740 U R N S [ t e m p 0 : V a l u
0060760 e N o d e ] = \r B E G I N \r t
0061000 r e e : \t E x p N o d e _ N A
0061020 R R O W [ r e f ] ; \r B E G I N
0061040 \r E N A B L E T h r e e C 4 S
0061060 u p p o r t . G e t S o u r c e
0061100 I n f o = > R E S U M E [ t
0061120 r e e . p o s i t i o n , t r
0061140 e e . l e n g t h ] ; \r t r e e
0061160 D a t a : \t E x p a s s i g n P
0061200 r o d D a t a _ N A R R O W
0061220 [ t r e e . d a t a ] ; \r B E G
0061240 I N \r e r r : \t B O O L E A N ;
0061260 \r e r r _ E r r o r [ " E x
0061300 p . a s s i g n s h o u l d
0061320 n e v e r b e e v a l u a t
0061340 e d ! " ] ; \r t e m p 0 _ M
0061360 a k e T r a s h [ t a r g e t T
0061400 y p e ] ; \r E N D ; \r E N D \r E
0061420 N D ; \r \r E x p m u l t i a s s
0061440 i g n P r o d C o m p i l e L V
0061460 a l u e : \t P U B L I C P R O
0061500 C [ r e f : R E F A N Y ,
0061520 c o n t e x t T r e e : C o n
0061540 t e x t T r e e N o d e , c s
0061560 : C o m p i l e r S t a t e N
0061600 o d e ] R E T U R N S [ t e m
0061620 p 0 : P a r a m e t e r i z e
0061640 d F i e l d D e s c r i p t o r
0061660 N o d e , t e m p 1 : T y p
0061700 e G r a p h N o d e N o d e ]
0061720 = \r B E G I N \r t r e e : \t E x
0061740 p N o d e _ N A R R O W [ r e
0061760 f ] ; \r B E G I N \r E N A B L E
0062000 T h r e e C 4 S u p p o r t .
0062020 G e t S o u r c e I n f o = >
0062040 R E S U M E [ t r e e . p o s
0062060 i t i o n , t r e e . l e n g
0062100 t h ] ; \r t r e e D a t a : \t E
0062120 x p m u l t i a s s i g n P r o
0062140 d D a t a _ N A R R O W [ t
0062160 r e e . d a t a ] ; \r B E G I N
0062200 \r p f d : \t P a r a m e t e r i
0062220 z e d F i e l d D e s c r i p t
0062240 o r N o d e ; \r t g n : \t T y p
0062260 e G r a p h N o d e N o d e ; \r
0062300 e r r : \t B O O L E A N ; \r e r
0062320 r _ E r r o r [ " M u l t i
0062340 p l e a s s i g n m e n t e
0062360 x p r e s s i o n u s e d a
0062400 s l - v a l u e " ] ; \r t g n
0062420 _ G e t I n t r i n s i c B
0062440 o o l e a n T y p e [ c s ] ; \r
0062460 p f d _ E m p t y P F D [ ]
0062500 ; \r t e m p 1 _ t g n ; \r t
0062520 e m p 0 _ p f d ; \r E N D ;
0062540 \r E N D \r E N D ; \r \r E x p m u
0062560 l t i a s s i g n P r o d C o m
0062600 p i l e E x p r e s s i o n : \t
0062620 P U B L I C P R O C [ r e f :
0062640 R E F A N Y , c o n t e x
0062660 t T r e e : C o n t e x t T r
0062700 e e N o d e , c s : C o m p
0062720 i l e r S t a t e N o d e , t
0062740 a r g e t T y p e : T y p e G
0062760 r a p h N o d e N o d e ] R E
0063000 T U R N S [ t e m p 0 : V a l
0063020 u e N o d e , t e m p 1 : C
0063040 o n t e x t T r e e N o d e ]
0063060 = \r B E G I N \r t r e e : \t E x
0063100 p N o d e _ N A R R O W [ r e
0063120 f ] ; \r B E G I N \r E N A B L E
0063140 T h r e e C 4 S u p p o r t .
0063160 G e t S o u r c e I n f o = >
0063200 R E S U M E [ t r e e . p o s
0063220 i t i o n , t r e e . l e n g
0063240 t h ] ; \r t r e e D a t a : \t E
0063260 x p m u l t i a s s i g n P r o
0063300 d D a t a _ N A R R O W [ t
0063320 r e e . d a t a ] ; \r B E G I N
0063340 \r r e s u l t : \t V a l u e N o
0063360 d e ; \r c o n t e x t T r e e 1
0063400 : \t C o n t e x t T r e e N o d
0063420 e ; \r c o n t e x t T r e e 1
0063440 _ F a k e D a m a g e C o n t
0063460 e x t T r e e [ c o n t e x t T
0063500 r e e ] ; \r r e s u l t _ M
0063520 a k e D u m m y [ " m u l t i a
0063540 s s i g n " ] ; \r t e m p 1 _
0063560 c o n t e x t T r e e 1 ; \r t
0063600 e m p 0 _ r e s u l t ; \r E
0063620 N D ; \r E N D \r E N D ; \r \r E x
0063640 p m u l t i a s s i g n P r o d
0063660 E v a l u a t e E x p r e s s i
0063700 o n : \t P U B L I C P R O C [
0063720 r e f : R E F A N Y , l c
0063740 : L o c a l C o n t e x t N o
0063760 d e , f l : F i e l d L i s
0064000 t N o d e , c s : C o m p i
0064020 l e r S t a t e N o d e , t a
0064040 r g e t T y p e : T y p e G r
0064060 a p h N o d e N o d e ] R E T
0064100 U R N S [ t e m p 0 : V a l u
0064120 e N o d e ] = \r B E G I N \r t
0064140 r e e : \t E x p N o d e _ N A
0064160 R R O W [ r e f ] ; \r B E G I N
0064200 \r E N A B L E T h r e e C 4 S
0064220 u p p o r t . G e t S o u r c e
0064240 I n f o = > R E S U M E [ t
0064260 r e e . p o s i t i o n , t r
0064300 e e . l e n g t h ] ; \r t r e e
0064320 D a t a : \t E x p m u l t i a s
0064340 s i g n P r o d D a t a _ N
0064360 A R R O W [ t r e e . d a t a ]
0064400 ; \r B E G I N \r e r r : \t B O O
0064420 L E A N ; \r e r r _ E r r o
0064440 r [ " E x p . m u l t i a s s i
0064460 g n s h o u l d n e v e r
0064500 b e e v a l u a t e d ! " ] ;
0064520 \r t e m p 0 _ M a k e T r a
0064540 s h [ t a r g e t T y p e ] ; \r
0064560 E N D ; \r E N D \r E N D ; \r \r E
0064600 x p i d P r o d C o m p i l e L
0064620 V a l u e : \t P U B L I C P R
0064640 O C [ r e f : R E F A N Y ,
0064660 c o n t e x t T r e e : C o
0064700 n t e x t T r e e N o d e , c
0064720 s : C o m p i l e r S t a t e
0064740 N o d e ] R E T U R N S [ t e
0064760 m p 0 : P a r a m e t e r i z
0065000 e d F i e l d D e s c r i p t o
0065020 r N o d e , t e m p 1 : T y
0065040 p e G r a p h N o d e N o d e ]
0065060 = \r B E G I N \r t r e e : \t E
0065100 x p N o d e _ N A R R O W [ r
0065120 e f ] ; \r B E G I N \r E N A B L
0065140 E T h r e e C 4 S u p p o r t
0065160 . G e t S o u r c e I n f o =
0065200 > R E S U M E [ t r e e . p o
0065220 s i t i o n , t r e e . l e n
0065240 g t h ] ; \r t r e e D a t a : \t
0065260 E x p i d P r o d D a t a _
0065300 N A R R O W [ t r e e . d a t a
0065320 ] ; \r [ t e m p 0 , t e m p 1
0065340 ] _ G e t P a t h T o N a m
0065360 e [ c o n t e x t T r e e , t
0065400 r e e D a t a . I d ] ; \r E N D
0065420 \r E N D ; \r \r E x p i d P r o d
0065440 C o m p i l e E x p r e s s i o
0065460 n : \t P U B L I C P R O C [ r
0065500 e f : R E F A N Y , c o n
0065520 t e x t T r e e : C o n t e x
0065540 t T r e e N o d e , c s : C
0065560 o m p i l e r S t a t e N o d e
0065600 , t a r g e t T y p e : T y
0065620 p e G r a p h N o d e N o d e ]
0065640 R E T U R N S [ t e m p 0 :
0065660 V a l u e N o d e , t e m p 1
0065700 : C o n t e x t T r e e N o d
0065720 e ] = \r B E G I N \r t r e e :
0065740 \t E x p N o d e _ N A R R O W
0065760 [ r e f ] ; \r B E G I N \r E N A
0066000 B L E T h r e e C 4 S u p p o
0066020 r t . G e t S o u r c e I n f o
0066040 = > R E S U M E [ t r e e .
0066060 p o s i t i o n , t r e e . l
0066100 e n g t h ] ; \r t r e e D a t a
0066120 : \t E x p i d P r o d D a t a
0066140 _ N A R R O W [ t r e e . d a
0066160 t a ] ; \r B E G I N \r c o n t e
0066200 x t T r e e 1 : \t C o n t e x t
0066220 T r e e N o d e ; \r r e s u l t
0066240 : \t V a l u e N o d e ; \r e x p
0066260 A s L V a l u e : \t P a r a m e
0066300 t e r i z e d F i e l d D e s c
0066320 r i p t o r N o d e ; \r t g n :
0066340 \t T y p e G r a p h N o d e N o
0066360 d e ; \r [ e x p A s L V a l u e
0066400 , t g n ] _ t r e e . p r
0066420 o c s . C o m p i l e L V a l u
0066440 e [ t r e e , c o n t e x t T
0066460 r e e , c s ] ; \r r e s u l t
0066500 _ C o m p i l e L V a l u e
0066520 I n t o R V a l u e [ e x p A s
0066540 L V a l u e , c o n t e x t T
0066560 r e e ] ; \r c o n t e x t T r e
0066600 e 1 _ F a k e D a m a g e C
0066620 o n t e x t T r e e [ c o n t e
0066640 x t T r e e ] ; \r t e m p 1 _
0066660 c o n t e x t T r e e 1 ; \r t
0066700 e m p 0 _ r e s u l t ; \r E
0066720 N D ; \r E N D \r E N D ; \r \r E x
0066740 p i d P r o d E v a l u a t e E
0066760 x p r e s s i o n : \t P U B L I
0067000 C P R O C [ r e f : R E F
0067020 A N Y , l c : L o c a l C o
0067040 n t e x t N o d e , f l : F
0067060 i e l d L i s t N o d e , c s
0067100 : C o m p i l e r S t a t e N
0067120 o d e , t a r g e t T y p e :
0067140 T y p e G r a p h N o d e N o
0067160 d e ] R E T U R N S [ t e m p
0067200 0 : V a l u e N o d e ] = \r
0067220 B E G I N \r t r e e : \t E x p N
0067240 o d e _ N A R R O W [ r e f ]
0067260 ; \r B E G I N \r E N A B L E T
0067300 h r e e C 4 S u p p o r t . G e
0067320 t S o u r c e I n f o = > R
0067340 E S U M E [ t r e e . p o s i t
0067360 i o n , t r e e . l e n g t h
0067400 ] ; \r t r e e D a t a : \t E x p
0067420 i d P r o d D a t a _ N A R
0067440 R O W [ t r e e . d a t a ] ; \r
0067460 B E G I N \r r e s u l t : \t V a
0067500 l u e N o d e ; \r a c c e s s :
0067520 \t A c c e s s V a l N o d e ; \r
0067540 t g n : \t T y p e G r a p h N o
0067560 d e N o d e ; \r i n i t i a l i
0067600 z a t i o n : \t I n i t i a l i
0067620 z a t i o n P T r e e N o d e ;
0067640 \r v a l u e : \t V a l u e N o d
0067660 e ; \r f i e l d 2 : \t F i e l d
0067700 N o d e ; \r f i e l d 1 : \t F i
0067720 e l d N o d e ; \r f i e l d 1
0067740 _ L o o k u p N a m e I n F i
0067760 e l d L i s t [ f l , t r e e
0070000 D a t a . I d ] ; \r I F F i e
0070020 l d E x i s t s [ f i e l d 1 ]
0070040 T H E N { f i e l d 2 _
0070060 f i e l d 1 ; \r } E L S E {
0070100 f i e l d 2 _ L o o k u p N
0070120 a m e I n C o n t e x t R i b [
0070140 t r e e D a t a . I d , P a r
0070160 e n t R i b [ l c ] ] ; \r } ; \r
0070200 [ a c c e s s , t g n , i n
0070220 i t i a l i z a t i o n , v a
0070240 l u e ] _ D e m a n d C o n
0070260 s t a n t F i e l d [ f i e l d
0070300 2 ] ; \r I F S t a t i c [ v a
0070320 l u e ] T H E N { r e s u l
0070340 t _ v a l u e ; \r } E L S
0070360 E { B E G I N \r e r r : \t B O
0070400 O L E A N ; \r e r r _ E r r
0070420 o r [ " b l a t " ] ; \r r e s u
0070440 l t _ M a k e D u m m y [ "
0070460 " ] ; \r E N D ; \r } ; \r t e m p
0070500 0 _ r e s u l t ; \r E N D ;
0070520 \r E N D \r E N D ; \r \r E x p n u
0070540 m P r o d C o m p i l e L V a l
0070560 u e : \t P U B L I C P R O C [
0070600 r e f : R E F A N Y , c o
0070620 n t e x t T r e e : C o n t e
0070640 x t T r e e N o d e , c s :
0070660 C o m p i l e r S t a t e N o d
0070700 e ] R E T U R N S [ t e m p 0
0070720 : P a r a m e t e r i z e d F
0070740 i e l d D e s c r i p t o r N o
0070760 d e , t e m p 1 : T y p e G
0071000 r a p h N o d e N o d e ] = \r
0071020 B E G I N \r t r e e : \t E x p N
0071040 o d e _ N A R R O W [ r e f ]
0071060 ; \r B E G I N \r E N A B L E T
0071100 h r e e C 4 S u p p o r t . G e
0071120 t S o u r c e I n f o = > R
0071140 E S U M E [ t r e e . p o s i t
0071160 i o n , t r e e . l e n g t h
0071200 ] ; \r t r e e D a t a : \t E x p
0071220 n u m P r o d D a t a _ N A
0071240 R R O W [ t r e e . d a t a ] ;
0071260 \r B E G I N \r p f d : \t P a r a
0071300 m e t e r i z e d F i e l d D e
0071320 s c r i p t o r N o d e ; \r t g
0071340 n : \t T y p e G r a p h N o d e
0071360 N o d e ; \r e r r : \t B O O L E
0071400 A N ; \r e r r _ E r r o r [
0071420 " N u m b e r l i t e r a l
0071440 u s e d a s l - v a l u e "
0071460 ] ; \r t g n _ G e t I n t r
0071500 i n s i c B o o l e a n T y p e
0071520 [ c s ] ; \r p f d _ E m p t
0071540 y P F D [ ] ; \r t e m p 1 _
0071560 t g n ; \r t e m p 0 _ p f d
0071600 ; \r E N D ; \r E N D \r E N D ; \r
0071620 \r E x p n u m P r o d C o m p i
0071640 l e E x p r e s s i o n : \t P U
0071660 B L I C P R O C [ r e f : R
0071700 E F A N Y , c o n t e x t T
0071720 r e e : C o n t e x t T r e e
0071740 N o d e , c s : C o m p i l
0071760 e r S t a t e N o d e , t a r
0072000 g e t T y p e : T y p e G r a
0072020 p h N o d e N o d e ] R E T U
0072040 R N S [ t e m p 0 : V a l u e
0072060 N o d e , t e m p 1 : C o n
0072100 t e x t T r e e N o d e ] = \r
0072120 B E G I N \r t r e e : \t E x p N
0072140 o d e _ N A R R O W [ r e f ]
0072160 ; \r B E G I N \r E N A B L E T
0072200 h r e e C 4 S u p p o r t . G e
0072220 t S o u r c e I n f o = > R
0072240 E S U M E [ t r e e . p o s i t
0072260 i o n , t r e e . l e n g t h
0072300 ] ; \r t r e e D a t a : \t E x p
0072320 n u m P r o d D a t a _ N A
0072340 R R O W [ t r e e . d a t a ] ;
0072360 \r B E G I N \r r e s u l t : \t V
0072400 a l u e N o d e ; \r i n t e g e
0072420 r V a l u e : \t B i g I N T ; \r
0072440 c o n t e x t T r e e 1 : \t C o
0072460 n t e x t T r e e N o d e ; \r c
0072500 o n t e x t T r e e 1 _ F a
0072520 k e D a m a g e C o n t e x t T
0072540 r e e [ c o n t e x t T r e e ]
0072560 ; \r i n t e g e r V a l u e _
0072600 t r e e D a t a . N u m . p r
0072620 o c s . I n t e g e r V a l u e
0072640 F r o m L i t e r a l [ t r e e
0072660 D a t a . N u m ] ; \r r e s u l
0072700 t _ C a s t I n t e g e r V
0072720 a l u e [ i n t e g e r V a l u
0072740 e , G e t I n t r i n s i c I
0072760 n t e g e r T y p e s [ c s ] ]
0073000 ; \r t e m p 1 _ c o n t e x
0073020 t T r e e 1 ; \r t e m p 0 _
0073040 r e s u l t ; \r E N D ; \r E N D
0073060 \r E N D ; \r \r E x p n u m P r o
0073100 d E v a l u a t e E x p r e s s
0073120 i o n : \t P U B L I C P R O C
0073140 [ r e f : R E F A N Y , l
0073160 c : L o c a l C o n t e x t N
0073200 o d e , f l : F i e l d L i
0073220 s t N o d e , c s : C o m p
0073240 i l e r S t a t e N o d e , t
0073260 a r g e t T y p e : T y p e G
0073300 r a p h N o d e N o d e ] R E
0073320 T U R N S [ t e m p 0 : V a l
0073340 u e N o d e ] = \r B E G I N \r
0073360 t r e e : \t E x p N o d e _ N
0073400 A R R O W [ r e f ] ; \r B E G I
0073420 N \r E N A B L E T h r e e C 4
0073440 S u p p o r t . G e t S o u r c
0073460 e I n f o = > R E S U M E [
0073500 t r e e . p o s i t i o n , t
0073520 r e e . l e n g t h ] ; \r t r e
0073540 e D a t a : \t E x p n u m P r o
0073560 d D a t a _ N A R R O W [ t
0073600 r e e . d a t a ] ; \r B E G I N
0073620 \r r e s u l t : \t V a l u e N o
0073640 d e ; \r i n t e g e r V a l u e
0073660 : \t B i g I N T ; \r i n t e g e
0073700 r V a l u e _ t r e e D a t
0073720 a . N u m . p r o c s . I n t e
0073740 g e r V a l u e F r o m L i t e
0073760 r a l [ t r e e D a t a . N u m
0074000 ] ; \r r e s u l t _ C a s t
0074020 I n t e g e r V a l u e [ i n t
0074040 e g e r V a l u e , G e t I n
0074060 t r i n s i c I n t e g e r T y
0074100 p e s [ c s ] ] ; \r t e m p 0
0074120 _ r e s u l t ; \r E N D ; \r E
0074140 N D \r E N D ; \r \r E x p s t r i
0074160 n g P r o d C o m p i l e L V a
0074200 l u e : \t P U B L I C P R O C
0074220 [ r e f : R E F A N Y , c
0074240 o n t e x t T r e e : C o n t
0074260 e x t T r e e N o d e , c s :
0074300 C o m p i l e r S t a t e N o
0074320 d e ] R E T U R N S [ t e m p
0074340 0 : P a r a m e t e r i z e d
0074360 F i e l d D e s c r i p t o r N
0074400 o d e , t e m p 1 : T y p e
0074420 G r a p h N o d e N o d e ] =
0074440 \r B E G I N \r t r e e : \t E x p
0074460 N o d e _ N A R R O W [ r e f
0074500 ] ; \r B E G I N \r E N A B L E
0074520 T h r e e C 4 S u p p o r t . G
0074540 e t S o u r c e I n f o = >
0074560 R E S U M E [ t r e e . p o s i
0074600 t i o n , t r e e . l e n g t
0074620 h ] ; \r t r e e D a t a : \t E x
0074640 p s t r i n g P r o d D a t a
0074660 _ N A R R O W [ t r e e . d a
0074700 t a ] ; \r B E G I N \r p f d : \t
0074720 P a r a m e t e r i z e d F i e
0074740 l d D e s c r i p t o r N o d e
0074760 ; \r t g n : \t T y p e G r a p h
0075000 N o d e N o d e ; \r e r r : \t B
0075020 O O L E A N ; \r e r r _ E r
0075040 r o r [ " S t r i n g l i t e
0075060 r a l u s e d a s l - v a
0075100 l u e " ] ; \r t g n _ G e t
0075120 I n t r i n s i c B o o l e a n
0075140 T y p e [ c s ] ; \r p f d _
0075160 E m p t y P F D [ ] ; \r t e m p
0075200 1 _ t g n ; \r t e m p 0 _
0075220 p f d ; \r E N D ; \r E N D \r E
0075240 N D ; \r \r E x p s t r i n g P r
0075260 o d C o m p i l e E x p r e s s
0075300 i o n : \t P U B L I C P R O C
0075320 [ r e f : R E F A N Y , c
0075340 o n t e x t T r e e : C o n t
0075360 e x t T r e e N o d e , c s :
0075400 C o m p i l e r S t a t e N o
0075420 d e , t a r g e t T y p e :
0075440 T y p e G r a p h N o d e N o d
0075460 e ] R E T U R N S [ t e m p 0
0075500 : V a l u e N o d e , t e m
0075520 p 1 : C o n t e x t T r e e N
0075540 o d e ] = \r B E G I N \r t r e
0075560 e : \t E x p N o d e _ N A R R
0075600 O W [ r e f ] ; \r B E G I N \r E
0075620 N A B L E T h r e e C 4 S u p
0075640 p o r t . G e t S o u r c e I n
0075660 f o = > R E S U M E [ t r e
0075700 e . p o s i t i o n , t r e e
0075720 . l e n g t h ] ; \r t r e e D a
0075740 t a : \t E x p s t r i n g P r o
0075760 d D a t a _ N A R R O W [ t
0076000 r e e . d a t a ] ; \r B E G I N
0076020 \r r e s u l t : \t V a l u e N o
0076040 d e ; \r c o n t e x t T r e e 1
0076060 : \t C o n t e x t T r e e N o d
0076100 e ; \r c o n t e x t T r e e 1
0076120 _ F a k e D a m a g e C o n t
0076140 e x t T r e e [ c o n t e x t T
0076160 r e e ] ; \r r e s u l t _ M
0076200 a k e D u m m y [ " s t r i n g
0076220 " ] ; \r t e m p 1 _ c o n t
0076240 e x t T r e e 1 ; \r t e m p 0
0076260 _ r e s u l t ; \r E N D ; \r E
0076300 N D \r E N D ; \r \r E x p s t r i
0076320 n g P r o d E v a l u a t e E x
0076340 p r e s s i o n : \t P U B L I C
0076360 P R O C [ r e f : R E F A
0076400 N Y , l c : L o c a l C o n
0076420 t e x t N o d e , f l : F i
0076440 e l d L i s t N o d e , c s :
0076460 C o m p i l e r S t a t e N o
0076500 d e , t a r g e t T y p e :
0076520 T y p e G r a p h N o d e N o d
0076540 e ] R E T U R N S [ t e m p 0
0076560 : V a l u e N o d e ] = \r B
0076600 E G I N \r t r e e : \t E x p N o
0076620 d e _ N A R R O W [ r e f ] ;
0076640 \r B E G I N \r E N A B L E T h
0076660 r e e C 4 S u p p o r t . G e t
0076700 S o u r c e I n f o = > R E
0076720 S U M E [ t r e e . p o s i t i
0076740 o n , t r e e . l e n g t h ]
0076760 ; \r t r e e D a t a : \t E x p s
0077000 t r i n g P r o d D a t a _
0077020 N A R R O W [ t r e e . d a t a
0077040 ] ; \r t e m p 0 _ M a k e D
0077060 u m m y [ " s t r i n g " ] ; \r
0077100 E N D \r E N D ; \r \r E x p f l n
0077120 u m P r o d C o m p i l e L V a
0077140 l u e : \t P U B L I C P R O C
0077160 [ r e f : R E F A N Y , c
0077200 o n t e x t T r e e : C o n t
0077220 e x t T r e e N o d e , c s :
0077240 C o m p i l e r S t a t e N o
0077260 d e ] R E T U R N S [ t e m p
0077300 0 : P a r a m e t e r i z e d
0077320 F i e l d D e s c r i p t o r N
0077340 o d e , t e m p 1 : T y p e
0077360 G r a p h N o d e N o d e ] =
0077400 \r B E G I N \r t r e e : \t E x p
0077420 N o d e _ N A R R O W [ r e f
0077440 ] ; \r B E G I N \r E N A B L E
0077460 T h r e e C 4 S u p p o r t . G
0077500 e t S o u r c e I n f o = >
0077520 R E S U M E [ t r e e . p o s i
0077540 t i o n , t r e e . l e n g t
0077560 h ] ; \r t r e e D a t a : \t E x
0077600 p f l n u m P r o d D a t a _
0077620 N A R R O W [ t r e e . d a t
0077640 a ] ; \r B E G I N \r p f d : \t P
0077660 a r a m e t e r i z e d F i e l
0077700 d D e s c r i p t o r N o d e ;
0077720 \r t g n : \t T y p e G r a p h N
0077740 o d e N o d e ; \r e r r : \t B O
0077760 O L E A N ; \r e r r _ E r r
0100000 o r [ " R E A L l i t e r a l
0100020 u s e d a s l - v a l u e
0100040 " ] ; \r t g n _ G e t I n t
0100060 r i n s i c B o o l e a n T y p
0100100 e [ c s ] ; \r p f d _ E m p
0100120 t y P F D [ ] ; \r t e m p 1 _
0100140 t g n ; \r t e m p 0 _ p f
0100160 d ; \r E N D ; \r E N D \r E N D ;
0100200 \r \r E x p f l n u m P r o d C o
0100220 m p i l e E x p r e s s i o n :
0100240 \t P U B L I C P R O C [ r e f
0100260 : R E F A N Y , c o n t e
0100300 x t T r e e : C o n t e x t T
0100320 r e e N o d e , c s : C o m
0100340 p i l e r S t a t e N o d e ,
0100360 t a r g e t T y p e : T y p e
0100400 G r a p h N o d e N o d e ] R
0100420 E T U R N S [ t e m p 0 : V a
0100440 l u e N o d e , t e m p 1 :
0100460 C o n t e x t T r e e N o d e ]
0100500 = \r B E G I N \r t r e e : \t E
0100520 x p N o d e _ N A R R O W [ r
0100540 e f ] ; \r B E G I N \r E N A B L
0100560 E T h r e e C 4 S u p p o r t
0100600 . G e t S o u r c e I n f o =
0100620 > R E S U M E [ t r e e . p o
0100640 s i t i o n , t r e e . l e n
0100660 g t h ] ; \r t r e e D a t a : \t
0100700 E x p f l n u m P r o d D a t a
0100720 _ N A R R O W [ t r e e . d
0100740 a t a ] ; \r B E G I N \r r e s u
0100760 l t : \t V a l u e N o d e ; \r c
0101000 o n t e x t T r e e 1 : \t C o n
0101020 t e x t T r e e N o d e ; \r c o
0101040 n t e x t T r e e 1 _ F a k
0101060 e D a m a g e C o n t e x t T r
0101100 e e [ c o n t e x t T r e e ] ;
0101120 \r r e s u l t _ M a k e D u
0101140 m m y [ " f l n u m " ] ; \r t e
0101160 m p 1 _ c o n t e x t T r e
0101200 e 1 ; \r t e m p 0 _ r e s u
0101220 l t ; \r E N D ; \r E N D \r E N D
0101240 ; \r \r E x p f l n u m P r o d E
0101260 v a l u a t e E x p r e s s i o
0101300 n : \t P U B L I C P R O C [ r
0101320 e f : R E F A N Y , l c :
0101340 L o c a l C o n t e x t N o d
0101360 e , f l : F i e l d L i s t
0101400 N o d e , c s : C o m p i l
0101420 e r S t a t e N o d e , t a r
0101440 g e t T y p e : T y p e G r a
0101460 p h N o d e N o d e ] R E T U
0101500 R N S [ t e m p 0 : V a l u e
0101520 N o d e ] = \r B E G I N \r t r
0101540 e e : \t E x p N o d e _ N A R
0101560 R O W [ r e f ] ; \r B E G I N \r
0101600 E N A B L E T h r e e C 4 S u
0101620 p p o r t . G e t S o u r c e I
0101640 n f o = > R E S U M E [ t r
0101660 e e . p o s i t i o n , t r e
0101700 e . l e n g t h ] ; \r t r e e D
0101720 a t a : \t E x p f l n u m P r o
0101740 d D a t a _ N A R R O W [ t
0101760 r e e . d a t a ] ; \r t e m p 0
0102000 _ M a k e D u m m y [ " f l
0102020 n u m " ] ; \r E N D \r E N D ; \r
0102040 \r E x p c h a r P r o d C o m p
0102060 i l e L V a l u e : \t P U B L I
0102100 C P R O C [ r e f : R E F
0102120 A N Y , c o n t e x t T r e e
0102140 : C o n t e x t T r e e N o d
0102160 e , c s : C o m p i l e r S
0102200 t a t e N o d e ] R E T U R N
0102220 S [ t e m p 0 : P a r a m e t
0102240 e r i z e d F i e l d D e s c r
0102260 i p t o r N o d e , t e m p 1
0102300 : T y p e G r a p h N o d e N
0102320 o d e ] = \r B E G I N \r t r e
0102340 e : \t E x p N o d e _ N A R R
0102360 O W [ r e f ] ; \r B E G I N \r E
0102400 N A B L E T h r e e C 4 S u p
0102420 p o r t . G e t S o u r c e I n
0102440 f o = > R E S U M E [ t r e
0102460 e . p o s i t i o n , t r e e
0102500 . l e n g t h ] ; \r t r e e D a
0102520 t a : \t E x p c h a r P r o d D
0102540 a t a _ N A R R O W [ t r e
0102560 e . d a t a ] ; \r B E G I N \r p
0102600 f d : \t P a r a m e t e r i z e
0102620 d F i e l d D e s c r i p t o r
0102640 N o d e ; \r t g n : \t T y p e G
0102660 r a p h N o d e N o d e ; \r e r
0102700 r : \t B O O L E A N ; \r e r r
0102720 _ E r r o r [ " C h a r a c t
0102740 e r l i t e r a l u s e d
0102760 a s l - v a l u e " ] ; \r t g
0103000 n _ G e t I n t r i n s i c
0103020 B o o l e a n T y p e [ c s ] ;
0103040 \r p f d _ E m p t y P F D [
0103060 ] ; \r t e m p 1 _ t g n ; \r
0103100 t e m p 0 _ p f d ; \r E N D
0103120 ; \r E N D \r E N D ; \r \r E x p c
0103140 h a r P r o d C o m p i l e E x
0103160 p r e s s i o n : \t P U B L I C
0103200 P R O C [ r e f : R E F A
0103220 N Y , c o n t e x t T r e e :
0103240 C o n t e x t T r e e N o d e
0103260 , c s : C o m p i l e r S t
0103300 a t e N o d e , t a r g e t T
0103320 y p e : T y p e G r a p h N o
0103340 d e N o d e ] R E T U R N S [
0103360 t e m p 0 : V a l u e N o d e
0103400 , t e m p 1 : C o n t e x t
0103420 T r e e N o d e ] = \r B E G I
0103440 N \r t r e e : \t E x p N o d e _
0103460 N A R R O W [ r e f ] ; \r B E
0103500 G I N \r E N A B L E T h r e e
0103520 C 4 S u p p o r t . G e t S o u
0103540 r c e I n f o = > R E S U M
0103560 E [ t r e e . p o s i t i o n ,
0103600 t r e e . l e n g t h ] ; \r t
0103620 r e e D a t a : \t E x p c h a r
0103640 P r o d D a t a _ N A R R O
0103660 W [ t r e e . d a t a ] ; \r B E
0103700 G I N \r r e s u l t : \t V a l u
0103720 e N o d e ; \r c o n t e x t T r
0103740 e e 1 : \t C o n t e x t T r e e
0103760 N o d e ; \r c o n t e x t T r e
0104000 e 1 _ F a k e D a m a g e C
0104020 o n t e x t T r e e [ c o n t e
0104040 x t T r e e ] ; \r r e s u l t
0104060 _ M a k e D u m m y [ " c h a
0104100 r " ] ; \r t e m p 1 _ c o n
0104120 t e x t T r e e 1 ; \r t e m p 0
0104140 _ r e s u l t ; \r E N D ; \r
0104160 E N D \r E N D ; \r \r E x p c h a
0104200 r P r o d E v a l u a t e E x p
0104220 r e s s i o n : \t P U B L I C
0104240 P R O C [ r e f : R E F A N
0104260 Y , l c : L o c a l C o n t
0104300 e x t N o d e , f l : F i e
0104320 l d L i s t N o d e , c s :
0104340 C o m p i l e r S t a t e N o d
0104360 e , t a r g e t T y p e : T
0104400 y p e G r a p h N o d e N o d e
0104420 ] R E T U R N S [ t e m p 0 :
0104440 V a l u e N o d e ] = \r B E
0104460 G I N \r t r e e : \t E x p N o d
0104500 e _ N A R R O W [ r e f ] ; \r
0104520 B E G I N \r E N A B L E T h r
0104540 e e C 4 S u p p o r t . G e t S
0104560 o u r c e I n f o = > R E S
0104600 U M E [ t r e e . p o s i t i o
0104620 n , t r e e . l e n g t h ] ;
0104640 \r t r e e D a t a : \t E x p c h
0104660 a r P r o d D a t a _ N A R
0104700 R O W [ t r e e . d a t a ] ; \r
0104720 t e m p 0 _ M a k e D u m m
0104740 y [ " c h a r " ] ; \r E N D \r E
0104760 N D ; \r \r E x p a t o m P r o d
0105000 C o m p i l e L V a l u e : \t P
0105020 U B L I C P R O C [ r e f :
0105040 R E F A N Y , c o n t e x t
0105060 T r e e : C o n t e x t T r e
0105100 e N o d e , c s : C o m p i
0105120 l e r S t a t e N o d e ] R E
0105140 T U R N S [ t e m p 0 : P a r
0105160 a m e t e r i z e d F i e l d D
0105200 e s c r i p t o r N o d e , t
0105220 e m p 1 : T y p e G r a p h N
0105240 o d e N o d e ] = \r B E G I N
0105260 \r t r e e : \t E x p N o d e _
0105300 N A R R O W [ r e f ] ; \r B E G
0105320 I N \r E N A B L E T h r e e C
0105340 4 S u p p o r t . G e t S o u r
0105360 c e I n f o = > R E S U M E
0105400 [ t r e e . p o s i t i o n ,
0105420 t r e e . l e n g t h ] ; \r t r
0105440 e e D a t a : \t E x p a t o m P
0105460 r o d D a t a _ N A R R O W
0105500 [ t r e e . d a t a ] ; \r B E G
0105520 I N \r p f d : \t P a r a m e t e
0105540 r i z e d F i e l d D e s c r i
0105560 p t o r N o d e ; \r t g n : \t T
0105600 y p e G r a p h N o d e N o d e
0105620 ; \r e r r : \t B O O L E A N ; \r
0105640 e r r _ E r r o r [ " C h a
0105660 r a c t e r l i t e r a l u
0105700 s e d a s l - v a l u e " ]
0105720 ; \r t g n _ G e t I n t r i
0105740 n s i c B o o l e a n T y p e [
0105760 c s ] ; \r p f d _ E m p t y
0106000 P F D [ ] ; \r t e m p 1 _ t
0106020 g n ; \r t e m p 0 _ p f d ;
0106040 \r E N D ; \r E N D \r E N D ; \r \r
0106060 E x p a t o m P r o d C o m p i
0106100 l e E x p r e s s i o n : \t P U
0106120 B L I C P R O C [ r e f : R
0106140 E F A N Y , c o n t e x t T
0106160 r e e : C o n t e x t T r e e
0106200 N o d e , c s : C o m p i l
0106220 e r S t a t e N o d e , t a r
0106240 g e t T y p e : T y p e G r a
0106260 p h N o d e N o d e ] R E T U
0106300 R N S [ t e m p 0 : V a l u e
0106320 N o d e , t e m p 1 : C o n
0106340 t e x t T r e e N o d e ] = \r
0106360 B E G I N \r t r e e : \t E x p N
0106400 o d e _ N A R R O W [ r e f ]
0106420 ; \r B E G I N \r E N A B L E T
0106440 h r e e C 4 S u p p o r t . G e
0106460 t S o u r c e I n f o = > R
0106500 E S U M E [ t r e e . p o s i t
0106520 i o n , t r e e . l e n g t h
0106540 ] ; \r t r e e D a t a : \t E x p
0106560 a t o m P r o d D a t a _ N
0106600 A R R O W [ t r e e . d a t a ]
0106620 ; \r B E G I N \r r e s u l t : \t
0106640 V a l u e N o d e ; \r c o n t e
0106660 x t T r e e 1 : \t C o n t e x t
0106700 T r e e N o d e ; \r c o n t e x
0106720 t T r e e 1 _ F a k e D a m
0106740 a g e C o n t e x t T r e e [ c
0106760 o n t e x t T r e e ] ; \r r e s
0107000 u l t _ M a k e D u m m y [
0107020 " a t o m " ] ; \r t e m p 1 _
0107040 c o n t e x t T r e e 1 ; \r t
0107060 e m p 0 _ r e s u l t ; \r E
0107100 N D ; \r E N D \r E N D ; \r \r E x
0107120 p a t o m P r o d E v a l u a t
0107140 e E x p r e s s i o n : \t P U B
0107160 L I C P R O C [ r e f : R E
0107200 F A N Y , l c : L o c a l
0107220 C o n t e x t N o d e , f l :
0107240 F i e l d L i s t N o d e ,
0107260 c s : C o m p i l e r S t a t
0107300 e N o d e , t a r g e t T y p
0107320 e : T y p e G r a p h N o d e
0107340 N o d e ] R E T U R N S [ t e
0107360 m p 0 : V a l u e N o d e ]
0107400 = \r B E G I N \r t r e e : \t E x
0107420 p N o d e _ N A R R O W [ r e
0107440 f ] ; \r B E G I N \r E N A B L E
0107460 T h r e e C 4 S u p p o r t .
0107500 G e t S o u r c e I n f o = >
0107520 R E S U M E [ t r e e . p o s
0107540 i t i o n , t r e e . l e n g
0107560 t h ] ; \r t r e e D a t a : \t E
0107600 x p a t o m P r o d D a t a _
0107620 N A R R O W [ t r e e . d a t
0107640 a ] ; \r t e m p 0 _ M a k e
0107660 D u m m y [ " a t o m " ] ; \r E
0107700 N D \r E N D ; \r \r E x p n a r r
0107720 o w P r o d C o m p i l e L V a
0107740 l u e : \t P U B L I C P R O C
0107760 [ r e f : R E F A N Y , c
0110000 o n t e x t T r e e : C o n t
0110020 e x t T r e e N o d e , c s :
0110040 C o m p i l e r S t a t e N o
0110060 d e ] R E T U R N S [ t e m p
0110100 0 : P a r a m e t e r i z e d
0110120 F i e l d D e s c r i p t o r N
0110140 o d e , t e m p 1 : T y p e
0110160 G r a p h N o d e N o d e ] =
0110200 \r B E G I N \r t r e e : \t E x p
0110220 N o d e _ N A R R O W [ r e f
0110240 ] ; \r B E G I N \r E N A B L E
0110260 T h r e e C 4 S u p p o r t . G
0110300 e t S o u r c e I n f o = >
0110320 R E S U M E [ t r e e . p o s i
0110340 t i o n , t r e e . l e n g t
0110360 h ] ; \r t r e e D a t a : \t E x
0110400 p n a r r o w P r o d D a t a
0110420 _ N A R R O W [ t r e e . d a
0110440 t a ] ; \r B E G I N \r p f d : \t
0110460 P a r a m e t e r i z e d F i e
0110500 l d D e s c r i p t o r N o d e
0110520 ; \r t g n : \t T y p e G r a p h
0110540 N o d e N o d e ; \r e r r : \t B
0110560 O O L E A N ; \r e r r _ E r
0110600 r o r [ " N A R R O W e x p r
0110620 e s s i o n u s e d a s l
0110640 - v a l u e " ] ; \r t g n _
0110660 G e t I n t r i n s i c B o o l
0110700 e a n T y p e [ c s ] ; \r p f d
0110720 _ E m p t y P F D [ ] ; \r t
0110740 e m p 1 _ t g n ; \r t e m p
0110760 0 _ p f d ; \r E N D ; \r E N
0111000 D \r E N D ; \r \r E x p n a r r o
0111020 w P r o d C o m p i l e E x p r
0111040 e s s i o n : \t P U B L I C P
0111060 R O C [ r e f : R E F A N Y
0111100 , c o n t e x t T r e e : C
0111120 o n t e x t T r e e N o d e ,
0111140 c s : C o m p i l e r S t a t
0111160 e N o d e , t a r g e t T y p
0111200 e : T y p e G r a p h N o d e
0111220 N o d e ] R E T U R N S [ t e
0111240 m p 0 : V a l u e N o d e ,
0111260 t e m p 1 : C o n t e x t T r
0111300 e e N o d e ] = \r B E G I N \r
0111320 t r e e : \t E x p N o d e _ N
0111340 A R R O W [ r e f ] ; \r B E G I
0111360 N \r E N A B L E T h r e e C 4
0111400 S u p p o r t . G e t S o u r c
0111420 e I n f o = > R E S U M E [
0111440 t r e e . p o s i t i o n , t
0111460 r e e . l e n g t h ] ; \r t r e
0111500 e D a t a : \t E x p n a r r o w
0111520 P r o d D a t a _ N A R R O
0111540 W [ t r e e . d a t a ] ; \r B E
0111560 G I N \r r e s u l t : \t V a l u
0111600 e N o d e ; \r c o n t e x t T r
0111620 e e 1 : \t C o n t e x t T r e e
0111640 N o d e ; \r c o n t e x t T r e
0111660 e 1 _ F a k e D a m a g e C
0111700 o n t e x t T r e e [ c o n t e
0111720 x t T r e e ] ; \r r e s u l t
0111740 _ M a k e D u m m y [ " n a r
0111760 r o w " ] ; \r t e m p 1 _ c
0112000 o n t e x t T r e e 1 ; \r t e m
0112020 p 0 _ r e s u l t ; \r E N D
0112040 ; \r E N D \r E N D ; \r \r E x p n
0112060 a r r o w P r o d E v a l u a t
0112100 e E x p r e s s i o n : \t P U B
0112120 L I C P R O C [ r e f : R E
0112140 F A N Y , l c : L o c a l
0112160 C o n t e x t N o d e , f l :
0112200 F i e l d L i s t N o d e ,
0112220 c s : C o m p i l e r S t a t
0112240 e N o d e , t a r g e t T y p
0112260 e : T y p e G r a p h N o d e
0112300 N o d e ] R E T U R N S [ t e
0112320 m p 0 : V a l u e N o d e ]
0112340 = \r B E G I N \r t r e e : \t E x
0112360 p N o d e _ N A R R O W [ r e
0112400 f ] ; \r B E G I N \r E N A B L E
0112420 T h r e e C 4 S u p p o r t .
0112440 G e t S o u r c e I n f o = >
0112460 R E S U M E [ t r e e . p o s
0112500 i t i o n , t r e e . l e n g
0112520 t h ] ; \r t r e e D a t a : \t E
0112540 x p n a r r o w P r o d D a t a
0112560 _ N A R R O W [ t r e e . d
0112600 a t a ] ; \r t e m p 0 _ M a
0112620 k e D u m m y [ " n a r r o w "
0112640 ] ; \r E N D \r E N D ; \r \r E x p
0112660 l o o p h o l e P r o d C o m p
0112700 i l e L V a l u e : \t P U B L I
0112720 C P R O C [ r e f : R E F
0112740 A N Y , c o n t e x t T r e e
0112760 : C o n t e x t T r e e N o d
0113000 e , c s : C o m p i l e r S
0113020 t a t e N o d e ] R E T U R N
0113040 S [ t e m p 0 : P a r a m e t
0113060 e r i z e d F i e l d D e s c r
0113100 i p t o r N o d e , t e m p 1
0113120 : T y p e G r a p h N o d e N
0113140 o d e ] = \r B E G I N \r t r e
0113160 e : \t E x p N o d e _ N A R R
0113200 O W [ r e f ] ; \r B E G I N \r E
0113220 N A B L E T h r e e C 4 S u p
0113240 p o r t . G e t S o u r c e I n
0113260 f o = > R E S U M E [ t r e
0113300 e . p o s i t i o n , t r e e
0113320 . l e n g t h ] ; \r t r e e D a
0113340 t a : \t E x p l o o p h o l e P
0113360 r o d D a t a _ N A R R O W
0113400 [ t r e e . d a t a ] ; \r B E G
0113420 I N \r p f d : \t P a r a m e t e
0113440 r i z e d F i e l d D e s c r i
0113460 p t o r N o d e ; \r t g n : \t T
0113500 y p e G r a p h N o d e N o d e
0113520 ; \r e r r : \t B O O L E A N ; \r
0113540 e r r _ E r r o r [ " L O O
0113560 P H O L E e x p r e s s i o n
0113600 u s e d a s l - v a l u e
0113620 " ] ; \r t g n _ G e t I n t
0113640 r i n s i c B o o l e a n T y p
0113660 e [ c s ] ; \r p f d _ E m p
0113700 t y P F D [ ] ; \r t e m p 1 _
0113720 t g n ; \r t e m p 0 _ p f
0113740 d ; \r E N D ; \r E N D \r E N D ;
0113760 \r \r E x p l o o p h o l e P r o
0114000 d C o m p i l e E x p r e s s i
0114020 o n : \t P U B L I C P R O C [
0114040 r e f : R E F A N Y , c o
0114060 n t e x t T r e e : C o n t e
0114100 x t T r e e N o d e , c s :
0114120 C o m p i l e r S t a t e N o d
0114140 e , t a r g e t T y p e : T
0114160 y p e G r a p h N o d e N o d e
0114200 ] R E T U R N S [ t e m p 0 :
0114220 V a l u e N o d e , t e m p
0114240 1 : C o n t e x t T r e e N o
0114260 d e ] = \r B E G I N \r t r e e
0114300 : \t E x p N o d e _ N A R R O
0114320 W [ r e f ] ; \r B E G I N \r E N
0114340 A B L E T h r e e C 4 S u p p
0114360 o r t . G e t S o u r c e I n f
0114400 o = > R E S U M E [ t r e e
0114420 . p o s i t i o n , t r e e .
0114440 l e n g t h ] ; \r t r e e D a t
0114460 a : \t E x p l o o p h o l e P r
0114500 o d D a t a _ N A R R O W [
0114520 t r e e . d a t a ] ; \r B E G I
0114540 N \r r e s u l t : \t V a l u e N
0114560 o d e ; \r c o n t e x t T r e e
0114600 1 : \t C o n t e x t T r e e N o
0114620 d e ; \r c o n t e x t T r e e 1
0114640 _ F a k e D a m a g e C o n
0114660 t e x t T r e e [ c o n t e x t
0114700 T r e e ] ; \r r e s u l t _
0114720 M a k e D u m m y [ " l o o p h
0114740 o l e " ] ; \r t e m p 1 _ c
0114760 o n t e x t T r e e 1 ; \r t e m
0115000 p 0 _ r e s u l t ; \r E N D
0115020 ; \r E N D \r E N D ; \r \r E x p l
0115040 o o p h o l e P r o d E v a l u
0115060 a t e E x p r e s s i o n : \t P
0115100 U B L I C P R O C [ r e f :
0115120 R E F A N Y , l c : L o c
0115140 a l C o n t e x t N o d e , f
0115160 l : F i e l d L i s t N o d e
0115200 , c s : C o m p i l e r S t
0115220 a t e N o d e , t a r g e t T
0115240 y p e : T y p e G r a p h N o
0115260 d e N o d e ] R E T U R N S [
0115300 t e m p 0 : V a l u e N o d e
0115320 ] = \r B E G I N \r t r e e : \t
0115340 E x p N o d e _ N A R R O W [
0115360 r e f ] ; \r B E G I N \r E N A B
0115400 L E T h r e e C 4 S u p p o r
0115420 t . G e t S o u r c e I n f o
0115440 = > R E S U M E [ t r e e . p
0115460 o s i t i o n , t r e e . l e
0115500 n g t h ] ; \r t r e e D a t a :
0115520 \t E x p l o o p h o l e P r o d
0115540 D a t a _ N A R R O W [ t r
0115560 e e . d a t a ] ; \r t e m p 0
0115600 _ M a k e D u m m y [ " l o o
0115620 p h o l e " ] ; \r E N D \r E N D
0115640 ; \r \r E x p a p p l y P r o d C
0115660 o m p i l e L V a l u e : \t P U
0115700 B L I C P R O C [ r e f : R
0115720 E F A N Y , c o n t e x t T
0115740 r e e : C o n t e x t T r e e
0115760 N o d e , c s : C o m p i l
0116000 e r S t a t e N o d e ] R E T
0116020 U R N S [ t e m p 0 : P a r a
0116040 m e t e r i z e d F i e l d D e
0116060 s c r i p t o r N o d e , t e
0116100 m p 1 : T y p e G r a p h N o
0116120 d e N o d e ] = \r B E G I N \r
0116140 t r e e : \t E x p N o d e _ N
0116160 A R R O W [ r e f ] ; \r B E G I
0116200 N \r E N A B L E T h r e e C 4
0116220 S u p p o r t . G e t S o u r c
0116240 e I n f o = > R E S U M E [
0116260 t r e e . p o s i t i o n , t
0116300 r e e . l e n g t h ] ; \r t r e
0116320 e D a t a : \t E x p a p p l y P
0116340 r o d D a t a _ N A R R O W
0116360 [ t r e e . d a t a ] ; \r B E G
0116400 I N \r p f d : \t P a r a m e t e
0116420 r i z e d F i e l d D e s c r i
0116440 p t o r N o d e ; \r t g n : \t T
0116460 y p e G r a p h N o d e N o d e
0116500 ; \r e r r : \t B O O L E A N ; \r
0116520 e r r _ E r r o r [ " A p p
0116540 l y e x p r e s s i o n u s
0116560 e d a s l - v a l u e " ] ;
0116600 \r t g n _ G e t I n t r i n
0116620 s i c B o o l e a n T y p e [ c
0116640 s ] ; \r p f d _ E m p t y P
0116660 F D [ ] ; \r t e m p 1 _ t g
0116700 n ; \r t e m p 0 _ p f d ; \r
0116720 E N D ; \r E N D \r E N D ; \r \r E
0116740 x p a p p l y P r o d C o m p i
0116760 l e E x p r e s s i o n : \t P U
0117000 B L I C P R O C [ r e f : R
0117020 E F A N Y , c o n t e x t T
0117040 r e e : C o n t e x t T r e e
0117060 N o d e , c s : C o m p i l
0117100 e r S t a t e N o d e , t a r
0117120 g e t T y p e : T y p e G r a
0117140 p h N o d e N o d e ] R E T U
0117160 R N S [ t e m p 0 : V a l u e
0117200 N o d e , t e m p 1 : C o n
0117220 t e x t T r e e N o d e ] = \r
0117240 B E G I N \r t r e e : \t E x p N
0117260 o d e _ N A R R O W [ r e f ]
0117300 ; \r B E G I N \r E N A B L E T
0117320 h r e e C 4 S u p p o r t . G e
0117340 t S o u r c e I n f o = > R
0117360 E S U M E [ t r e e . p o s i t
0117400 i o n , t r e e . l e n g t h
0117420 ] ; \r t r e e D a t a : \t E x p
0117440 a p p l y P r o d D a t a _
0117460 N A R R O W [ t r e e . d a t a
0117500 ] ; \r B E G I N \r r e s u l t :
0117520 \t V a l u e N o d e ; \r c o n t
0117540 e x t T r e e 1 : \t C o n t e x
0117560 t T r e e N o d e ; \r c o n t e
0117600 x t T r e e 1 _ F a k e D a
0117620 m a g e C o n t e x t T r e e [
0117640 c o n t e x t T r e e ] ; \r r e
0117660 s u l t _ M a k e D u m m y
0117700 [ " a p p l y " ] ; \r t e m p 1
0117720 _ c o n t e x t T r e e 1 ;
0117740 \r t e m p 0 _ r e s u l t ;
0117760 \r E N D ; \r E N D \r E N D ; \r \r
0120000 E x p a p p l y P r o d E v a l
0120020 u a t e E x p r e s s i o n : \t
0120040 P U B L I C P R O C [ r e f :
0120060 R E F A N Y , l c : L o
0120100 c a l C o n t e x t N o d e ,
0120120 f l : F i e l d L i s t N o d
0120140 e , c s : C o m p i l e r S
0120160 t a t e N o d e , t a r g e t
0120200 T y p e : T y p e G r a p h N
0120220 o d e N o d e ] R E T U R N S
0120240 [ t e m p 0 : V a l u e N o d
0120260 e ] = \r B E G I N \r t r e e :
0120300 \t E x p N o d e _ N A R R O W
0120320 [ r e f ] ; \r B E G I N \r E N A
0120340 B L E T h r e e C 4 S u p p o
0120360 r t . G e t S o u r c e I n f o
0120400 = > R E S U M E [ t r e e .
0120420 p o s i t i o n , t r e e . l
0120440 e n g t h ] ; \r t r e e D a t a
0120460 : \t E x p a p p l y P r o d D a
0120500 t a _ N A R R O W [ t r e e
0120520 . d a t a ] ; \r t e m p 0 _
0120540 M a k e D u m m y [ " a p p l y
0120560 " ] ; \r E N D \r E N D ; \r \r E x
0120600 p q u a l i f i e r P r o d C o
0120620 m p i l e L V a l u e : \t P U B
0120640 L I C P R O C [ r e f : R E
0120660 F A N Y , c o n t e x t T r
0120700 e e : C o n t e x t T r e e N
0120720 o d e , c s : C o m p i l e
0120740 r S t a t e N o d e ] R E T U
0120760 R N S [ t e m p 0 : P a r a m
0121000 e t e r i z e d F i e l d D e s
0121020 c r i p t o r N o d e , t e m
0121040 p 1 : T y p e G r a p h N o d
0121060 e N o d e ] = \r B E G I N \r t
0121100 r e e : \t E x p N o d e _ N A
0121120 R R O W [ r e f ] ; \r B E G I N
0121140 \r E N A B L E T h r e e C 4 S
0121160 u p p o r t . G e t S o u r c e
0121200 I n f o = > R E S U M E [ t
0121220 r e e . p o s i t i o n , t r
0121240 e e . l e n g t h ] ; \r t r e e
0121260 D a t a : \t E x p q u a l i f i
0121300 e r P r o d D a t a _ N A R
0121320 R O W [ t r e e . d a t a ] ; \r
0121340 B E G I N \r p f d : \t P a r a m
0121360 e t e r i z e d F i e l d D e s
0121400 c r i p t o r N o d e ; \r t g n
0121420 : \t T y p e G r a p h N o d e N
0121440 o d e ; \r e r r : \t B O O L E A
0121460 N ; \r e r r _ E r r o r [ "
0121500 Q u a l i f i e r l - v a l u
0121520 e n o t i m p l e m e n t e
0121540 d y e t ! ! ! ! ! ! ! ! ! " ]
0121560 ; \r t g n _ G e t I n t r i
0121600 n s i c B o o l e a n T y p e [
0121620 c s ] ; \r p f d _ E m p t y
0121640 P F D [ ] ; \r t e m p 1 _ t
0121660 g n ; \r t e m p 0 _ p f d ;
0121700 \r E N D ; \r E N D \r E N D ; \r \r
0121720 E x p q u a l i f i e r P r o d
0121740 C o m p i l e E x p r e s s i o
0121760 n : \t P U B L I C P R O C [ r
0122000 e f : R E F A N Y , c o n
0122020 t e x t T r e e : C o n t e x
0122040 t T r e e N o d e , c s : C
0122060 o m p i l e r S t a t e N o d e
0122100 , t a r g e t T y p e : T y
0122120 p e G r a p h N o d e N o d e ]
0122140 R E T U R N S [ t e m p 0 :
0122160 V a l u e N o d e , t e m p 1
0122200 : C o n t e x t T r e e N o d
0122220 e ] = \r B E G I N \r t r e e :
0122240 \t E x p N o d e _ N A R R O W
0122260 [ r e f ] ; \r B E G I N \r E N A
0122300 B L E T h r e e C 4 S u p p o
0122320 r t . G e t S o u r c e I n f o
0122340 = > R E S U M E [ t r e e .
0122360 p o s i t i o n , t r e e . l
0122400 e n g t h ] ; \r t r e e D a t a
0122420 : \t E x p q u a l i f i e r P r
0122440 o d D a t a _ N A R R O W [
0122460 t r e e . d a t a ] ; \r B E G I
0122500 N \r v a l u e : \t V a l u e N o
0122520 d e ; \r c o n t e x t T r e e 1
0122540 : \t C o n t e x t T r e e N o d
0122560 e ; \r t o p : \t T y p e G r a p
0122600 h N o d e N o d e ; \r t o p _
0122620 G e t T o p [ c s ] ; \r [ v a
0122640 l u e , c o n t e x t T r e e
0122660 1 ] _ C o m p i l e A n d T
0122700 y p e C h e c k E x p r e s s i
0122720 o n [ t r e e D a t a . E x p ,
0122740 c o n t e x t T r e e , c s
0122760 , t o p ] ; \r [ t e m p 0 ,
0123000 t e m p 1 ] _ t r e e D a t
0123020 a . Q u a l i f i e r . p r o c
0123040 s . C o m p i l e Q u a l i f i
0123060 e d E x p r e s s i o n [ t r e
0123100 e D a t a . Q u a l i f i e r ,
0123120 v a l u e , c o n t e x t T
0123140 r e e 1 , c s , t a r g e t
0123160 T y p e ] ; \r E N D ; \r E N D \r
0123200 E N D ; \r \r E x p q u a l i f i
0123220 e r P r o d E v a l u a t e E x
0123240 p r e s s i o n : \t P U B L I C
0123260 P R O C [ r e f : R E F A
0123300 N Y , l c : L o c a l C o n
0123320 t e x t N o d e , f l : F i
0123340 e l d L i s t N o d e , c s :
0123360 C o m p i l e r S t a t e N o
0123400 d e , t a r g e t T y p e :
0123420 T y p e G r a p h N o d e N o d
0123440 e ] R E T U R N S [ t e m p 0
0123460 : V a l u e N o d e ] = \r B
0123500 E G I N \r t r e e : \t E x p N o
0123520 d e _ N A R R O W [ r e f ] ;
0123540 \r B E G I N \r E N A B L E T h
0123560 r e e C 4 S u p p o r t . G e t
0123600 S o u r c e I n f o = > R E
0123620 S U M E [ t r e e . p o s i t i
0123640 o n , t r e e . l e n g t h ]
0123660 ; \r t r e e D a t a : \t E x p q
0123700 u a l i f i e r P r o d D a t a
0123720 _ N A R R O W [ t r e e . d
0123740 a t a ] ; \r t e m p 0 _ M a
0123760 k e D u m m y [ " q u a l i f i
0124000 e r " ] ; \r E N D \r E N D ; \r \r
0124020 E x p e x p l i s t P r o d C o
0124040 m p i l e L V a l u e : \t P U B
0124060 L I C P R O C [ r e f : R E
0124100 F A N Y , c o n t e x t T r
0124120 e e : C o n t e x t T r e e N
0124140 o d e , c s : C o m p i l e
0124160 r S t a t e N o d e ] R E T U
0124200 R N S [ t e m p 0 : P a r a m
0124220 e t e r i z e d F i e l d D e s
0124240 c r i p t o r N o d e , t e m
0124260 p 1 : T y p e G r a p h N o d
0124300 e N o d e ] = \r B E G I N \r t
0124320 r e e : \t E x p N o d e _ N A
0124340 R R O W [ r e f ] ; \r B E G I N
0124360 \r E N A B L E T h r e e C 4 S
0124400 u p p o r t . G e t S o u r c e
0124420 I n f o = > R E S U M E [ t
0124440 r e e . p o s i t i o n , t r
0124460 e e . l e n g t h ] ; \r t r e e
0124500 D a t a : \t E x p e x p l i s t
0124520 P r o d D a t a _ N A R R O
0124540 W [ t r e e . d a t a ] ; \r B E
0124560 G I N \r p f d : \t P a r a m e t
0124600 e r i z e d F i e l d D e s c r
0124620 i p t o r N o d e ; \r t g n : \t
0124640 T y p e G r a p h N o d e N o d
0124660 e ; \r e r r : \t B O O L E A N ;
0124700 \r e r r _ E r r o r [ " E x
0124720 p L i s t l - v a l u e n o
0124740 t i m p l e m e n t e d y e
0124760 t ! ! ! ! ! ! ! ! ! " ] ; \r t g
0125000 n _ G e t I n t r i n s i c
0125020 B o o l e a n T y p e [ c s ] ;
0125040 \r p f d _ E m p t y P F D [
0125060 ] ; \r t e m p 1 _ t g n ; \r
0125100 t e m p 0 _ p f d ; \r E N D
0125120 ; \r E N D \r E N D ; \r \r E x p e
0125140 x p l i s t P r o d C o m p i l
0125160 e E x p r e s s i o n : \t P U B
0125200 L I C P R O C [ r e f : R E
0125220 F A N Y , c o n t e x t T r
0125240 e e : C o n t e x t T r e e N
0125260 o d e , c s : C o m p i l e
0125300 r S t a t e N o d e , t a r g
0125320 e t T y p e : T y p e G r a p
0125340 h N o d e N o d e ] R E T U R
0125360 N S [ t e m p 0 : V a l u e N
0125400 o d e , t e m p 1 : C o n t
0125420 e x t T r e e N o d e ] = \r B
0125440 E G I N \r t r e e : \t E x p N o
0125460 d e _ N A R R O W [ r e f ] ;
0125500 \r B E G I N \r E N A B L E T h
0125520 r e e C 4 S u p p o r t . G e t
0125540 S o u r c e I n f o = > R E
0125560 S U M E [ t r e e . p o s i t i
0125600 o n , t r e e . l e n g t h ]
0125620 ; \r t r e e D a t a : \t E x p e
0125640 x p l i s t P r o d D a t a _
0125660 N A R R O W [ t r e e . d a t
0125700 a ] ; \r B E G I N \r r e s u l t
0125720 : \t V a l u e N o d e ; \r c o n
0125740 t e x t T r e e 1 : \t C o n t e
0125760 x t T r e e N o d e ; \r c o n t
0126000 e x t T r e e 1 _ F a k e D
0126020 a m a g e C o n t e x t T r e e
0126040 [ c o n t e x t T r e e ] ; \r r
0126060 e s u l t _ M a k e D u m m
0126100 y [ " e x p l i s t " ] ; \r t e
0126120 m p 1 _ c o n t e x t T r e
0126140 e 1 ; \r t e m p 0 _ r e s u
0126160 l t ; \r E N D ; \r E N D \r E N D
0126200 ; \r \r E x p e x p l i s t P r o
0126220 d E v a l u a t e E x p r e s s
0126240 i o n : \t P U B L I C P R O C
0126260 [ r e f : R E F A N Y , l
0126300 c : L o c a l C o n t e x t N
0126320 o d e , f l : F i e l d L i
0126340 s t N o d e , c s : C o m p
0126360 i l e r S t a t e N o d e , t
0126400 a r g e t T y p e : T y p e G
0126420 r a p h N o d e N o d e ] R E
0126440 T U R N S [ t e m p 0 : V a l
0126460 u e N o d e ] = \r B E G I N \r
0126500 t r e e : \t E x p N o d e _ N
0126520 A R R O W [ r e f ] ; \r B E G I
0126540 N \r E N A B L E T h r e e C 4
0126560 S u p p o r t . G e t S o u r c
0126600 e I n f o = > R E S U M E [
0126620 t r e e . p o s i t i o n , t
0126640 r e e . l e n g t h ] ; \r t r e
0126660 e D a t a : \t E x p e x p l i s
0126700 t P r o d D a t a _ N A R R
0126720 O W [ t r e e . d a t a ] ; \r t
0126740 e m p 0 _ M a k e D u m m y
0126760 [ " e x p l i s t " ] ; \r E N D
0127000 \r E N D ; \r \r E x p p r e f i x
0127020 o p P r o d C o m p i l e L V a
0127040 l u e : \t P U B L I C P R O C
0127060 [ r e f : R E F A N Y , c
0127100 o n t e x t T r e e : C o n t
0127120 e x t T r e e N o d e , c s :
0127140 C o m p i l e r S t a t e N o
0127160 d e ] R E T U R N S [ t e m p
0127200 0 : P a r a m e t e r i z e d
0127220 F i e l d D e s c r i p t o r N
0127240 o d e , t e m p 1 : T y p e
0127260 G r a p h N o d e N o d e ] =
0127300 \r B E G I N \r t r e e : \t E x p
0127320 N o d e _ N A R R O W [ r e f
0127340 ] ; \r B E G I N \r E N A B L E
0127360 T h r e e C 4 S u p p o r t . G
0127400 e t S o u r c e I n f o = >
0127420 R E S U M E [ t r e e . p o s i
0127440 t i o n , t r e e . l e n g t
0127460 h ] ; \r t r e e D a t a : \t E x
0127500 p p r e f i x o p P r o d D a t
0127520 a _ N A R R O W [ t r e e .
0127540 d a t a ] ; \r B E G I N \r p f d
0127560 : \t P a r a m e t e r i z e d F
0127600 i e l d D e s c r i p t o r N o
0127620 d e ; \r t g n : \t T y p e G r a
0127640 p h N o d e N o d e ; \r e r r :
0127660 \t B O O L E A N ; \r e r r _
0127700 E r r o r [ " P r e f i x O p
0127720 e x p r e s s i o n u s e d
0127740 a s l - v a l u e " ] ; \r t g
0127760 n _ G e t I n t r i n s i c
0130000 B o o l e a n T y p e [ c s ] ;
0130020 \r p f d _ E m p t y P F D [
0130040 ] ; \r t e m p 1 _ t g n ; \r
0130060 t e m p 0 _ p f d ; \r E N D
0130100 ; \r E N D \r E N D ; \r \r E x p p
0130120 r e f i x o p P r o d C o m p i
0130140 l e E x p r e s s i o n : \t P U
0130160 B L I C P R O C [ r e f : R
0130200 E F A N Y , c o n t e x t T
0130220 r e e : C o n t e x t T r e e
0130240 N o d e , c s : C o m p i l
0130260 e r S t a t e N o d e , t a r
0130300 g e t T y p e : T y p e G r a
0130320 p h N o d e N o d e ] R E T U
0130340 R N S [ t e m p 0 : V a l u e
0130360 N o d e , t e m p 1 : C o n
0130400 t e x t T r e e N o d e ] = \r
0130420 B E G I N \r t r e e : \t E x p N
0130440 o d e _ N A R R O W [ r e f ]
0130460 ; \r B E G I N \r E N A B L E T
0130500 h r e e C 4 S u p p o r t . G e
0130520 t S o u r c e I n f o = > R
0130540 E S U M E [ t r e e . p o s i t
0130560 i o n , t r e e . l e n g t h
0130600 ] ; \r t r e e D a t a : \t E x p
0130620 p r e f i x o p P r o d D a t a
0130640 _ N A R R O W [ t r e e . d
0130660 a t a ] ; \r B E G I N \r r e s u
0130700 l t : \t V a l u e N o d e ; \r c
0130720 o n t e x t T r e e 1 : \t C o n
0130740 t e x t T r e e N o d e ; \r c o
0130760 n t e x t T r e e 1 _ F a k
0131000 e D a m a g e C o n t e x t T r
0131020 e e [ c o n t e x t T r e e ] ;
0131040 \r r e s u l t _ M a k e D u
0131060 m m y [ " p r e f i x o p " ] ;
0131100 \r t e m p 1 _ c o n t e x t
0131120 T r e e 1 ; \r t e m p 0 _ r
0131140 e s u l t ; \r E N D ; \r E N D \r
0131160 E N D ; \r \r E x p p r e f i x o
0131200 p P r o d E v a l u a t e E x p
0131220 r e s s i o n : \t P U B L I C
0131240 P R O C [ r e f : R E F A N
0131260 Y , l c : L o c a l C o n t
0131300 e x t N o d e , f l : F i e
0131320 l d L i s t N o d e , c s :
0131340 C o m p i l e r S t a t e N o d
0131360 e , t a r g e t T y p e : T
0131400 y p e G r a p h N o d e N o d e
0131420 ] R E T U R N S [ t e m p 0 :
0131440 V a l u e N o d e ] = \r B E
0131460 G I N \r t r e e : \t E x p N o d
0131500 e _ N A R R O W [ r e f ] ; \r
0131520 B E G I N \r E N A B L E T h r
0131540 e e C 4 S u p p o r t . G e t S
0131560 o u r c e I n f o = > R E S
0131600 U M E [ t r e e . p o s i t i o
0131620 n , t r e e . l e n g t h ] ;
0131640 \r t r e e D a t a : \t E x p p r
0131660 e f i x o p P r o d D a t a _
0131700 N A R R O W [ t r e e . d a t
0131720 a ] ; \r t e m p 0 _ M a k e
0131740 D u m m y [ " p r e f i x o p "
0131760 ] ; \r E N D \r E N D ; \r \r E x p
0132000 v a l P r o d C o m p i l e L V
0132020 a l u e : \t P U B L I C P R O
0132040 C [ r e f : R E F A N Y ,
0132060 c o n t e x t T r e e : C o n
0132100 t e x t T r e e N o d e , c s
0132120 : C o m p i l e r S t a t e N
0132140 o d e ] R E T U R N S [ t e m
0132160 p 0 : P a r a m e t e r i z e
0132200 d F i e l d D e s c r i p t o r
0132220 N o d e , t e m p 1 : T y p
0132240 e G r a p h N o d e N o d e ]
0132260 = \r B E G I N \r t r e e : \t E x
0132300 p N o d e _ N A R R O W [ r e
0132320 f ] ; \r B E G I N \r E N A B L E
0132340 T h r e e C 4 S u p p o r t .
0132360 G e t S o u r c e I n f o = >
0132400 R E S U M E [ t r e e . p o s
0132420 i t i o n , t r e e . l e n g
0132440 t h ] ; \r t r e e D a t a : \t E
0132460 x p v a l P r o d D a t a _
0132500 N A R R O W [ t r e e . d a t a
0132520 ] ; \r B E G I N \r p f d : \t P a
0132540 r a m e t e r i z e d F i e l d
0132560 D e s c r i p t o r N o d e ; \r
0132600 t g n : \t T y p e G r a p h N o
0132620 d e N o d e ; \r e r r : \t B O O
0132640 L E A N ; \r e r r _ E r r o
0132660 r [ " V a l e x p r e s s i o
0132700 n u s e d a s l - v a l u
0132720 e " ] ; \r t g n _ G e t I n
0132740 t r i n s i c B o o l e a n T y
0132760 p e [ c s ] ; \r p f d _ E m
0133000 p t y P F D [ ] ; \r t e m p 1
0133020 _ t g n ; \r t e m p 0 _ p
0133040 f d ; \r E N D ; \r E N D \r E N D
0133060 ; \r \r E x p v a l P r o d C o m
0133100 p i l e E x p r e s s i o n : \t
0133120 P U B L I C P R O C [ r e f :
0133140 R E F A N Y , c o n t e x
0133160 t T r e e : C o n t e x t T r
0133200 e e N o d e , c s : C o m p
0133220 i l e r S t a t e N o d e , t
0133240 a r g e t T y p e : T y p e G
0133260 r a p h N o d e N o d e ] R E
0133300 T U R N S [ t e m p 0 : V a l
0133320 u e N o d e , t e m p 1 : C
0133340 o n t e x t T r e e N o d e ]
0133360 = \r B E G I N \r t r e e : \t E x
0133400 p N o d e _ N A R R O W [ r e
0133420 f ] ; \r B E G I N \r E N A B L E
0133440 T h r e e C 4 S u p p o r t .
0133460 G e t S o u r c e I n f o = >
0133500 R E S U M E [ t r e e . p o s
0133520 i t i o n , t r e e . l e n g
0133540 t h ] ; \r t r e e D a t a : \t E
0133560 x p v a l P r o d D a t a _
0133600 N A R R O W [ t r e e . d a t a
0133620 ] ; \r B E G I N \r r e s u l t :
0133640 \t V a l u e N o d e ; \r c o n t
0133660 e x t T r e e 1 : \t C o n t e x
0133700 t T r e e N o d e ; \r c o n t e
0133720 x t T r e e 1 _ F a k e D a
0133740 m a g e C o n t e x t T r e e [
0133760 c o n t e x t T r e e ] ; \r r e
0134000 s u l t _ M a k e D u m m y
0134020 [ " v a l " ] ; \r t e m p 1 _
0134040 c o n t e x t T r e e 1 ; \r t
0134060 e m p 0 _ r e s u l t ; \r E
0134100 N D ; \r E N D \r E N D ; \r \r E x
0134120 p v a l P r o d E v a l u a t e
0134140 E x p r e s s i o n : \t P U B L
0134160 I C P R O C [ r e f : R E F
0134200 A N Y , l c : L o c a l C
0134220 o n t e x t N o d e , f l :
0134240 F i e l d L i s t N o d e , c
0134260 s : C o m p i l e r S t a t e
0134300 N o d e , t a r g e t T y p e
0134320 : T y p e G r a p h N o d e N
0134340 o d e ] R E T U R N S [ t e m
0134360 p 0 : V a l u e N o d e ] =
0134400 \r B E G I N \r t r e e : \t E x p
0134420 N o d e _ N A R R O W [ r e f
0134440 ] ; \r B E G I N \r E N A B L E
0134460 T h r e e C 4 S u p p o r t . G
0134500 e t S o u r c e I n f o = >
0134520 R E S U M E [ t r e e . p o s i
0134540 t i o n , t r e e . l e n g t
0134560 h ] ; \r t r e e D a t a : \t E x
0134600 p v a l P r o d D a t a _ N
0134620 A R R O W [ t r e e . d a t a ]
0134640 ; \r t e m p 0 _ M a k e D u
0134660 m m y [ " v a l " ] ; \r E N D \r
0134700 E N D ; \r \r E x p a l l P r o d
0134720 C o m p i l e L V a l u e : \t P
0134740 U B L I C P R O C [ r e f :
0134760 R E F A N Y , c o n t e x t
0135000 T r e e : C o n t e x t T r e
0135020 e N o d e , c s : C o m p i
0135040 l e r S t a t e N o d e ] R E
0135060 T U R N S [ t e m p 0 : P a r
0135100 a m e t e r i z e d F i e l d D
0135120 e s c r i p t o r N o d e , t
0135140 e m p 1 : T y p e G r a p h N
0135160 o d e N o d e ] = \r B E G I N
0135200 \r t r e e : \t E x p N o d e _
0135220 N A R R O W [ r e f ] ; \r B E G
0135240 I N \r E N A B L E T h r e e C
0135260 4 S u p p o r t . G e t S o u r
0135300 c e I n f o = > R E S U M E
0135320 [ t r e e . p o s i t i o n ,
0135340 t r e e . l e n g t h ] ; \r t r
0135360 e e D a t a : \t E x p a l l P r
0135400 o d D a t a _ N A R R O W [
0135420 t r e e . d a t a ] ; \r B E G I
0135440 N \r p f d : \t P a r a m e t e r
0135460 i z e d F i e l d D e s c r i p
0135500 t o r N o d e ; \r t g n : \t T y
0135520 p e G r a p h N o d e N o d e ;
0135540 \r e r r : \t B O O L E A N ; \r e
0135560 r r _ E r r o r [ " A L L
0135600 e x p r e s s i o n u s e d
0135620 a s l - v a l u e " ] ; \r t g
0135640 n _ G e t I n t r i n s i c
0135660 B o o l e a n T y p e [ c s ] ;
0135700 \r p f d _ E m p t y P F D [
0135720 ] ; \r t e m p 1 _ t g n ; \r
0135740 t e m p 0 _ p f d ; \r E N D
0135760 ; \r E N D \r E N D ; \r \r E x p a
0136000 l l P r o d C o m p i l e E x p
0136020 r e s s i o n : \t P U B L I C
0136040 P R O C [ r e f : R E F A N
0136060 Y , c o n t e x t T r e e :
0136100 C o n t e x t T r e e N o d e ,
0136120 c s : C o m p i l e r S t a
0136140 t e N o d e , t a r g e t T y
0136160 p e : T y p e G r a p h N o d
0136200 e N o d e ] R E T U R N S [ t
0136220 e m p 0 : V a l u e N o d e ,
0136240 t e m p 1 : C o n t e x t T
0136260 r e e N o d e ] = \r B E G I N
0136300 \r t r e e : \t E x p N o d e _
0136320 N A R R O W [ r e f ] ; \r B E G
0136340 I N \r E N A B L E T h r e e C
0136360 4 S u p p o r t . G e t S o u r
0136400 c e I n f o = > R E S U M E
0136420 [ t r e e . p o s i t i o n ,
0136440 t r e e . l e n g t h ] ; \r t r
0136460 e e D a t a : \t E x p a l l P r
0136500 o d D a t a _ N A R R O W [
0136520 t r e e . d a t a ] ; \r B E G I
0136540 N \r r e s u l t : \t V a l u e N
0136560 o d e ; \r c o n t e x t T r e e
0136600 1 : \t C o n t e x t T r e e N o
0136620 d e ; \r c o n t e x t T r e e 1
0136640 _ F a k e D a m a g e C o n
0136660 t e x t T r e e [ c o n t e x t
0136700 T r e e ] ; \r r e s u l t _
0136720 M a k e D u m m y [ " a l l " ]
0136740 ; \r t e m p 1 _ c o n t e x
0136760 t T r e e 1 ; \r t e m p 0 _
0137000 r e s u l t ; \r E N D ; \r E N D
0137020 \r E N D ; \r \r E x p a l l P r o
0137040 d E v a l u a t e E x p r e s s
0137060 i o n : \t P U B L I C P R O C
0137100 [ r e f : R E F A N Y , l
0137120 c : L o c a l C o n t e x t N
0137140 o d e , f l : F i e l d L i
0137160 s t N o d e , c s : C o m p
0137200 i l e r S t a t e N o d e , t
0137220 a r g e t T y p e : T y p e G
0137240 r a p h N o d e N o d e ] R E
0137260 T U R N S [ t e m p 0 : V a l
0137300 u e N o d e ] = \r B E G I N \r
0137320 t r e e : \t E x p N o d e _ N
0137340 A R R O W [ r e f ] ; \r B E G I
0137360 N \r E N A B L E T h r e e C 4
0137400 S u p p o r t . G e t S o u r c
0137420 e I n f o = > R E S U M E [
0137440 t r e e . p o s i t i o n , t
0137460 r e e . l e n g t h ] ; \r t r e
0137500 e D a t a : \t E x p a l l P r o
0137520 d D a t a _ N A R R O W [ t
0137540 r e e . d a t a ] ; \r t e m p 0
0137560 _ M a k e D u m m y [ " a l
0137600 l " ] ; \r E N D \r E N D ; \r \r E
0137620 x p n e w P r o d C o m p i l e
0137640 L V a l u e : \t P U B L I C P
0137660 R O C [ r e f : R E F A N Y
0137700 , c o n t e x t T r e e : C
0137720 o n t e x t T r e e N o d e ,
0137740 c s : C o m p i l e r S t a t
0137760 e N o d e ] R E T U R N S [ t
0140000 e m p 0 : P a r a m e t e r i
0140020 z e d F i e l d D e s c r i p t
0140040 o r N o d e , t e m p 1 : T
0140060 y p e G r a p h N o d e N o d e
0140100 ] = \r B E G I N \r t r e e : \t
0140120 E x p N o d e _ N A R R O W [
0140140 r e f ] ; \r B E G I N \r E N A B
0140160 L E T h r e e C 4 S u p p o r
0140200 t . G e t S o u r c e I n f o
0140220 = > R E S U M E [ t r e e . p
0140240 o s i t i o n , t r e e . l e
0140260 n g t h ] ; \r t r e e D a t a :
0140300 \t E x p n e w P r o d D a t a
0140320 _ N A R R O W [ t r e e . d a
0140340 t a ] ; \r B E G I N \r p f d : \t
0140360 P a r a m e t e r i z e d F i e
0140400 l d D e s c r i p t o r N o d e
0140420 ; \r t g n : \t T y p e G r a p h
0140440 N o d e N o d e ; \r e r r : \t B
0140460 O O L E A N ; \r e r r _ E r
0140500 r o r [ " N E W e x p r e s s
0140520 i o n u s e d a s l - v a
0140540 l u e " ] ; \r t g n _ G e t
0140560 I n t r i n s i c B o o l e a n
0140600 T y p e [ c s ] ; \r p f d _
0140620 E m p t y P F D [ ] ; \r t e m p
0140640 1 _ t g n ; \r t e m p 0 _
0140660 p f d ; \r E N D ; \r E N D \r E
0140700 N D ; \r \r E x p n e w P r o d C
0140720 o m p i l e E x p r e s s i o n
0140740 : \t P U B L I C P R O C [ r e
0140760 f : R E F A N Y , c o n t
0141000 e x t T r e e : C o n t e x t
0141020 T r e e N o d e , c s : C o
0141040 m p i l e r S t a t e N o d e ,
0141060 t a r g e t T y p e : T y p
0141100 e G r a p h N o d e N o d e ]
0141120 R E T U R N S [ t e m p 0 : V
0141140 a l u e N o d e , t e m p 1 :
0141160 C o n t e x t T r e e N o d e
0141200 ] = \r B E G I N \r t r e e : \t
0141220 E x p N o d e _ N A R R O W [
0141240 r e f ] ; \r B E G I N \r E N A B
0141260 L E T h r e e C 4 S u p p o r
0141300 t . G e t S o u r c e I n f o
0141320 = > R E S U M E [ t r e e . p
0141340 o s i t i o n , t r e e . l e
0141360 n g t h ] ; \r t r e e D a t a :
0141400 \t E x p n e w P r o d D a t a
0141420 _ N A R R O W [ t r e e . d a
0141440 t a ] ; \r B E G I N \r r e s u l
0141460 t : \t V a l u e N o d e ; \r c o
0141500 n t e x t T r e e 1 : \t C o n t
0141520