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