1 .comp 920 010111010010000
2 .start __generic_print_Start
3 .depend "StdGeneric" "20220216025412"
4 .depend "_SystemEnumStrict" "20220216025412"
5 .depend "_SystemStrictLists" "20220216025412"
6 .depend "StdStrictLists" "20220216025412"
7 .depend "_SystemEnum" "20220216025412"
8 .depend "StdEnum" "20220216025412"
9 .depend "StdMisc" "20220216025412"
10 .depend "StdFunctions" "20220216025412"
11 .depend "StdCharList" "20220216025412"
12 .depend "StdTuple" "20220216025412"
13 .depend "StdOrdList" "20220216025412"
14 .depend "StdList" "20220216025412"
15 .depend "StdClass" "20220216025412"
16 .depend "StdFile" "20220216025412"
17 .depend "StdString" "20220216025412"
18 .depend "_SystemArray" "20220216025412"
19 .depend "StdArray" "20220216025412"
20 .depend "StdChar" "20220216025412"
21 .depend "StdReal" "20220216025412"
22 .depend "StdInt" "20220216025412"
23 .depend "StdOverloaded" "20220216025412"
24 .depend "StdBool" "20220216025412"
25 .depend "StdEnv" "20220216025412"
26 .module m_generic_print "generic_print" "20220301120244"
29 .implab _cycle_in_spine
32 .impdesc e_system_dind
33 .implab e_system_nind e_system_eaind
35 .implab e_system_nif e_system_eaif
38 .implab e_system_nAP e_system_eaAP
44 .implab n_Conss ea_Conss
46 .implab n_Consts ea_Consts
48 .implab n_Conssts ea_Conssts
64 .impdesc e_StdString_dtoString;5
65 .implab e_StdString_ntoString;5
66 .impdesc e_StdString_dtoString;7
67 .implab e_StdString_ntoString;7
69 .impdesc e_StdGeneric_dUNIT
70 .impdesc e_StdGeneric_dLEFT
71 .impdesc e_StdGeneric_dRIGHT
72 .impdesc e_StdGeneric_dPAIR
73 .impdesc e_StdGeneric_dCONS
74 .impdesc e_StdGeneric_dRECORD
75 .impdesc e_StdGeneric_rGenericTypeDefDescriptor
76 .impdesc e_StdGeneric_rGenericConsDescriptor
77 .impdesc e_StdGeneric_dGenericConsDescriptor.gcd_name
78 .implab e_StdGeneric_nGenericConsDescriptor.gcd_name
79 .impdesc e_StdGeneric_dGenConsNoPrio
80 .impdesc e_StdGeneric_rGenericRecordDescriptor
81 .impdesc e_StdGeneric_rGenericFieldDescriptor
82 .impdesc e_StdGeneric_dGenericFieldDescriptor.gfd_name
83 .implab e_StdGeneric_nGenericFieldDescriptor.gfd_name
84 .impdesc e_StdGeneric_dGenTypeCons
85 .impdesc e_StdGeneric_kGenTypeVar
86 .impdesc e_StdGeneric_dGenTypeApp
87 .impdesc e_StdGeneric_dGenTypeArrow
88 .record r42 aa 2 0 "T"
89 .export __generic_print_Start
98 push_node _cycle_in_spine 0
144 .desc d65 _hnf l65 2 0 "_f2"
177 .desc d64 _hnf l64 2 0 "_f1"
204 .desc d63 _hnf l63 2 0 "_f0"
234 push_node _cycle_in_spine 0
241 fill_r e_StdGeneric_rGenericFieldDescriptor 3 0 3 0 0
248 push_node _cycle_in_spine 0
255 fill_r e_StdGeneric_rGenericFieldDescriptor 3 0 3 0 0
262 push_node _cycle_in_spine 0
271 fill_r e_StdGeneric_rGenericRecordDescriptor 5 0 5 0 0
278 push_node _cycle_in_spine 0
285 buildh e_StdGeneric_dGenTypeCons 1
288 buildh e_StdGeneric_dGenTypeCons 1
291 buildh e_StdGeneric_dGenTypeCons 1
292 buildh e_StdGeneric_dGenTypeApp 2
295 buildh e_StdGeneric_dGenTypeCons 1
296 buildh e_StdGeneric_dGenTypeApp 2
299 buildh e_StdGeneric_dGenTypeCons 1
302 buildh e_StdGeneric_dGenTypeCons 1
303 buildh e_StdGeneric_dGenTypeApp 2
304 buildh e_StdGeneric_dGenTypeApp 2
305 buildh e_StdGeneric_dGenTypeArrow 2
308 buildh e_StdGeneric_dGenTypeCons 1
309 fillh e_StdGeneric_dGenTypeArrow 2 2
315 push_node _cycle_in_spine 0
329 .desc d3 _hnf l3 2 0 "gPrint_Real;3"
348 build _ 1 e_StdString_ntoString;7
358 .desc d2 _hnf l2 2 0 "gPrint_Int;1"
377 build _ 1 e_StdString_ntoString;5
416 push_node _cycle_in_spine 0
421 buildh e_StdGeneric_dGenConsNoPrio 0
432 fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
439 push_node _cycle_in_spine 0
454 push_node _cycle_in_spine 0
462 fill_r e_StdGeneric_rGenericTypeDefDescriptor 4 0 4 0 0
469 push_node _cycle_in_spine 0
474 buildh e_StdGeneric_dGenConsNoPrio 0
485 fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
492 push_node _cycle_in_spine 0
498 buildhr e_StdGeneric_kGenTypeVar 0 1
501 buildh e_StdGeneric_dGenTypeCons 1
502 buildh e_StdGeneric_dGenTypeApp 2
504 buildhr e_StdGeneric_kGenTypeVar 0 1
505 fillh e_StdGeneric_dGenTypeArrow 2 2
511 push_node _cycle_in_spine 0
517 buildhr e_StdGeneric_kGenTypeVar 0 1
520 buildh e_StdGeneric_dGenTypeCons 1
521 fillh e_StdGeneric_dGenTypeApp 2 2
527 push_node _cycle_in_spine 1
538 buildh e_StdGeneric_dCONS 1
539 fillh e_StdGeneric_dLEFT 1 2
544 buildh e_StdGeneric_dUNIT 0
545 buildh e_StdGeneric_dCONS 1
546 fillh e_StdGeneric_dRIGHT 1 2
550 .desc d12 _hnf l12 3 0 "gPrint__List;13"
596 push_node _cycle_in_spine 0
601 buildh e_StdGeneric_dGenConsNoPrio 0
612 fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
619 push_node _cycle_in_spine 0
634 push_node _cycle_in_spine 0
642 fill_r e_StdGeneric_rGenericTypeDefDescriptor 4 0 4 0 0
649 push_node _cycle_in_spine 0
654 buildh e_StdGeneric_dGenConsNoPrio 0
665 fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
672 push_node _cycle_in_spine 0
678 buildhr e_StdGeneric_kGenTypeVar 0 1
681 buildh e_StdGeneric_dGenTypeCons 1
682 buildh e_StdGeneric_dGenTypeApp 2
684 buildhr e_StdGeneric_kGenTypeVar 0 1
687 buildh e_StdGeneric_dGenTypeCons 1
688 buildh e_StdGeneric_dGenTypeApp 2
689 buildh e_StdGeneric_dGenTypeArrow 2
691 buildhr e_StdGeneric_kGenTypeVar 0 1
692 fillh e_StdGeneric_dGenTypeArrow 2 2
698 push_node _cycle_in_spine 0
704 buildhr e_StdGeneric_kGenTypeVar 0 1
707 buildh e_StdGeneric_dGenTypeCons 1
708 fillh e_StdGeneric_dGenTypeApp 2 2
711 .desc d4 _hnf l4 2 0 "gPrint_UNIT;5"
729 .desc d10 _hnf l10 4 0 "gPrint_EITHER;11"
743 eq_desc e_StdGeneric_dLEFT 1 2
791 push_node _cycle_in_spine 1
803 buildh e_StdGeneric_dPAIR 2
804 buildh e_StdGeneric_dCONS 1
805 fillh e_StdGeneric_dLEFT 1 3
810 buildh e_StdGeneric_dUNIT 0
811 buildh e_StdGeneric_dCONS 1
812 fillh e_StdGeneric_dRIGHT 1 2
841 push_node _cycle_in_spine 0
854 push_node _cycle_in_spine 0
862 fill_r e_StdGeneric_rGenericTypeDefDescriptor 4 0 4 0 0
869 push_node _cycle_in_spine 0
874 buildh e_StdGeneric_dGenConsNoPrio 0
885 fill_r e_StdGeneric_rGenericConsDescriptor 6 0 6 0 0
892 push_node _cycle_in_spine 0
898 buildhr e_StdGeneric_kGenTypeVar 0 1
900 buildhr e_StdGeneric_kGenTypeVar 0 1
903 buildh e_StdGeneric_dGenTypeCons 1
904 buildh e_StdGeneric_dGenTypeApp 2
905 buildh e_StdGeneric_dGenTypeApp 2
907 buildhr e_StdGeneric_kGenTypeVar 0 1
908 buildh e_StdGeneric_dGenTypeArrow 2
910 buildhr e_StdGeneric_kGenTypeVar 0 1
911 fillh e_StdGeneric_dGenTypeArrow 2 2
914 .desc d6 _hnf l6 4 0 "gPrint_CONS;7"
943 build e_StdGeneric_dGenericConsDescriptor.gcd_name -4 e_StdGeneric_nGenericConsDescriptor.gcd_name
954 push_node _cycle_in_spine 3
978 push_node _cycle_in_spine 1
986 buildh e_StdGeneric_dPAIR 2
987 fillh e_StdGeneric_dCONS 1 3
1004 .desc d8 _hnf l8 4 0 "gPrint_FIELD;9"
1025 build e_StdGeneric_dGenericFieldDescriptor.gfd_name -4 e_StdGeneric_nGenericFieldDescriptor.gfd_name
1033 push_node _cycle_in_spine 3
1054 .desc d9 _hnf l9 4 0 "gPrint_PAIR;10"
1093 push_node _cycle_in_spine 3
1118 buildh e_StdGeneric_dPAIR 2
1119 fillh e_StdGeneric_dRECORD 1 3
1145 push_node _cycle_in_spine 3