Edinburgh IMP77 Compiler - Version 8.4 1 ! IMP77 compiler first pass .section ".text" .Ltext0: .align 4 .proc 020 ADDCHAR.6195: .LFB187: 2 3 !########################################################### 4 ! This program is a Copyright work. # 5 ! # 6 ! Over the last 40+ years a long and distinguished list of # 7 ! institutions, individuals and other entities have made # 8 ! contributions to portions of this program and may have a # 9 ! reasonable claim over rights to certain parts of the # 10 ! program. # 11 ! # 12 ! This version is therefore provided for education and # 13 ! demonstration purposes only # 14 !########################################################### 15 16 %begin .LVL1029: sethi %hi(138240), %g1 xor %g1, -848, %g1 save %sp, %g1, %sp .LVL1030: ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 sethi %hi(17417216), %g1 srlx %g1, 7, %g1 add %fp, 2047, %g2 stx %g2, [%i5+%g1] 17 %conststring(4) version = "8.4" mov %i1, %o1 call _imp_initialise, 0 mov %i0, %o0 .LVL1031: 18 19 !configuration parameters 20 { minus one represents all bits set for an %integer } 21 { %integer could be 16,32,64 bits wide depending on the } 22 { processor being targeted } 23 { i.e 8086 (16 bits), 80386 (32 bits), i86_64 (64 bits) } 24 %constinteger minus one = -1; 25 ! Wee change needed to cross-compile the compiler when going from 16 bit to 32 bit world 26 ! %constinteger minus one = 16_7fff; 27 28 { now to set up various constants } 29 %constinteger max int = ((minus one)>>1)//10 30 %constinteger max dig = (minus one)>>1-maxint*10 31 %constinteger byte size = 8; !bits per byte 32 %constinteger max tag = 800; !max no. of tags 33 %constinteger max dict = 6000; !max extent of dictionary 34 %constinteger name bits = 11; !size of name table as a power of two 35 %constinteger max names = 1<0 strings, <0 chars 132 %owninteger end mark = 0; !%end flag 133 %owninteger cont = ' ' 134 %owninteger csym = ' '; !listing continuation marker 135 %owninteger decl = 0; !current declarator flags 136 %owninteger dim = 0; !arrayname dimension 137 %owninteger spec given = 0 138 139 %owninteger escape class = 0; !when and where to escape 140 %owninteger protection = 0 141 %owninteger atom flags = 0 142 %owninteger otype = 0; !current 'own' type 143 %owninteger reals ln = 1; ! =4 for %REALSLONG 144 %owninteger last1 = 0; !previous atom class 145 %owninteger gen type = 0 146 %owninteger ptype = 0; !current phrase type 147 %owninteger papp = 0; !current phrase parameters 148 %owninteger pformat = 0; !current phrase format 149 %owninteger force = 0; !force next ptype 150 %owninteger g = 0 151 %owninteger gg = 0 152 %owninteger map gg = 0; !grammar entries 153 %owninteger fdef = 0; !current format definition 154 %owninteger this = -1; !current recordformat tag 155 %owninteger nmin = 0; !analysis record atom pointer 156 %owninteger nmax = 0; !analysis record phrase pointer 157 %owninteger rbase = 0; !record format definition base 158 %owninteger dmax = 1 159 %owninteger tmin = max tag; !upper bound on tags 160 %owninteger ss = 0; !source statement entry 161 %string(63) include file 162 %owninteger include list = 0 163 %owninteger include level= 0 164 %owninteger include = 0; !=0 unused, #0 being used 165 %owninteger perm = 1; !1 = compiling perm, 0 = program 166 %owninteger progmode = 0; !-1 = file, 1 = begin/eop 167 %owninteger sstype = 0; !-1:exec stat 168 ! 0: declaration 169 ! 1: block in 170 ! 2: block out 171 %owninteger spec mode = 0; !>=0: definition 172 ! -1: proc spec 173 ! -2: recordformat 174 %owninteger ocount = -1; !own constants wanted 175 %owninteger limit = 0; !lookup limit 176 %owninteger copy = 0; !duplicate name flag 177 %owninteger order = 0; !out of sequence flag 178 %owninteger for warn = 0; !non-local flag 179 %owninteger dubious = 0; !flag for dubious statements 180 %owninteger dp = 1 181 %owninteger pos1 = 0 182 %owninteger pos2 = 0; !error position 183 %owninteger pos = 0; !input line index 184 %owninteger dimension = 0; !current array dimension 185 %owninteger local = 0; !search limit for locals 186 %owninteger fm base = 0; !entry for format decls 187 %owninteger search base = 0; !entry for record_names 188 %owninteger format list = 0; !size of current format list 189 %integer recid 190 %ownbyteintegerarray char(0:133) = ; !input line 191 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 192 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 193 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 194 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 195 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 196 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 197 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 198 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 199 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 200 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 201 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 202 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 203 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 204 10, 10, 10, 10 205 %integerarray lit pool(0:lit max) 206 %owninteger lit = 0; !current literal (integer) 207 %owninteger lp = 0; !literals pointer 208 %owninteger block x = 0; !block tag 209 %owninteger list = 1; !<= to enable 210 %owninteger control = 0 211 %owninteger diag = 0; !diagnose flags 212 %integerarray hash(0:max names) 213 %record(tagfm)%array tag(0:max tag) 214 %integerarray dict(1:max dict) 215 %byteintegerarray buff(1:512) 216 %owninteger bp = 0 217 218 { grammar related constants } 219 %constinteger max grammar = 1720 220 %owninteger gmin = max grammar ;! upper bound on grammar 221 %constinteger manifest = 120, figurative = 130 222 %constinteger actions = 180, phrasal = 200 223 224 %constbyteintegerarray amap(0:15) = %c mov 89, %g1 sethi %hi(17855488), %g2 srlx %g2, 8, %g2 stb %g1, [%i5+%g2] sethi %hi(71422976), %g2 srlx %g2, 10, %g2 mov 91, %g3 stb %g3, [%i5+%g2] sethi %hi(35712000), %g2 srlx %g2, 9, %g2 mov 92, %g3 stb %g3, [%i5+%g2] sethi %hi(71425024), %g2 srlx %g2, 10, %g2 mov 104, %g3 stb %g3, [%i5+%g2] sethi %hi(8928256), %g2 srlx %g2, 7, %g2 mov 94, %g3 stb %g3, [%i5+%g2] sethi %hi(71427072), %g2 srlx %g2, 10, %g2 mov 93, %g3 stb %g3, [%i5+%g2] sethi %hi(35714048), %g2 srlx %g2, 9, %g2 mov 105, %g3 stb %g3, [%i5+%g2] sethi %hi(71429120), %g2 srlx %g2, 10, %g2 mov 100, %g3 stb %g3, [%i5+%g2] sethi %hi(17857536), %g2 srlx %g2, 8, %g2 mov 101, %g3 stb %g3, [%i5+%g2] sethi %hi(71431168), %g2 srlx %g2, 10, %g2 mov 102, %g3 stb %g3, [%i5+%g2] sethi %hi(35716096), %g2 srlx %g2, 9, %g2 mov 103, %g3 stb %g3, [%i5+%g2] sethi %hi(71433216), %g2 srlx %g2, 10, %g2 mov 106, %g3 stb %g3, [%i5+%g2] mov 545, %g2 sllx %g2, 7, %g2 mov 107, %g3 stb %g3, [%i5+%g2] sethi %hi(71435264), %g2 srlx %g2, 10, %g2 mov 108, %g3 stb %g3, [%i5+%g2] sethi %hi(35718144), %g2 srlx %g2, 9, %g2 mov 109, %g3 stb %g3, [%i5+%g2] sethi %hi(71437312), %g2 srlx %g2, 10, %g2 stb %g1, [%i5+%g2] 225 89, 91, 92, 104, 94, 93, 105, 100, 101, 102, 103, 106, 107, 108, 109, 89 226 ! ? v n l fm const swit rp fp mp pp a an na nan ? 227 228 %constbyteintegerarray atoms(0:15) = 89, 1, 1, 10, 9, 1, 10, 7, sethi %hi(35677184), %g2 srlx %g2, 9, %g2 stb %g1, [%i5+%g2] mov 1, %i3 sethi %hi(71355392), %g2 srlx %g2, 10, %g2 stb %i3, [%i5+%g2] sethi %hi(17839104), %g2 srlx %g2, 8, %g2 stb %i3, [%i5+%g2] mov 10, %g3 sethi %hi(71357440), %g2 srlx %g2, 10, %g2 stb %g3, [%i5+%g2] sethi %hi(35679232), %g2 srlx %g2, 9, %g2 mov 9, %g4 stb %g4, [%i5+%g2] sethi %hi(71359488), %g2 srlx %g2, 10, %g2 stb %i3, [%i5+%g2] sethi %hi(8920064), %g2 srlx %g2, 7, %g2 stb %g3, [%i5+%g2] mov 7, %l0 sethi %hi(71361536), %g2 srlx %g2, 10, %g2 stb %l0, [%i5+%g2] sethi %hi(35681280), %g2 srlx %g2, 9, %g2 stb %l0, [%i5+%g2] sethi %hi(71363584), %g2 srlx %g2, 10, %g2 stb %l0, [%i5+%g2] sethi %hi(17841152), %g2 srlx %g2, 8, %g2 stb %l0, [%i5+%g2] mov 4, %l1 sethi %hi(71365632), %g2 srlx %g2, 10, %g2 stb %l1, [%i5+%g2] sethi %hi(35683328), %g2 srlx %g2, 9, %g2 stb %i3, [%i5+%g2] sethi %hi(71367680), %g2 srlx %g2, 10, %g2 stb %l1, [%i5+%g2] mov 1089, %g2 sllx %g2, 6, %g2 stb %i3, [%i5+%g2] sethi %hi(71369728), %g2 srlx %g2, 10, %g2 stb %g1, [%i5+%g2] 229 7, 7, 7, 4, 1, 4, 1, 89 230 231 !*** start of generated tables *** 232 ! %include "i77.tables.imp" 233 %endoflist 572 !%endoffile sethi %hi(17859584), %i4 srlx %i4, 8, %i4 sethi %hi(65536), %o2 mov 0, %o1 call memset, 0 add %i5, %i4, %o0 .LVL1032: stb %i3, [%i5+%i4] sethi %hi(71439360), %o0 srlx %o0, 10, %o0 sethi %hi(.LC91), %g1 ldub [%g1+%lo(.LC91)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC91)+1], %g1 stb %g1, [%o0+1] mov 6, %i1 .LVL1033: mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1034: sethi %hi(17925120), %g1 srlx %g1, 8, %g1 stb %l1, [%i5+%g1] sethi %hi(71701504), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %i4 mov 5, %o2 sethi %hi(.LC92), %o1 or %o1, %lo(.LC92), %o1 call memcpy, 0 mov %i2, %o0 .LVL1035: mov 3, %i0 mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1036: sethi %hi(17990656), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] mov 8, %i2 mov 8, %o2 sethi %hi(.LC93), %o1 or %o1, %lo(.LC93), %o1 sethi %hi(71963648), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1037: sethi %hi(18056192), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC94), %o1 or %o1, %lo(.LC94), %o1 sethi %hi(72225792), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1038: sethi %hi(18121728), %g1 srlx %g1, 8, %g1 stb %l1, [%i5+%g1] sethi %hi(72487936), %l2 srlx %l2, 10, %l2 add %i5, %l2, %l2 mov 5, %o2 sethi %hi(.LC95), %o1 or %o1, %lo(.LC95), %o1 call memcpy, 0 mov %l2, %o0 .LVL1039: mov 3, %o2 mov 0, %o1 call memset, 0 add %l2, 5, %o0 .LVL1040: sethi %hi(18187264), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC96), %o1 or %o1, %lo(.LC96), %o1 sethi %hi(72750080), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1041: sethi %hi(18252800), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC97), %o1 or %o1, %lo(.LC97), %o1 sethi %hi(73012224), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1042: sethi %hi(18318336), %g1 srlx %g1, 8, %g1 stb %l1, [%i5+%g1] sethi %hi(73274368), %l2 srlx %l2, 10, %l2 add %i5, %l2, %l2 mov 5, %o2 sethi %hi(.LC98), %o1 or %o1, %lo(.LC98), %o1 call memcpy, 0 mov %l2, %o0 .LVL1043: mov 3, %o2 mov 0, %o1 call memset, 0 add %l2, 5, %o0 .LVL1044: sethi %hi(18383872), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC99), %o1 or %o1, %lo(.LC99), %o1 sethi %hi(73536512), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1045: sethi %hi(18449408), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC100), %o1 or %o1, %lo(.LC100), %o1 sethi %hi(73798656), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1046: sethi %hi(18514944), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(74060800), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 6, %o2 sethi %hi(.LC101), %o1 or %o1, %lo(.LC101), %o1 call memcpy, 0 mov %l0, %o0 .LVL1047: stb %g0, [%l0+6] stb %g0, [%l0+7] sethi %hi(18580480), %g1 srlx %g1, 8, %g1 stb %l1, [%i5+%g1] sethi %hi(74322944), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 5, %o2 sethi %hi(.LC102), %o1 or %o1, %lo(.LC102), %o1 call memcpy, 0 mov %l0, %o0 .LVL1048: mov 3, %o2 mov 0, %o1 call memset, 0 add %l0, 5, %o0 .LVL1049: sethi %hi(18646016), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC103), %o1 or %o1, %lo(.LC103), %o1 sethi %hi(74585088), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1050: sethi %hi(19039232), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(76157952), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 7, %o2 sethi %hi(.LC104), %o1 or %o1, %lo(.LC104), %o1 call memcpy, 0 mov %l0, %o0 .LVL1051: stb %g0, [%l0+7] sethi %hi(19104768), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(76420096), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 6, %o2 sethi %hi(.LC105), %o1 or %o1, %lo(.LC105), %o1 call memcpy, 0 mov %l0, %o0 .LVL1052: stb %g0, [%l0+6] stb %g0, [%l0+7] sethi %hi(19170304), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(76682240), %o0 srlx %o0, 10, %o0 sethi %hi(.LC106), %g1 ldub [%g1+%lo(.LC106)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC106)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1053: sethi %hi(19235840), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(76944384), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC107), %o1 or %o1, %lo(.LC107), %o1 call memcpy, 0 mov %i3, %o0 .LVL1054: stb %g0, [%i3+6] stb %g0, [%i3+7] mov 7, %g2 sethi %hi(19301376), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC108), %o1 or %o1, %lo(.LC108), %o1 sethi %hi(77206528), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1055: mov 2, %l0 sethi %hi(19366912), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(77468672), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 3, %o2 sethi %hi(.LC109), %o1 or %o1, %lo(.LC109), %o1 call memcpy, 0 mov %i3, %o0 .LVL1056: mov 5, %o2 mov 0, %o1 call memset, 0 add %i3, 3, %o0 .LVL1057: sethi %hi(19432448), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(77730816), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC110), %o1 or %o1, %lo(.LC110), %o1 call memcpy, 0 mov %i3, %o0 .LVL1058: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(19497984), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(77992960), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 3, %o2 sethi %hi(.LC111), %o1 or %o1, %lo(.LC111), %o1 call memcpy, 0 mov %i3, %o0 .LVL1059: mov 5, %o2 mov 0, %o1 call memset, 0 add %i3, 3, %o0 .LVL1060: sethi %hi(19563520), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(78255104), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 4, %o2 sethi %hi(.LC112), %o1 or %o1, %lo(.LC112), %o1 call memcpy, 0 mov %i3, %o0 .LVL1061: mov 4, %o2 mov 0, %o1 call memset, 0 add %i3, 4, %o0 .LVL1062: sethi %hi(19629056), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(78517248), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 7, %o2 sethi %hi(.LC113), %o1 or %o1, %lo(.LC113), %o1 call memcpy, 0 mov %i3, %o0 .LVL1063: stb %g0, [%i3+7] sethi %hi(19694592), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(78779392), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC114), %o1 or %o1, %lo(.LC114), %o1 call memcpy, 0 mov %i3, %o0 .LVL1064: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(19760128), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(79041536), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC115), %o1 or %o1, %lo(.LC115), %o1 call memcpy, 0 mov %i3, %o0 .LVL1065: stb %g0, [%i3+6] stb %g0, [%i3+7] mov 4, %g2 sethi %hi(19825664), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] sethi %hi(79303680), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC116), %o1 or %o1, %lo(.LC116), %o1 call memcpy, 0 mov %i3, %o0 .LVL1066: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1067: sethi %hi(19891200), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(79565824), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC117), %o1 or %o1, %lo(.LC117), %o1 call memcpy, 0 mov %i3, %o0 .LVL1068: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(19956736), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(79827968), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 6, %o2 sethi %hi(.LC118), %o1 or %o1, %lo(.LC118), %o1 call memcpy, 0 mov %i4, %o0 .LVL1069: stb %g0, [%i4+6] stb %g0, [%i4+7] sethi %hi(20022272), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(80090112), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC119), %o1 or %o1, %lo(.LC119), %o1 call memcpy, 0 mov %i4, %o0 .LVL1070: stb %g0, [%i4+7] sethi %hi(20087808), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(80352256), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 4, %o2 sethi %hi(.LC120), %o1 or %o1, %lo(.LC120), %o1 call memcpy, 0 mov %i4, %o0 .LVL1071: mov 4, %o2 mov 0, %o1 call memset, 0 add %i4, 4, %o0 .LVL1072: sethi %hi(20153344), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC121), %o1 or %o1, %lo(.LC121), %o1 sethi %hi(80614400), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1073: sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 6, %i3 sethi %hi(20218880), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(80876544), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC122), %o1 or %o1, %lo(.LC122), %o1 call memcpy, 0 mov %i4, %o0 .LVL1074: stb %g0, [%i4+7] sethi %hi(20284416), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(81138688), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC123), %o1 or %o1, %lo(.LC123), %o1 call memcpy, 0 mov %i4, %o0 .LVL1075: stb %g0, [%i4+7] sethi %hi(20349952), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(81400832), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC124), %o1 or %o1, %lo(.LC124), %o1 call memcpy, 0 mov %i4, %o0 .LVL1076: stb %g0, [%i4+7] sethi %hi(20415488), %g1 srlx %g1, 8, %g1 mov 4, %g2 stb %g2, [%i5+%g1] sethi %hi(81662976), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %i4 mov 5, %o2 sethi %hi(.LC125), %o1 or %o1, %lo(.LC125), %o1 call memcpy, 0 mov %i2, %o0 .LVL1077: mov 3, %i3 mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1078: sethi %hi(20481024), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(81925120), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC126), %o1 or %o1, %lo(.LC126), %o1 call memcpy, 0 mov %i2, %o0 .LVL1079: stb %g0, [%i2+6] stb %g0, [%i2+7] mov 5, %g2 sethi %hi(20546560), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] sethi %hi(82187264), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC127), %o1 or %o1, %lo(.LC127), %o1 call memcpy, 0 mov %i2, %o0 .LVL1080: stb %g0, [%i2+6] stb %g0, [%i2+7] mov 3, %l0 sethi %hi(20612096), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(82449408), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %i2 mov 4, %o2 sethi %hi(.LC128), %o1 or %o1, %lo(.LC128), %o1 call memcpy, 0 mov %i0, %o0 .LVL1081: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1082: sethi %hi(20677632), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(82711552), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC129), %o1 or %o1, %lo(.LC129), %o1 call memcpy, 0 mov %i0, %o0 .LVL1083: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1084: sethi %hi(20743168), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(82973696), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC130), %o1 or %o1, %lo(.LC130), %o1 call memcpy, 0 mov %i0, %o0 .LVL1085: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1086: sethi %hi(20808704), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(83235840), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 5, %o2 sethi %hi(.LC131), %o1 or %o1, %lo(.LC131), %o1 call memcpy, 0 mov %i0, %o0 .LVL1087: mov 3, %o2 mov 0, %o1 call memset, 0 add %i0, 5, %o0 .LVL1088: sethi %hi(20874240), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(83497984), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC132), %o1 or %o1, %lo(.LC132), %o1 call memcpy, 0 mov %i0, %o0 .LVL1089: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1090: sethi %hi(20939776), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(83760128), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC133), %o1 or %o1, %lo(.LC133), %o1 call memcpy, 0 mov %i0, %o0 .LVL1091: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1092: sethi %hi(21005312), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(84022272), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC134), %o1 or %o1, %lo(.LC134), %o1 call memcpy, 0 mov %i0, %o0 .LVL1093: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1094: sethi %hi(21070848), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(84284416), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 5, %o2 sethi %hi(.LC135), %o1 or %o1, %lo(.LC135), %o1 call memcpy, 0 mov %i0, %o0 .LVL1095: mov 3, %o2 mov 0, %o1 call memset, 0 add %i0, 5, %o0 .LVL1096: sethi %hi(21136384), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(84546560), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 6, %o2 sethi %hi(.LC136), %o1 or %o1, %lo(.LC136), %o1 call memcpy, 0 mov %i0, %o0 .LVL1097: stb %g0, [%i0+6] stb %g0, [%i0+7] mov 2, %l0 sethi %hi(21201920), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(84808704), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 3, %o2 sethi %hi(.LC137), %o1 or %o1, %lo(.LC137), %o1 call memcpy, 0 mov %i0, %o0 .LVL1098: mov 5, %o2 mov 0, %o1 call memset, 0 add %i0, 3, %o0 .LVL1099: sethi %hi(21267456), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(85070848), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 5, %o2 sethi %hi(.LC138), %o1 or %o1, %lo(.LC138), %o1 call memcpy, 0 mov %i0, %o0 .LVL1100: mov 3, %o2 mov 0, %o1 call memset, 0 add %i0, 5, %o0 .LVL1101: sethi %hi(21332992), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(85332992), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC139), %o1 or %o1, %lo(.LC139), %o1 call memcpy, 0 mov %i0, %o0 .LVL1102: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1103: sethi %hi(21398528), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(85595136), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 5, %o2 sethi %hi(.LC140), %o1 or %o1, %lo(.LC140), %o1 call memcpy, 0 mov %i0, %o0 .LVL1104: mov 3, %o2 mov 0, %o1 call memset, 0 add %i0, 5, %o0 .LVL1105: sethi %hi(21464064), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(85857280), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 6, %o2 sethi %hi(.LC141), %o1 or %o1, %lo(.LC141), %o1 call memcpy, 0 mov %i0, %o0 .LVL1106: stb %g0, [%i0+6] stb %g0, [%i0+7] sethi %hi(21529600), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(86119424), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC142), %o1 or %o1, %lo(.LC142), %o1 call memcpy, 0 mov %i0, %o0 .LVL1107: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1108: sethi %hi(21595136), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(86381568), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 3, %o2 sethi %hi(.LC143), %o1 or %o1, %lo(.LC143), %o1 call memcpy, 0 mov %i0, %o0 .LVL1109: mov 5, %o2 mov 0, %o1 call memset, 0 add %i0, 3, %o0 .LVL1110: sethi %hi(21660672), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(86643712), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 4, %o2 sethi %hi(.LC144), %o1 or %o1, %lo(.LC144), %o1 call memcpy, 0 mov %i0, %o0 .LVL1111: mov 4, %o2 mov 0, %o1 call memset, 0 add %i0, 4, %o0 .LVL1112: sethi %hi(21726208), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(86905856), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 6, %o2 sethi %hi(.LC145), %o1 or %o1, %lo(.LC145), %o1 call memcpy, 0 mov %i0, %o0 .LVL1113: stb %g0, [%i0+6] stb %g0, [%i0+7] sethi %hi(21791744), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(87168000), %i0 srlx %i0, 10, %i0 add %i5, %i0, %i0 mov 6, %o2 sethi %hi(.LC146), %o1 or %o1, %lo(.LC146), %o1 call memcpy, 0 mov %i0, %o0 .LVL1114: stb %g0, [%i0+6] stb %g0, [%i0+7] sethi %hi(21857280), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(87430144), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 4, %o2 sethi %hi(.LC147), %o1 or %o1, %lo(.LC147), %o1 call memcpy, 0 mov %i3, %o0 .LVL1115: mov 4, %o2 mov 0, %o1 call memset, 0 add %i3, 4, %o0 .LVL1116: sethi %hi(21922816), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(87692288), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC148), %o1 or %o1, %lo(.LC148), %o1 call memcpy, 0 mov %i3, %o0 .LVL1117: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(21988352), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(87954432), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC149), %o1 or %o1, %lo(.LC149), %o1 call memcpy, 0 mov %i3, %o0 .LVL1118: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1119: sethi %hi(22053888), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(88216576), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 3, %o2 sethi %hi(.LC150), %o1 or %o1, %lo(.LC150), %o1 call memcpy, 0 mov %i3, %o0 .LVL1120: mov 5, %o2 mov 0, %o1 call memset, 0 add %i3, 3, %o0 .LVL1121: sethi %hi(22119424), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(88478720), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 7, %o2 sethi %hi(.LC151), %o1 or %o1, %lo(.LC151), %o1 call memcpy, 0 mov %i3, %o0 .LVL1122: stb %g0, [%i3+7] sethi %hi(22184960), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(88740864), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC152), %o1 or %o1, %lo(.LC152), %o1 call memcpy, 0 mov %i3, %o0 .LVL1123: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1124: sethi %hi(22250496), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(89003008), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC153), %o1 or %o1, %lo(.LC153), %o1 call memcpy, 0 mov %i3, %o0 .LVL1125: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(22316032), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(89265152), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC154), %o1 or %o1, %lo(.LC154), %o1 call memcpy, 0 mov %i3, %o0 .LVL1126: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1127: sethi %hi(22381568), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(89527296), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 7, %o2 sethi %hi(.LC155), %o1 or %o1, %lo(.LC155), %o1 call memcpy, 0 mov %i3, %o0 .LVL1128: stb %g0, [%i3+7] sethi %hi(22447104), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(89789440), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC156), %o1 or %o1, %lo(.LC156), %o1 call memcpy, 0 mov %i3, %o0 .LVL1129: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(22512640), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(90051584), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC157), %o1 or %o1, %lo(.LC157), %o1 call memcpy, 0 mov %i3, %o0 .LVL1130: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(22578176), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(90313728), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 7, %o2 sethi %hi(.LC158), %o1 or %o1, %lo(.LC158), %o1 call memcpy, 0 mov %i3, %o0 .LVL1131: stb %g0, [%i3+7] mov 7, %g2 sethi %hi(22643712), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC159), %o1 or %o1, %lo(.LC159), %o1 sethi %hi(90575872), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1132: sethi %hi(22709248), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(90838016), %g1 srlx %g1, 10, %g1 add %i5, %g1, %i5 mov 6, %o2 sethi %hi(.LC160), %o1 or %o1, %lo(.LC160), %o1 call memcpy, 0 mov %i5, %o0 .LVL1133: stb %g0, [%i5+6] stb %g0, [%i5+7] sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 sethi %hi(22774784), %g1 srlx %g1, 8, %g1 mov 3, %g2 stb %g2, [%i5+%g1] sethi %hi(91100160), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 4, %i1 mov 4, %o2 sethi %hi(.LC161), %o1 or %o1, %lo(.LC161), %o1 call memcpy, 0 mov %i4, %o0 .LVL1134: mov 4, %o2 mov 0, %o1 call memset, 0 add %i4, 4, %o0 .LVL1135: mov 7, %i4 sethi %hi(22840320), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC162), %o1 or %o1, %lo(.LC162), %o1 sethi %hi(91362304), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1136: sethi %hi(22905856), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC163), %o1 or %o1, %lo(.LC163), %o1 sethi %hi(91624448), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1137: sethi %hi(22971392), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC164), %o1 or %o1, %lo(.LC164), %o1 sethi %hi(91886592), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1138: sethi %hi(23036928), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC165), %o1 or %o1, %lo(.LC165), %o1 sethi %hi(92148736), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1139: sethi %hi(23102464), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(92410880), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %i0 mov 5, %o2 sethi %hi(.LC166), %o1 or %o1, %lo(.LC166), %o1 call memcpy, 0 mov %i3, %o0 .LVL1140: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1141: sethi %hi(23168000), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC167), %o1 or %o1, %lo(.LC167), %o1 sethi %hi(92673024), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1142: sethi %hi(23233536), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(92935168), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC168), %o1 or %o1, %lo(.LC168), %o1 call memcpy, 0 mov %i3, %o0 .LVL1143: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1144: sethi %hi(23299072), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(93197312), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC169), %o1 or %o1, %lo(.LC169), %o1 call memcpy, 0 mov %i3, %o0 .LVL1145: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1146: sethi %hi(23364608), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC170), %o1 or %o1, %lo(.LC170), %o1 sethi %hi(93459456), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1147: sethi %hi(23430144), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC171), %o1 or %o1, %lo(.LC171), %o1 sethi %hi(93721600), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1148: sethi %hi(23495680), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC172), %o1 or %o1, %lo(.LC172), %o1 sethi %hi(93983744), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1149: sethi %hi(23561216), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(94245888), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC173), %o1 or %o1, %lo(.LC173), %o1 call memcpy, 0 mov %i3, %o0 .LVL1150: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1151: sethi %hi(23626752), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(94508032), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC174), %o1 or %o1, %lo(.LC174), %o1 call memcpy, 0 mov %i3, %o0 .LVL1152: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(23692288), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(94770176), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC175), %o1 or %o1, %lo(.LC175), %o1 call memcpy, 0 mov %i3, %o0 .LVL1153: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(23757824), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(95032320), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC176), %o1 or %o1, %lo(.LC176), %o1 call memcpy, 0 mov %i3, %o0 .LVL1154: stb %g0, [%i3+6] stb %g0, [%i3+7] mov 1, %i3 sethi %hi(23823360), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(95294464), %o0 srlx %o0, 10, %o0 sethi %hi(.LC177), %g1 ldub [%g1+%lo(.LC177)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC177)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1155: sethi %hi(23888896), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(95556608), %o0 srlx %o0, 10, %o0 sethi %hi(.LC178), %g1 ldub [%g1+%lo(.LC178)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC178)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1156: sethi %hi(23954432), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(95818752), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC179), %o1 or %o1, %lo(.LC179), %o1 call memcpy, 0 mov %i2, %o0 .LVL1157: stb %g0, [%i2+6] stb %g0, [%i2+7] mov 2, %i2 sethi %hi(24019968), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(96080896), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 3, %o2 sethi %hi(.LC180), %o1 or %o1, %lo(.LC180), %o1 call memcpy, 0 mov %l0, %o0 .LVL1158: mov 5, %o2 mov 0, %o1 call memset, 0 add %l0, 3, %o0 .LVL1159: sethi %hi(24151040), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(96605184), %o0 srlx %o0, 10, %o0 sethi %hi(.LC181), %g1 ldub [%g1+%lo(.LC181)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC181)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1160: sethi %hi(24216576), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(96867328), %o0 srlx %o0, 10, %o0 sethi %hi(.LC182), %g1 ldub [%g1+%lo(.LC182)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC182)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1161: sethi %hi(24282112), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(97129472), %o0 srlx %o0, 10, %o0 sethi %hi(.LC183), %g1 ldub [%g1+%lo(.LC183)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC183)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1162: sethi %hi(24347648), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(97391616), %o0 srlx %o0, 10, %o0 sethi %hi(.LC184), %g1 ldub [%g1+%lo(.LC184)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC184)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1163: sethi %hi(24413184), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(97653760), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 3, %o2 sethi %hi(.LC185), %o1 or %o1, %lo(.LC185), %o1 call memcpy, 0 mov %l0, %o0 .LVL1164: mov 5, %o2 mov 0, %o1 call memset, 0 add %l0, 3, %o0 .LVL1165: sethi %hi(24478720), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(97915904), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 3, %o2 sethi %hi(.LC186), %o1 or %o1, %lo(.LC186), %o1 call memcpy, 0 mov %l0, %o0 .LVL1166: mov 5, %o2 mov 0, %o1 call memset, 0 add %l0, 3, %o0 .LVL1167: sethi %hi(24544256), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(98178048), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 3, %o2 sethi %hi(.LC187), %o1 or %o1, %lo(.LC187), %o1 call memcpy, 0 mov %l0, %o0 .LVL1168: mov 5, %o2 mov 0, %o1 call memset, 0 add %l0, 3, %o0 .LVL1169: sethi %hi(24609792), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(98440192), %l0 srlx %l0, 10, %l0 add %i5, %l0, %l0 mov 3, %o2 sethi %hi(.LC188), %o1 or %o1, %lo(.LC188), %o1 call memcpy, 0 mov %l0, %o0 .LVL1170: mov 5, %o2 mov 0, %o1 call memset, 0 add %l0, 3, %o0 .LVL1171: sethi %hi(24675328), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(98702336), %o0 srlx %o0, 10, %o0 sethi %hi(.LC189), %g1 ldub [%g1+%lo(.LC189)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC189)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1172: sethi %hi(24740864), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(98964480), %o0 srlx %o0, 10, %o0 sethi %hi(.LC190), %g1 ldub [%g1+%lo(.LC190)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC190)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1173: sethi %hi(24806400), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(99226624), %o0 srlx %o0, 10, %o0 sethi %hi(.LC191), %g1 ldub [%g1+%lo(.LC191)], %g2 stb %g2, [%i5+%o0] add %i5, %o0, %o0 ldub [%g1+%lo(.LC191)+1], %g1 stb %g1, [%o0+1] mov 6, %o2 mov 0, %o1 call memset, 0 add %o0, 2, %o0 .LVL1174: sethi %hi(24871936), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(99488768), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 3, %o2 sethi %hi(.LC192), %o1 or %o1, %lo(.LC192), %o1 call memcpy, 0 mov %i3, %o0 .LVL1175: mov 5, %o2 mov 0, %o1 call memset, 0 add %i3, 3, %o0 .LVL1176: sethi %hi(24937472), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(99750912), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 3, %o2 sethi %hi(.LC193), %o1 or %o1, %lo(.LC193), %o1 call memcpy, 0 mov %i3, %o0 .LVL1177: mov 5, %o2 mov 0, %o1 call memset, 0 add %i3, 3, %o0 .LVL1178: mov 3, %g2 sethi %hi(25003008), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] sethi %hi(100013056), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 4, %o2 sethi %hi(.LC194), %o1 or %o1, %lo(.LC194), %o1 call memcpy, 0 mov %i3, %o0 .LVL1179: mov 4, %o2 mov 0, %o1 call memset, 0 add %i3, 4, %o0 .LVL1180: sethi %hi(25723904), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 8, %o2 sethi %hi(.LC195), %o1 or %o1, %lo(.LC195), %o1 sethi %hi(102896640), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1181: mov 6, %g2 sethi %hi(25789440), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] sethi %hi(103158784), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC196), %o1 or %o1, %lo(.LC196), %o1 call memcpy, 0 mov %i4, %o0 .LVL1182: stb %g0, [%i4+7] sethi %hi(25854976), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(103420928), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 6, %o2 sethi %hi(.LC197), %o1 or %o1, %lo(.LC197), %o1 call memcpy, 0 mov %i4, %o0 .LVL1183: stb %g0, [%i4+6] stb %g0, [%i4+7] mov 8, %g2 sethi %hi(25986048), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC198), %o1 or %o1, %lo(.LC198), %o1 sethi %hi(103945216), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1184: sethi %hi(26051584), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(104207360), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 5, %o2 sethi %hi(.LC199), %o1 or %o1, %lo(.LC199), %o1 call memcpy, 0 mov %i4, %o0 .LVL1185: mov 3, %o2 mov 0, %o1 call memset, 0 add %i4, 5, %o0 .LVL1186: sethi %hi(26117120), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(104469504), %g1 srlx %g1, 10, %g1 add %i5, %g1, %i5 mov 5, %i3 mov 5, %o2 sethi %hi(.LC200), %o1 or %o1, %lo(.LC200), %o1 call memcpy, 0 mov %i5, %o0 .LVL1187: mov 3, %i0 mov 3, %o2 mov 0, %o1 call memset, 0 add %i5, 5, %o0 .LVL1188: sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 5, %i2 sethi %hi(26182656), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(104731648), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 6, %i1 mov 6, %o2 sethi %hi(.LC201), %o1 or %o1, %lo(.LC201), %o1 call memcpy, 0 mov %i4, %o0 .LVL1189: stb %g0, [%i4+6] stb %g0, [%i4+7] sethi %hi(26248192), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(104993792), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 6, %o2 sethi %hi(.LC202), %o1 or %o1, %lo(.LC202), %o1 call memcpy, 0 mov %i4, %o0 .LVL1190: stb %g0, [%i4+6] stb %g0, [%i4+7] sethi %hi(26379264), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(105518080), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC203), %o1 or %o1, %lo(.LC203), %o1 call memcpy, 0 mov %i4, %o0 .LVL1191: stb %g0, [%i4+7] sethi %hi(26444800), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(105780224), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC204), %o1 or %o1, %lo(.LC204), %o1 call memcpy, 0 mov %i4, %o0 .LVL1192: stb %g0, [%i4+7] sethi %hi(26510336), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(106042368), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC205), %o1 or %o1, %lo(.LC205), %o1 call memcpy, 0 mov %i4, %o0 .LVL1193: stb %g0, [%i4+7] sethi %hi(26575872), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(106304512), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 6, %o2 sethi %hi(.LC206), %o1 or %o1, %lo(.LC206), %o1 call memcpy, 0 mov %i4, %o0 .LVL1194: stb %g0, [%i4+6] stb %g0, [%i4+7] mov 4, %i4 sethi %hi(26641408), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(106566656), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC207), %o1 or %o1, %lo(.LC207), %o1 call memcpy, 0 mov %i2, %o0 .LVL1195: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1196: sethi %hi(26706944), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(106828800), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC208), %o1 or %o1, %lo(.LC208), %o1 call memcpy, 0 mov %i2, %o0 .LVL1197: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1198: sethi %hi(26772480), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(107090944), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC209), %o1 or %o1, %lo(.LC209), %o1 call memcpy, 0 mov %i2, %o0 .LVL1199: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1200: sethi %hi(26838016), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(107353088), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC210), %o1 or %o1, %lo(.LC210), %o1 call memcpy, 0 mov %i2, %o0 .LVL1201: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1202: sethi %hi(26903552), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(107615232), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC211), %o1 or %o1, %lo(.LC211), %o1 call memcpy, 0 mov %i2, %o0 .LVL1203: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1204: sethi %hi(26969088), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(107877376), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC212), %o1 or %o1, %lo(.LC212), %o1 call memcpy, 0 mov %i2, %o0 .LVL1205: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1206: sethi %hi(27034624), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(108139520), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 5, %o2 sethi %hi(.LC213), %o1 or %o1, %lo(.LC213), %o1 call memcpy, 0 mov %i4, %o0 .LVL1207: mov 3, %o2 mov 0, %o1 call memset, 0 add %i4, 5, %o0 .LVL1208: sethi %hi(27100160), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(108401664), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %i4 mov 4, %o2 sethi %hi(.LC214), %o1 or %o1, %lo(.LC214), %o1 call memcpy, 0 mov %i2, %o0 .LVL1209: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1210: sethi %hi(27165696), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(108663808), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC215), %o1 or %o1, %lo(.LC215), %o1 call memcpy, 0 mov %i2, %o0 .LVL1211: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(27231232), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(108925952), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC216), %o1 or %o1, %lo(.LC216), %o1 call memcpy, 0 mov %i2, %o0 .LVL1212: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1213: sethi %hi(27296768), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(109188096), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC217), %o1 or %o1, %lo(.LC217), %o1 call memcpy, 0 mov %i2, %o0 .LVL1214: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1215: sethi %hi(27362304), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(109450240), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC218), %o1 or %o1, %lo(.LC218), %o1 call memcpy, 0 mov %i2, %o0 .LVL1216: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1217: sethi %hi(27427840), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(109712384), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC219), %o1 or %o1, %lo(.LC219), %o1 call memcpy, 0 mov %i2, %o0 .LVL1218: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1219: sethi %hi(27493376), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(109974528), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC220), %o1 or %o1, %lo(.LC220), %o1 call memcpy, 0 mov %i2, %o0 .LVL1220: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(27558912), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(110236672), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC221), %o1 or %o1, %lo(.LC221), %o1 call memcpy, 0 mov %i2, %o0 .LVL1221: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(27624448), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] sethi %hi(110498816), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC222), %o1 or %o1, %lo(.LC222), %o1 call memcpy, 0 mov %i2, %o0 .LVL1222: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1223: sethi %hi(27689984), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(110760960), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC223), %o1 or %o1, %lo(.LC223), %o1 call memcpy, 0 mov %i2, %o0 .LVL1224: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1225: sethi %hi(27755520), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(111023104), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC224), %o1 or %o1, %lo(.LC224), %o1 call memcpy, 0 mov %i2, %o0 .LVL1226: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1227: sethi %hi(27821056), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(111285248), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC225), %o1 or %o1, %lo(.LC225), %o1 call memcpy, 0 mov %i2, %o0 .LVL1228: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(27886592), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(111547392), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC226), %o1 or %o1, %lo(.LC226), %o1 call memcpy, 0 mov %i2, %o0 .LVL1229: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1230: sethi %hi(27952128), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(111809536), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC227), %o1 or %o1, %lo(.LC227), %o1 call memcpy, 0 mov %i2, %o0 .LVL1231: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(28017664), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(112071680), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC228), %o1 or %o1, %lo(.LC228), %o1 call memcpy, 0 mov %i2, %o0 .LVL1232: stb %g0, [%i2+7] sethi %hi(28083200), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(112333824), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC229), %o1 or %o1, %lo(.LC229), %o1 call memcpy, 0 mov %i2, %o0 .LVL1233: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1234: sethi %hi(28148736), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(112595968), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC230), %o1 or %o1, %lo(.LC230), %o1 call memcpy, 0 mov %i2, %o0 .LVL1235: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(28214272), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(112858112), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC231), %o1 or %o1, %lo(.LC231), %o1 call memcpy, 0 mov %i2, %o0 .LVL1236: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1237: sethi %hi(28279808), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(113120256), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC232), %o1 or %o1, %lo(.LC232), %o1 call memcpy, 0 mov %i2, %o0 .LVL1238: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1239: sethi %hi(28345344), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(113382400), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC233), %o1 or %o1, %lo(.LC233), %o1 call memcpy, 0 mov %i2, %o0 .LVL1240: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1241: sethi %hi(28410880), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(113644544), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC234), %o1 or %o1, %lo(.LC234), %o1 call memcpy, 0 mov %i2, %o0 .LVL1242: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1243: sethi %hi(28476416), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(113906688), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC235), %o1 or %o1, %lo(.LC235), %o1 call memcpy, 0 mov %i2, %o0 .LVL1244: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(28541952), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(114168832), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC236), %o1 or %o1, %lo(.LC236), %o1 call memcpy, 0 mov %i3, %o0 .LVL1245: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(28607488), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(114430976), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 7, %o2 sethi %hi(.LC237), %o1 or %o1, %lo(.LC237), %o1 call memcpy, 0 mov %i3, %o0 .LVL1246: stb %g0, [%i3+7] sethi %hi(28673024), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(114693120), %o0 srlx %o0, 10, %i4 mov 5, %o2 sethi %hi(.LC238), %o1 or %o1, %lo(.LC238), %o1 call memcpy, 0 add %i5, %i4, %o0 .LVL1247: add %i5, %i4, %o0 mov 3, %o2 mov 0, %o1 call memset, 0 add %o0, 5, %o0 .LVL1248: sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 6, %i3 sethi %hi(28738560), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(114955264), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %i1 mov 7, %o2 sethi %hi(.LC239), %o1 or %o1, %lo(.LC239), %o1 call memcpy, 0 mov %i4, %o0 .LVL1249: stb %g0, [%i4+7] sethi %hi(28804096), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(115217408), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC240), %o1 or %o1, %lo(.LC240), %o1 call memcpy, 0 mov %i4, %o0 .LVL1250: stb %g0, [%i4+7] mov 4, %l0 sethi %hi(28869632), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(115479552), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %i4 mov 5, %o2 sethi %hi(.LC241), %o1 or %o1, %lo(.LC241), %o1 call memcpy, 0 mov %i3, %o0 .LVL1251: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1252: sethi %hi(28935168), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(115741696), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %i3 mov 6, %o2 sethi %hi(.LC242), %o1 or %o1, %lo(.LC242), %o1 call memcpy, 0 mov %i2, %o0 .LVL1253: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(29000704), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] mov 8, %i0 mov 8, %o2 sethi %hi(.LC243), %o1 or %o1, %lo(.LC243), %o1 sethi %hi(116003840), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1254: sethi %hi(29066240), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(116265984), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC244), %o1 or %o1, %lo(.LC244), %o1 call memcpy, 0 mov %i2, %o0 .LVL1255: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1256: sethi %hi(29131776), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(116528128), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC245), %o1 or %o1, %lo(.LC245), %o1 call memcpy, 0 mov %i2, %o0 .LVL1257: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1258: sethi %hi(29197312), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(116790272), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC246), %o1 or %o1, %lo(.LC246), %o1 call memcpy, 0 mov %i2, %o0 .LVL1259: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1260: sethi %hi(29262848), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] mov 8, %o2 sethi %hi(.LC247), %o1 or %o1, %lo(.LC247), %o1 sethi %hi(117052416), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1261: sethi %hi(29328384), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(117314560), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC248), %o1 or %o1, %lo(.LC248), %o1 call memcpy, 0 mov %i2, %o0 .LVL1262: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1263: sethi %hi(29721600), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(118887424), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC249), %o1 or %o1, %lo(.LC249), %o1 call memcpy, 0 mov %i2, %o0 .LVL1264: stb %g0, [%i2+7] sethi %hi(29787136), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(119149568), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC250), %o1 or %o1, %lo(.LC250), %o1 call memcpy, 0 mov %i2, %o0 .LVL1265: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(29852672), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(119411712), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC251), %o1 or %o1, %lo(.LC251), %o1 call memcpy, 0 mov %i2, %o0 .LVL1266: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(29918208), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(119673856), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC252), %o1 or %o1, %lo(.LC252), %o1 call memcpy, 0 mov %i2, %o0 .LVL1267: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(29983744), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(119936000), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC253), %o1 or %o1, %lo(.LC253), %o1 call memcpy, 0 mov %i2, %o0 .LVL1268: stb %g0, [%i2+7] sethi %hi(30049280), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(120198144), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC254), %o1 or %o1, %lo(.LC254), %o1 call memcpy, 0 mov %i2, %o0 .LVL1269: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(30114816), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC255), %o1 or %o1, %lo(.LC255), %o1 sethi %hi(120460288), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1270: sethi %hi(30180352), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(120722432), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC256), %o1 or %o1, %lo(.LC256), %o1 call memcpy, 0 mov %i2, %o0 .LVL1271: stb %g0, [%i2+7] sethi %hi(30245888), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(120984576), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC257), %o1 or %o1, %lo(.LC257), %o1 call memcpy, 0 mov %i2, %o0 .LVL1272: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(30311424), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(121246720), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC258), %o1 or %o1, %lo(.LC258), %o1 call memcpy, 0 mov %i2, %o0 .LVL1273: stb %g0, [%i2+7] sethi %hi(30376960), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(121508864), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC259), %o1 or %o1, %lo(.LC259), %o1 call memcpy, 0 mov %i2, %o0 .LVL1274: stb %g0, [%i2+7] sethi %hi(30442496), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(121771008), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC260), %o1 or %o1, %lo(.LC260), %o1 call memcpy, 0 mov %i2, %o0 .LVL1275: stb %g0, [%i2+7] sethi %hi(30508032), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] mov 8, %o2 sethi %hi(.LC261), %o1 or %o1, %lo(.LC261), %o1 sethi %hi(122033152), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1276: sethi %hi(30573568), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC262), %o1 or %o1, %lo(.LC262), %o1 sethi %hi(122295296), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1277: sethi %hi(30639104), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(122557440), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC263), %o1 or %o1, %lo(.LC263), %o1 call memcpy, 0 mov %i2, %o0 .LVL1278: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(30704640), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(122819584), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC264), %o1 or %o1, %lo(.LC264), %o1 call memcpy, 0 mov %i2, %o0 .LVL1279: stb %g0, [%i2+7] sethi %hi(30770176), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(123081728), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC265), %o1 or %o1, %lo(.LC265), %o1 call memcpy, 0 mov %i2, %o0 .LVL1280: stb %g0, [%i2+7] sethi %hi(30835712), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(123343872), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 7, %o2 sethi %hi(.LC266), %o1 or %o1, %lo(.LC266), %o1 call memcpy, 0 mov %i3, %o0 .LVL1281: stb %g0, [%i3+7] sethi %hi(30901248), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC267), %o1 or %o1, %lo(.LC267), %o1 sethi %hi(123606016), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1282: mov 3, %g2 sethi %hi(30966784), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] sethi %hi(123868160), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 4, %i2 mov 4, %o2 sethi %hi(.LC268), %o1 or %o1, %lo(.LC268), %o1 call memcpy, 0 mov %i3, %o0 .LVL1283: mov 4, %o2 mov 0, %o1 call memset, 0 add %i3, 4, %o0 .LVL1284: sethi %hi(31032320), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] mov 8, %o2 sethi %hi(.LC269), %o1 or %o1, %lo(.LC269), %o1 sethi %hi(124130304), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1285: sethi %hi(31097856), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(124392448), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC270), %o1 or %o1, %lo(.LC270), %o1 call memcpy, 0 mov %i3, %o0 .LVL1286: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1287: sethi %hi(31163392), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(124654592), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC271), %o1 or %o1, %lo(.LC271), %o1 call memcpy, 0 mov %i3, %o0 .LVL1288: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1289: sethi %hi(31228928), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(124916736), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC272), %o1 or %o1, %lo(.LC272), %o1 call memcpy, 0 mov %i3, %o0 .LVL1290: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1291: sethi %hi(31294464), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(125178880), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC273), %o1 or %o1, %lo(.LC273), %o1 call memcpy, 0 mov %i3, %o0 .LVL1292: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1293: sethi %hi(31360000), %g1 srlx %g1, 8, %g1 stb %i2, [%i5+%g1] sethi %hi(125441024), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 5, %o2 sethi %hi(.LC274), %o1 or %o1, %lo(.LC274), %o1 call memcpy, 0 mov %i3, %o0 .LVL1294: mov 3, %o2 mov 0, %o1 call memset, 0 add %i3, 5, %o0 .LVL1295: sethi %hi(31425536), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(125703168), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC275), %o1 or %o1, %lo(.LC275), %o1 call memcpy, 0 mov %i3, %o0 .LVL1296: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(31491072), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(125965312), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC276), %o1 or %o1, %lo(.LC276), %o1 call memcpy, 0 mov %i3, %o0 .LVL1297: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(31556608), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(126227456), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC277), %o1 or %o1, %lo(.LC277), %o1 call memcpy, 0 mov %i3, %o0 .LVL1298: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(31622144), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(126489600), %i3 srlx %i3, 10, %i3 add %i5, %i3, %i3 mov 6, %o2 sethi %hi(.LC278), %o1 or %o1, %lo(.LC278), %o1 call memcpy, 0 mov %i3, %o0 .LVL1299: stb %g0, [%i3+6] stb %g0, [%i3+7] sethi %hi(31687680), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(126751744), %g1 srlx %g1, 10, %g1 add %i5, %g1, %i5 mov 6, %o2 sethi %hi(.LC279), %o1 or %o1, %lo(.LC279), %o1 call memcpy, 0 mov %i5, %o0 .LVL1300: stb %g0, [%i5+6] stb %g0, [%i5+7] sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 6, %i3 sethi %hi(31753216), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(127013888), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %i0 mov 7, %o2 sethi %hi(.LC280), %o1 or %o1, %lo(.LC280), %o1 call memcpy, 0 mov %i4, %o0 .LVL1301: stb %g0, [%i4+7] sethi %hi(31818752), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(127276032), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC281), %o1 or %o1, %lo(.LC281), %o1 call memcpy, 0 mov %i4, %o0 .LVL1302: stb %g0, [%i4+7] sethi %hi(31884288), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(127538176), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 7, %o2 sethi %hi(.LC282), %o1 or %o1, %lo(.LC282), %o1 call memcpy, 0 mov %i4, %o0 .LVL1303: stb %g0, [%i4+7] sethi %hi(31949824), %g1 srlx %g1, 8, %g1 mov 4, %g2 stb %g2, [%i5+%g1] sethi %hi(127800320), %i4 srlx %i4, 10, %i4 add %i5, %i4, %i4 mov 5, %i3 mov 5, %o2 sethi %hi(.LC283), %o1 or %o1, %lo(.LC283), %o1 call memcpy, 0 mov %i4, %o0 .LVL1304: mov 3, %l0 mov 3, %o2 mov 0, %o1 call memset, 0 add %i4, 5, %o0 .LVL1305: sethi %hi(32015360), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(128062464), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %i4 mov 4, %o2 sethi %hi(.LC284), %o1 or %o1, %lo(.LC284), %o1 call memcpy, 0 mov %i2, %o0 .LVL1306: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1307: sethi %hi(32080896), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(128324608), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC285), %o1 or %o1, %lo(.LC285), %o1 call memcpy, 0 mov %i2, %o0 .LVL1308: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1309: sethi %hi(32146432), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(128586752), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %i1 mov 6, %o2 sethi %hi(.LC286), %o1 or %o1, %lo(.LC286), %o1 call memcpy, 0 mov %i2, %o0 .LVL1310: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(32211968), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(128848896), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC287), %o1 or %o1, %lo(.LC287), %o1 call memcpy, 0 mov %i2, %o0 .LVL1311: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1312: sethi %hi(32277504), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(129111040), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC288), %o1 or %o1, %lo(.LC288), %o1 call memcpy, 0 mov %i2, %o0 .LVL1313: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1314: sethi %hi(32343040), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(129373184), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC289), %o1 or %o1, %lo(.LC289), %o1 call memcpy, 0 mov %i2, %o0 .LVL1315: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1316: sethi %hi(32408576), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(129635328), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC290), %o1 or %o1, %lo(.LC290), %o1 call memcpy, 0 mov %i2, %o0 .LVL1317: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1318: sethi %hi(32474112), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(129897472), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC291), %o1 or %o1, %lo(.LC291), %o1 call memcpy, 0 mov %i2, %o0 .LVL1319: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(32539648), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(130159616), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC292), %o1 or %o1, %lo(.LC292), %o1 call memcpy, 0 mov %i2, %o0 .LVL1320: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(32605184), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(130421760), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC293), %o1 or %o1, %lo(.LC293), %o1 call memcpy, 0 mov %i2, %o0 .LVL1321: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(32670720), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(130683904), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC294), %o1 or %o1, %lo(.LC294), %o1 call memcpy, 0 mov %i2, %o0 .LVL1322: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1323: sethi %hi(32736256), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(130946048), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC295), %o1 or %o1, %lo(.LC295), %o1 call memcpy, 0 mov %i2, %o0 .LVL1324: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1325: sethi %hi(32801792), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(131208192), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC296), %o1 or %o1, %lo(.LC296), %o1 call memcpy, 0 mov %i2, %o0 .LVL1326: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1327: sethi %hi(32867328), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC297), %o1 or %o1, %lo(.LC297), %o1 sethi %hi(131470336), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1328: sethi %hi(32932864), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(131732480), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC298), %o1 or %o1, %lo(.LC298), %o1 call memcpy, 0 mov %i2, %o0 .LVL1329: stb %g0, [%i2+7] sethi %hi(32998400), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(131994624), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC299), %o1 or %o1, %lo(.LC299), %o1 call memcpy, 0 mov %i2, %o0 .LVL1330: stb %g0, [%i2+7] sethi %hi(33063936), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(132256768), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC300), %o1 or %o1, %lo(.LC300), %o1 call memcpy, 0 mov %i2, %o0 .LVL1331: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1332: sethi %hi(33129472), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(132518912), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC301), %o1 or %o1, %lo(.LC301), %o1 call memcpy, 0 mov %i2, %o0 .LVL1333: stb %g0, [%i2+7] sethi %hi(33195008), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(132781056), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC302), %o1 or %o1, %lo(.LC302), %o1 call memcpy, 0 mov %i2, %o0 .LVL1334: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(33260544), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(133043200), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC303), %o1 or %o1, %lo(.LC303), %o1 call memcpy, 0 mov %i2, %o0 .LVL1335: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(33326080), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] sethi %hi(133305344), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 6, %o2 sethi %hi(.LC304), %o1 or %o1, %lo(.LC304), %o1 call memcpy, 0 mov %i2, %o0 .LVL1336: stb %g0, [%i2+6] stb %g0, [%i2+7] sethi %hi(33391616), %g1 srlx %g1, 8, %g1 stb %l0, [%i5+%g1] sethi %hi(133567488), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 4, %o2 sethi %hi(.LC305), %o1 or %o1, %lo(.LC305), %o1 call memcpy, 0 mov %i2, %o0 .LVL1337: mov 4, %o2 mov 0, %o1 call memset, 0 add %i2, 4, %o0 .LVL1338: sethi %hi(33457152), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(133829632), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC306), %o1 or %o1, %lo(.LC306), %o1 call memcpy, 0 mov %i2, %o0 .LVL1339: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1340: sethi %hi(33522688), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(134091776), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC307), %o1 or %o1, %lo(.LC307), %o1 call memcpy, 0 mov %i2, %o0 .LVL1341: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1342: sethi %hi(33588224), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(134353920), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC308), %o1 or %o1, %lo(.LC308), %o1 call memcpy, 0 mov %i2, %o0 .LVL1343: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1344: sethi %hi(33653760), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC309), %o1 or %o1, %lo(.LC309), %o1 sethi %hi(134616064), %o0 srlx %o0, 10, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1345: sethi %hi(33719296), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] sethi %hi(134878208), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 7, %o2 sethi %hi(.LC310), %o1 or %o1, %lo(.LC310), %o1 call memcpy, 0 mov %i2, %o0 .LVL1346: stb %g0, [%i2+7] sethi %hi(33784832), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] sethi %hi(135140352), %i2 srlx %i2, 10, %i2 add %i5, %i2, %i2 mov 5, %o2 sethi %hi(.LC311), %o1 or %o1, %lo(.LC311), %o1 call memcpy, 0 mov %i2, %o0 .LVL1347: mov 3, %o2 mov 0, %o1 call memset, 0 add %i2, 5, %o0 .LVL1348: sethi %hi(33850368), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] mov 7, %o2 sethi %hi(.LC312), %o1 or %o1, %lo(.LC312), %o1 call memcpy, 0 add %fp, -1812, %o0 .LVL1349: stb %g0, [%fp-1805] sethi %hi(33915904), %g1 srlx %g1, 8, %g1 stb %i3, [%i5+%g1] mov 6, %o2 sethi %hi(.LC313), %o1 or %o1, %lo(.LC313), %o1 call memcpy, 0 add %fp, -1556, %o0 .LVL1350: stb %g0, [%fp-1550] stb %g0, [%fp-1549] sethi %hi(33981440), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC314), %o1 or %o1, %lo(.LC314), %o1 call memcpy, 0 add %fp, -1300, %o0 .LVL1351: sethi %hi(34046976), %g1 srlx %g1, 8, %g1 stb %i4, [%i5+%g1] mov 5, %o2 sethi %hi(.LC315), %o1 or %o1, %lo(.LC315), %o1 call memcpy, 0 add %fp, -1044, %o0 .LVL1352: mov 3, %o2 mov 0, %o1 call memset, 0 add %fp, -1039, %o0 .LVL1353: sethi %hi(34112512), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC316), %o1 or %o1, %lo(.LC316), %o1 call memcpy, 0 add %fp, -788, %o0 .LVL1354: sethi %hi(34374656), %g1 srlx %g1, 8, %g1 stb %i1, [%i5+%g1] mov 7, %o2 sethi %hi(.LC317), %o1 or %o1, %lo(.LC317), %o1 call memcpy, 0 add %fp, 236, %o0 .LVL1355: stb %g0, [%fp+243] sethi %hi(34440192), %g1 srlx %g1, 8, %g1 stb %i0, [%i5+%g1] mov 8, %o2 sethi %hi(.LC318), %o1 or %o1, %lo(.LC318), %o1 call memcpy, 0 add %fp, 492, %o0 .LVL1356: mov 8, %g2 sethi %hi(34505728), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] mov 8, %o2 sethi %hi(.LC319), %o1 or %o1, %lo(.LC319), %o1 call memcpy, 0 add %fp, 748, %o0 .LVL1357: sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 sethi %hi(34571264), %g1 srlx %g1, 8, %g1 mov 6, %g2 stb %g2, [%i5+%g1] mov 7, %o2 sethi %hi(.LC320), %o1 or %o1, %lo(.LC320), %o1 call memcpy, 0 add %fp, 1004, %o0 .LVL1358: stb %g0, [%fp+1011] mov 240, %o2 sethi %hi(.LC2), %o1 or %o1, %lo(.LC2), %o1 sethi %hi(17476608), %o0 srlx %o0, 8, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1359: mov 90, %g2 sethi %hi(35685376), %g1 srlx %g1, 9, %g1 stb %g2, [%i5+%g1] sethi %hi(71371776), %g1 srlx %g1, 10, %g1 stb %g2, [%i5+%g1] sethi %hi(17843200), %g1 srlx %g1, 8, %g1 stb %g2, [%i5+%g1] sethi %hi(71373824), %g1 srlx %g1, 10, %g1 stb %g2, [%i5+%g1] sethi %hi(35687424), %g1 srlx %g1, 9, %g1 stb %g2, [%i5+%g1] mov 48, %g3 sethi %hi(71375872), %g1 srlx %g1, 10, %g1 stb %g3, [%i5+%g1] sethi %hi(8922112), %g1 srlx %g1, 7, %g1 stb %g3, [%i5+%g1] mov 19, %g1 sethi %hi(71377920), %g3 srlx %g3, 10, %g3 stb %g1, [%i5+%g3] sethi %hi(35689472), %g3 srlx %g3, 9, %g3 stb %g1, [%i5+%g3] sethi %hi(71379968), %g3 srlx %g3, 10, %g3 stb %g1, [%i5+%g3] sethi %hi(17845248), %g3 srlx %g3, 8, %g3 stb %g1, [%i5+%g3] mov 25, %g1 sethi %hi(71382016), %g3 srlx %g3, 10, %g3 stb %g1, [%i5+%g3] sethi %hi(35691520), %g3 srlx %g3, 9, %g3 stb %g1, [%i5+%g3] sethi %hi(71384064), %g3 srlx %g3, 10, %g3 stb %g1, [%i5+%g3] sethi %hi(4461568), %g3 srlx %g3, 6, %g3 stb %g1, [%i5+%g3] sethi %hi(71386112), %g3 srlx %g3, 10, %g3 stb %g1, [%i5+%g3] sethi %hi(35693568), %g3 srlx %g3, 9, %g3 stb %g1, [%i5+%g3] sethi %hi(71388160), %g3 srlx %g3, 10, %g3 stb %g1, [%i5+%g3] mov 23, %i4 sethi %hi(17847296), %g3 srlx %g3, 8, %g3 stb %i4, [%i5+%g3] mov 104, %g5 sethi %hi(71390208), %g3 srlx %g3, 10, %g3 stb %g5, [%i5+%g3] sethi %hi(35695616), %g3 srlx %g3, 9, %g3 stb %g5, [%i5+%g3] sethi %hi(71392256), %g3 srlx %g3, 10, %g3 mov 105, %g4 stb %g4, [%i5+%g3] sethi %hi(8924160), %g3 srlx %g3, 7, %g3 mov 30, %g4 stb %g4, [%i5+%g3] sethi %hi(71394304), %g3 srlx %g3, 10, %g3 mov 20, %g4 stb %g4, [%i5+%g3] sethi %hi(35697664), %g3 srlx %g3, 9, %g3 mov 21, %g4 stb %g4, [%i5+%g3] mov 93, %g4 sethi %hi(71396352), %g3 srlx %g3, 10, %g3 stb %g4, [%i5+%g3] sethi %hi(17849344), %g3 srlx %g3, 8, %g3 mov 47, %i3 stb %i3, [%i5+%g3] sethi %hi(71398400), %g3 srlx %g3, 10, %g3 mov 45, %i3 stb %i3, [%i5+%g3] sethi %hi(35699712), %g3 srlx %g3, 9, %g3 mov 46, %i3 stb %i3, [%i5+%g3] sethi %hi(71400448), %g3 srlx %g3, 10, %g3 mov 42, %i3 stb %i3, [%i5+%g3] mov 2179, %g3 sllx %g3, 5, %g3 mov 43, %i3 stb %i3, [%i5+%g3] sethi %hi(71402496), %g3 srlx %g3, 10, %g3 mov 44, %i3 stb %i3, [%i5+%g3] mov 40, %i3 sethi %hi(35701760), %g3 srlx %g3, 9, %g3 stb %i3, [%i5+%g3] sethi %hi(71404544), %g3 srlx %g3, 10, %g3 mov 68, %i2 stb %i2, [%i5+%g3] sethi %hi(17851392), %g3 srlx %g3, 8, %g3 mov 55, %i2 stb %i2, [%i5+%g3] sethi %hi(71406592), %g3 srlx %g3, 10, %g3 stb %g5, [%i5+%g3] sethi %hi(35703808), %g3 srlx %g3, 9, %g3 mov 60, %g5 stb %g5, [%i5+%g3] sethi %hi(71408640), %g3 srlx %g3, 10, %g3 stb %g4, [%i5+%g3] sethi %hi(8926208), %g3 srlx %g3, 7, %g3 stb %g1, [%i5+%g3] sethi %hi(71410688), %g3 srlx %g3, 10, %g3 stb %i3, [%i5+%g3] sethi %hi(35705856), %g3 srlx %g3, 9, %g3 stb %g4, [%i5+%g3] sethi %hi(71412736), %g3 srlx %g3, 10, %g3 stb %i4, [%i5+%g3] sethi %hi(17853440), %g3 srlx %g3, 8, %g3 stb %g1, [%i5+%g3] sethi %hi(71414784), %g3 srlx %g3, 10, %g3 mov 57, %g4 stb %g4, [%i5+%g3] sethi %hi(35707904), %g3 srlx %g3, 9, %g3 stb %g1, [%i5+%g3] sethi %hi(71416832), %g1 srlx %g1, 10, %g1 stb %g2, [%i5+%g1] sethi %hi(4463616), %g1 srlx %g1, 6, %g1 mov -80, %g2 stb %g2, [%i5+%g1] sethi %hi(71418880), %g1 srlx %g1, 10, %g1 mov -79, %g2 stb %g2, [%i5+%g1] sethi %hi(35709952), %g1 srlx %g1, 9, %g1 mov -78, %g2 stb %g2, [%i5+%g1] sethi %hi(71420928), %g1 srlx %g1, 10, %g1 mov -77, %g2 stb %g2, [%i5+%g1] mov 1174, %o2 sethi %hi(.LC4), %o1 or %o1, %lo(.LC4), %o1 sethi %hi(17538048), %o0 srlx %o0, 8, %o0 call memcpy, 0 add %i5, %o0, %o0 .LVL1360: 573 !*** end of generated tables *** 574 575 %routine flush buffer( %integer limit ) .LVL576: save %sp, -1472, %sp .LVL577: mov %g5, %i4 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 576 %integer j 577 %if bp >= limit %start sethi %hi(BP.6169), %g1 lduw [%g1+%lo(BP.6169)], %g1 cmp %g1, %i0 bl,pn %icc, .L592 sethi %hi(FAULTY.6092), %g1 578 %if faulty = 0 %start lduw [%g1+%lo(FAULTY.6092)], %g1 cmp %g1, 0 be,pn %icc, .L604 sethi %hi(BP.6169), %g1 .L594: .L607: 579 selectoutput(object) 580 %for j = 1, 1, bp %cycle 581 printsymbol(buff(j)) sethi %hi(BP.6169), %g1 lduw [%g1+%lo(BP.6169)], %i3 .LVL580: 582 %repeat addcc %i3, -1, %g0 bneg,pn %icc, .L606 cmp %i3, 0 .LVL581: .L608: sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L596 mov 256, %o2 call _imp_c2istr, 0 add %fp, 1527, %o0 .LVL588: sethi %hi(_imp_current_line), %g1 .L609: lduw [%g1+%lo(_imp_current_line)], %i5 cmp %i5, 0 move %icc, 582, %i5 sethi %hi(.LC86), %o1 or %o1, %lo(.LC86), %o1 call _imp_c2istr, 0 add %fp, 1783, %o0 .LVL589: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1007, %o0 .LVL590: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 751, %o0 .LVL591: mov 0, %o5 mov 1, %o4 mov 5, %o3 add %fp, 751, %o2 sra %i5, 0, %o1 call _signal_event, 0 add %fp, 1007, %o0 .LVL592: .LBE577: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL593: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 1271, %o0 .LVL594: .LBE574: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL595: .LBE578: ba,pt %xcc, .L609 sethi %hi(_imp_current_line), %g1 .LVL596: .L605: 583 selectoutput(listing) 584 %finish 585 bp = 0 st %g0, [%g1+%lo(BP.6169)] .L593: .L592: be,pn %icc, .L599 add %i3, -1, %i3 sethi %hi(34702336), %i5 srlx %i5, 8, %i5 add %i4, %i5, %i5 .LVL582: srl %i3, 0, %i3 add %i4, %i3, %i4 sethi %hi(138810368), %g1 srlx %g1, 10, %g1 add %i4, %g1, %i4 .LVL583: .L600: .LBB572: .LBB573: call _imp_printsymbol, 0 ldsb [%i5], %o0 .LVL584: add %i5, 1, %i5 .LBE573: .LBE572: cmp %i5, %i4 bne,pt %xcc, .L600 nop .LVL585: .L599: .LBE571: .LBB575: .LBB576: sethi %hi(_imp_OutStream), %g1 mov 2, %g2 st %g2, [%g1+%lo(_imp_OutStream)] sethi %hi(_imp_outfile), %g1 ldx [%g1+%lo(_imp_outfile)+584], %g2 sethi %hi(_imp_OutFile), %g1 stx %g2, [%g1+%lo(_imp_OutFile)] sethi %hi(__PRETTY_FUNCTION__.5660), %o0 call check_outstream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5660), %o0 .LVL586: .LBE576: .LBE575: ba,pt %xcc, .L607 sethi %hi(BP.6169), %g1 .LVL587: .L606: .LBB577: ba,pt %xcc, .L608 cmp %i3, 0 .L596: .LBB578: .LBB574: 586 %finish 587 %end 588 ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L605 nop return %i7+8 nop .L604: .LVL578: .LBB569: .LBB570: sethi %hi(_imp_OutStream), %g1 mov 1, %g2 st %g2, [%g1+%lo(_imp_OutStream)] sethi %hi(_imp_outfile), %g1 ldx [%g1+%lo(_imp_outfile)+296], %g2 sethi %hi(_imp_OutFile), %g1 stx %g2, [%g1+%lo(_imp_OutFile)] sethi %hi(__PRETTY_FUNCTION__.5660), %o0 call check_outstream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5660), %o0 .LVL579: .LBE570: .LBE569: .LBB571: call __stack_chk_fail, 0 nop .LVL597: nop .LFE186: .align 4 .proc 020 DEF.7277: .LFB219: 589 %routine add char( %byteinteger ch ) .register %g2, #scratch .register %g3, #scratch .LVL0: 590 bp = bp + 1 sethi %hi(BP.6169), %g2 lduw [%g2+%lo(BP.6169)], %g1 add %g1, 1, %g3 st %g3, [%g2+%lo(BP.6169)] 591 buff(bp) = ch sra %g1, 0, %g1 add %g5, %g1, %g1 sethi %hi(34702336), %g2 srlx %g2, 8, %g2 592 %end 593 jmp %o7+8 stb %o0, [%g1+%g2] .LFE187: .align 4 .proc 020 OP.6199: .LFB188: 594 %routine op(%integer code, param) .LVL1: 595 buff(bp+1) = code sethi %hi(BP.6169), %g4 lduw [%g4+%lo(BP.6169)], %g1 sra %g1, 0, %g3 add %g5, %g3, %g3 sethi %hi(34702336), %g2 srlx %g2, 8, %g2 stb %o0, [%g3+%g2] 596 buff(bp+2) = param>>8 add %g1, 1, %g3 sra %g3, 0, %g3 add %g5, %g3, %g3 srl %o1, 8, %o5 stb %o5, [%g3+%g2] 597 buff(bp+3) = param add %g1, 2, %g3 sra %g3, 0, %g3 add %g5, %g3, %g5 stb %o1, [%g5+%g2] 598 bp = bp+3 add %g1, 3, %g1 599 %end 600 jmp %o7+8 st %g1, [%g4+%lo(BP.6169)] .LFE188: .align 4 .proc 020 SETCONST.6202: .LFB189: 601 %routine set const(%integer m) .LVL2: 602 buff(bp+1) = 'N' sethi %hi(BP.6169), %g4 lduw [%g4+%lo(BP.6169)], %g1 sra %g1, 0, %g3 add %g5, %g3, %g3 sethi %hi(34702336), %g2 srlx %g2, 8, %g2 mov 78, %o5 stb %o5, [%g3+%g2] 603 buff(bp+5) = m; m = m>>8 add %g1, 4, %g3 sra %g3, 0, %g3 add %g5, %g3, %g3 stb %o0, [%g3+%g2] .LVL3: 604 buff(bp+4) = m; m = m>>8 add %g1, 3, %g3 sra %g3, 0, %g3 add %g5, %g3, %g3 srl %o0, 8, %o5 .LVL4: stb %o5, [%g3+%g2] .LVL5: 605 buff(bp+3) = m; m = m>>8 add %g1, 2, %g3 sra %g3, 0, %g3 add %g5, %g3, %g3 srl %o0, 16, %o5 .LVL6: stb %o5, [%g3+%g2] .LVL7: 606 buff(bp+2) = m add %g1, 1, %g3 sra %g3, 0, %g3 add %g5, %g3, %g5 srl %o0, 24, %o0 .LVL8: stb %o0, [%g5+%g2] 607 bp = bp+5 add %g1, 5, %g1 608 %end 609 jmp %o7+8 st %g1, [%g4+%lo(BP.6169)] .LFE189: .align 4 .proc 020 SETCELL.6511: .LFB199: 610 %routine octal(%integer n) 611 %integer m 612 m = n>>3 613 octal(m) %if m # 0 614 add char( n&7+'0' ) 615 %end 616 617 %routine hexadecimal(%integer n) 618 %integer m 619 m = n>>4 620 hexadecimal(m) %if m # 0 621 %if n&15 > 9 %then add char( n&15+'A' ) %else add char( n&15+'0' ) 622 %end 623 624 %routine print ident(%integer p, mode) .LVL33: save %sp, -208, %sp .LVL34: mov %g5, %l0 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 add %fp, 2047, %g1 stx %g1, [%fp+2031] st %i1, [%fp+2023] stx %g5, [%fp+2015] 625 626 %routine putit(%integer ch) .LVL28: save %sp, -176, %sp .LVL29: 627 %if mode = 0 %then %start lduw [%g5+8], %g1 cmp %g1, 0 be,pn %icc, .L33 sllx %i0, 56, %o0 .L31: 628 printsymbol(ch) 629 %else 630 add char( ch ) ldx [%g5], %g5 call ADDCHAR.6195, 0 and %i0, 0xff, %o0 .LVL30: .L32: 631 %finish 632 %end 633 return %i7+8 nop .L33: .LVL31: .LBB276: .LBB277: call _imp_printsymbol, 0 srax %o0, 56, %o0 .LVL32: return %i7+8 nop .LBE277: .LBE276: .LFE193: .align 4 .proc 020 PRINTIDENT.6218: .LFB192: 634 %integer k, l 635 p = tag(p)_text sllx %i0, 1, %g1 add %g1, %i0, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 sethi %hi(12559360), %g2 srlx %g2, 8, %g2 lduw [%g1+%g2], %i5 sra %i5, 0, %g1 .LVL35: 636 %if p = 0 %start brz,pn %g1, .L41 mov 1565, %g2 .L35: 637 putit('?') add %fp, 2015, %g5 call PUTIT.6221, 0 mov 63, %o0 .LVL46: 638 %return ba,pt %xcc, .L34 nop .LVL47: .L42: 639 %finish 640 p = p+1; ! advance to name string add %i5, 1, %i5 .LVL36: 641 k = dict(p) sllx %g2, 2, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 add %g5, %g1, %g1 lduw [%g1+4], %i2 .LVL37: 642 l = k & 255; ! length 643 %while l > 0 %cycle 644 putit(k>>8) andcc %i2, 255, %i4 be,pn %icc, .L34 sra %i5, 0, %i5 add %fp, 2015, %g5 call PUTIT.6221, 0 srl %i2, 8, %o0 .LVL39: cmp %i4, 0 bg,pt %icc, .L38 mov %i3, %i5 .L36: .LVL44: .L34: 645 l = l-1 646 p = p+1 add %i5, 1, %g1 sra %g1, 0, %i3 .LVL40: 647 k = dict(p) mov %g2, %i1 .LVL38: .L38: add %i5, %i1, %i5 sllx %i5, 2, %i5 add %l0, %i5, %i5 .LVL41: 648 %exit %if l = 0 cmp %i4, 1 be,pn %icc, .L34 lduw [%i5+4], %i2 .L37: 649 putit(k&255) add %fp, 2015, %g5 call PUTIT.6221, 0 and %i2, 0xff, %o0 .LVL42: 650 l = l-1 add %i4, -2, %i4 .LVL43: .LDL3: 651 %repeat 652 %end 653 ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L42 nop return %i7+8 nop .LVL45: .L41: call __stack_chk_fail, 0 nop .LVL48: nop .LFE192: .section .rodata.str1.8,"aMS",@progbits,1 .align 8 .LC78: .asciz "->REASON(%d) out of bounds at %s line %d" .align 8 .LC79: .asciz "test-new/pass1.imp" .align 8 .LC80: .asciz "switch jump to undefined label REASON(%d): at %s line %d" .section ".rodata" .LC17: .byte 18 .asciz "test-new/pass1.imp" .skip 236 .section ".text" .align 4 .proc 020 ABANDON.6232: .LFB194: 654 %routine abandon(%integer n) .LVL49: save %sp, -1504, %sp .LVL50: ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 .LVL51: .LDL4: 655 %switch reason(0:9) 656 %integer stream 657 stream = listing 658 %cycle 659 newline %if sym # nl sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 bne,pn %icc, .L56 nop .L44: .LVL52: .LBB278: .LBB279: call _imp_printsymbol, 0 mov 42, %o0 .LVL53: .LBE279: .LBE278: 660 printsymbol('*'); write(lines,4); space 661 ->reason(n) mov 4, %o1 sethi %hi(LINES.6094), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(LINES.6094)], %o0 .LVL54: .LBB280: .LBB281: call _imp_space, 0 nop .LVL55: .LDL5: .LBE281: .LBE280: 662 reason(0): printstring("compiler error!"); ->more 663 reason(1): printstring("switch vector too large"); ->more 664 reason(2): printstring("too many names"); ->more 665 reason(3): printstring("program too complex"); ->more 666 reason(4): printstring("feature not implemented"); ->more 667 reason(5): printstring("input ended: ") 668 %if quote # 0 %start 669 %if quote < 0 %then printsymbol(cquote) %else printsymbol(squote) 670 %else 671 printstring("%endof") 672 %if progmode >= 0 %then printstring("program") %else printstring("file") 673 %finish 674 printstring(" missing?"); ->more 675 reason(6): printstring("too many faults!"); ->more 676 reason(7): printstring("string constant too long"); ->more 677 reason(8): printstring("dictionary full"); ->more 678 reason(9): printstring("Included file ".include file." does not exist") 679 680 more: newline 681 printstring("*** compilation abandoned ***"); newline 682 %exit %if stream = report 683 close output 684 stream = report 685 select output(report) 686 %repeat 687 !%signal 15,15 %if diag&4096 # 0 688 %stop 689 %end 690 691 %routine compile block(%integer level, block tag, dmin, tmax, id) cmp %i0, 9 bleu,pt %icc, .L60 sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L46 mov 256, %o2 call _imp_c2istr, 0 add %fp, 1527, %o0 .LVL56: sethi %hi(_imp_current_line), %g1 .L58: lduw [%g1+%lo(_imp_current_line)], %i5 cmp %i5, 0 move %icc, 691, %i5 mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 751, %o0 .LVL57: mov 661, %g1 stx %g1, [%sp+2239] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 stx %g1, [%sp+2231] stx %i0, [%sp+2223] sethi %hi(.LC78), %o5 or %o5, %lo(.LC78), %o5 mov %i0, %o4 mov 3, %o3 mov 6, %o2 sra %i5, 0, %o1 call _signal_eventf, 0 add %fp, 751, %o0 .LVL58: .L49: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL65: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 1015, %o0 .LVL66: .LBE284: mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL67: ba,pt %xcc, .L58 sethi %hi(_imp_current_line), %g1 .L50: .LBB285: save %sp, -2096, %sp mov %g5, %l0 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 add %fp, 2047, %g1 stx %g1, [%fp+495] st %i0, [%fp+475] st %i1, [%fp+443] st %i3, [%fp+479] st %i4, [%fp+471] stx %g5, [%fp+423] 692 693 %integerfnspec gapp 694 %routinespec delete names(%integer quiet) sethi %hi(_imp_current_file), %g1 .L60: ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L50 mov 256, %o2 call _imp_c2istr, 0 add %fp, 1783, %o0 .LVL59: sethi %hi(_imp_current_line), %g1 .L59: lduw [%g1+%lo(_imp_current_line)], %i5 cmp %i5, 0 move %icc, 694, %i5 mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 751, %o0 .LVL60: mov 661, %g1 stx %g1, [%sp+2239] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 stx %g1, [%sp+2231] stx %i0, [%sp+2223] sethi %hi(.LC80), %o5 or %o5, %lo(.LC80), %o5 mov %i0, %o4 mov 2, %o3 mov 8, %o2 sra %i5, 0, %o1 call _signal_eventf, 0 add %fp, 751, %o0 .LVL61: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL68: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 1271, %o0 .LVL69: .LBE285: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL70: ba,pt %xcc, .L59 sethi %hi(_imp_current_line), %g1 .L57: 695 %routinespec analyse ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L57 nop return %i7+8 nop .LVL62: .L56: .LBB282: .LBB283: call _imp_newline, 0 nop .LVL63: ba,pt %xcc, .L44 nop .LVL64: .L46: .LBE283: .LBE282: .LBB284: call __stack_chk_fail, 0 nop .LVL71: nop .LFE194: .align 4 .proc 020 GETSYM.6607: .LFB205: 696 %routinespec compile 697 698 %integer open; open = closed; !zero if can return from proc 699 %integer dbase; dbase = dmax; !dictionary base sethi %hi(16384), %g1 st %g1, [%fp+447] 700 %integer tbase; tbase = tmax; !tag base sethi %hi(DMAX.6130), %g1 lduw [%g1+%lo(DMAX.6130)], %g4 .LVL967: 701 %integer tstart; tstart = tmax st %i3, [%fp+483] 702 %integer label; label = 4; !first internal label st %i3, [%fp+487] 703 %integer access; access = 1; !non-zero if accessible mov 4, %g1 st %g1, [%fp+439] 704 %integer inhibit; inhibit = 0; !non-zero inhibits declaratons mov 1, %g1 st %g1, [%fp+451] 705 st %g0, [%fp+435] 706 %integername bflags; bflags == tag(block tag)_flags 707 %integer block type; block type = bflags>>4&7 add %i1, %i1, %g1 add %g1, %i1, %g2 sllx %g2, 3, %g2 sethi %hi(12557312), %g3 srlx %g3, 8, %g3 add %g2, %g3, %g2 add %g5, %g2, %g2 stx %g2, [%fp+415] 708 %integer block form; block form = bflags&15 add %g1, %i1, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 lduw [%g1+%g3], %g2 srl %g2, 4, %g3 and %g3, 7, %g3 st %g3, [%fp+459] 709 %integer block fm; block fm = tag(block tag)_format and %g2, 15, %g2 st %g2, [%fp+463] 710 %integer block otype; block otype = otype sethi %hi(6278144), %g2 srlx %g2, 7, %g2 lduw [%g1+%g2], %g1 st %g1, [%fp+455] 711 %integername block app; block app == tag(block tag)_app sethi %hi(OTYPE.6114), %g1 lduw [%g1+%lo(OTYPE.6114)], %i5 .LVL968: 712 713 %integer l, new app 714 715 %routine fault(%integer n) .LVL293: save %sp, -2528, %sp .LVL294: mov %g5, %l4 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 716 ! -5 : -1 - warnings 717 ! 1 : 22 - errors 718 719 %switch fm(-5:22) 720 %integer st 721 722 %routine print ss 723 %integer s, p 724 %return %if pos = 0 sethi %hi(POS.6150), %g1 lduw [%g1+%lo(POS.6150)], %g1 cmp %g1, 0 bne,pn %icc, .L421 nop .L390: .LDL18: .LBE405: .LBE404: .LBB416: .LBB417: call _imp_newline, 0 nop .LVL309: .LBE417: .LBE416: 725 space 726 p = 1 mov 1, %i5 727 %cycle 728 printsymbol(marker) %if p = pos1 sethi %hi(POS1.6148), %i1 .LBE412: .LBE428: lduw [%i1+%lo(POS1.6148)], %g1 cmp %g1, %i5 be,pn %icc, .L426 nop .L393: 729 %exit %if p = pos ba,pt %xcc, .L392 sethi %hi(POS.6150), %i2 .LVL330: .L426: .LBB429: .LBB413: .LBB408: .LBB409: call _imp_printsymbol, 0 mov 94, %o0 .LVL331: .LBE409: .LBE408: .LBE413: .LBE429: ba,pt %xcc, .L432 lduw [%i2+%lo(POS.6150)], %g1 .L397: .L398: .LVL332: .L399: .LBB430: .LBB414: .LBB410: .LBB411: sllx %o0, 56, %o0 .LVL333: .L437: call _imp_printsymbol, 0 srax %o0, 56, %o0 .LVL334: add %i4, 1, %i4 .LVL335: .L392: .LBE411: .LBE410: lduw [%i2+%lo(POS.6150)], %g1 .L432: cmp %i5, %g1 be,a,pn %icc, .L436 sethi %hi(LIST.6162), %g1 .L395: 730 s = char(p); p = p+1 ldub [%i4], %o0 .LVL336: 731 %exit %if s = nl %or (s='%' %and p = pos) cmp %o0, 10 be,pn %icc, .L400 add %i5, 1, %i5 732 %if s < ' ' %start; !beware of tabs xor %o0, 37, %g1 cmp %g0, %g1 addx %g0, 0, %g1 bg,a,pt %icc, .L437 sllx %o0, 56, %o0 733 %if s = ff %then s = nl %else s = ' ' xor %g1, %i5, %g1 cmp %g0, %g1 addx %g0, 0, %g2 orcc %g2, %g1, %g0 be,pn %icc, .L400 cmp %o0, 31 .L396: 734 %finish 735 printsymbol(s) 736 %repeat 737 pos = 0 %if list <= 0 cmp %o0, 12 mov 32, %o0 .LVL337: .LBE414: .LBE430: ba,pt %xcc, .L399 move %icc, 10, %o0 .L394: .LVL338: .L400: .LBB431: .LBB415: sethi %hi(LIST.6162), %g1 .L436: lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 bg,pt %icc, .L390 sethi %hi(POS.6150), %g1 .LBE415: .LBE431: 738 %end ba,pt %xcc, .L390 st %g0, [%g1+%lo(POS.6150)] .LVL339: .L422: .L402: 739 740 pos1 = pos2 %if pos2 > pos1 sethi %hi(POS2.6149), %g1 lduw [%g1+%lo(POS2.6149)], %g1 sethi %hi(POS1.6148), %g2 lduw [%g2+%lo(POS1.6148)], %g2 cmp %g1, %g2 ble,a,pt %icc, .L435 sethi %hi(SYM.6102), %g1 741 newline %if sym # nl sethi %hi(POS1.6148), %g2 st %g1, [%g2+%lo(POS1.6148)] .L380: sethi %hi(SYM.6102), %g1 .L435: lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 bne,pn %icc, .L418 nop .L381: .LVL295: 742 st = report 743 st = listing %if n = -3; !don't report unused on the console 744 %cycle xor %i0, -3, %g1 .L429: cmp %g0, %g1 subx %g0, -1, %i3 sll %i3, 1, %i3 .LBB388: .LBB389: sethi %hi(_imp_outfile), %l1 or %l1, %lo(_imp_outfile), %l1 sethi %hi(__PRETTY_FUNCTION__.5660), %l0 or %l0, %lo(__PRETTY_FUNCTION__.5660), %l0 .LBE389: .LBE388: .LBB391: ba,pt %xcc, .L429 xor %i0, -3, %g1 .LVL298: .L423: .LBB395: .LBB396: call _imp_printsymbol, 0 mov 63, %o0 .LVL299: .LBE396: .LBE395: 745 select output(st) 746 %if n < 0 %then printsymbol('?') %and pos1 = 0 %else printsymbol('*') cmp %i0, 0 bl,pn %icc, .L423 nop .L383: .LVL312: .LBB419: .LBB420: call _imp_printsymbol, 0 mov 42, %o0 .LVL313: .L384: .LBE420: .LBE419: 747 %if st # report %start cmp %i3, 0 be,pt %icc, .L385 sethi %hi(INCLUDE.6136), %g1 748 %if list <= 0 %and pos1 # 0 %start sethi %hi(POS1.6148), %g1 sethi %hi(LIST.6162), %g1 lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 bg,pt %icc, .L430 add %i0, 5, %g1 749 spaces(pos1+margin); printstring(" ! ") ba,pt %xcc, .L384 st %g0, [%g1+%lo(POS1.6148)] .L385: sethi %hi(POS1.6148), %g1 lduw [%g1+%lo(POS1.6148)], %o0 cmp %o0, 0 be,a,pt %icc, .L430 add %i0, 5, %g1 .LVL314: sethi %hi(MARGIN.6096), %g1 lduw [%g1+%lo(MARGIN.6096)], %g1 add %o0, %g1, %o0 .LVL315: .LBB421: .LBB422: call _imp_spaces, 0 sra %o0, 0, %o0 .LVL316: .LBE422: .LBE421: .LBB423: 750 %finish sethi %hi(.LC32), %l3 or %l3, %lo(.LC32), %l3 .LBE391: .LBB392: mov 256, %o2 mov %l3, %o1 call memcpy, 0 add %fp, 1015, %o0 .LVL317: mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 add %fp, -9, %o0 .LVL318: mov 256, %o2 add %fp, -9, %o1 call memcpy, 0 add %fp, 1271, %o0 .LVL319: .LBE423: .LBB424: .LBB425: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, -273, %o0 .LVL320: call _imp_printstring, 0 add %fp, -273, %o0 .LVL321: .LBE425: .LBE424: 751 %finish %else %start 752 printstring(include file) %if include # 0 lduw [%g1+%lo(INCLUDE.6136)], %g1 cmp %g1, 0 bne,pn %icc, .L419 mov 256, %o2 .L387: 753 write(lines, 4); printsymbol(csym); space mov 4, %o1 .L431: sethi %hi(LINES.6094), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(LINES.6094)], %o0 .LVL300: .LBB397: .LBB398: sethi %hi(CSYM.6107), %g1 call _imp_printsymbol, 0 ldsb [%g1+%lo(CSYM.6107+3)], %o0 .LVL301: .LBE398: .LBE397: .LBB399: .LBB400: call _imp_space, 0 nop .LVL302: .L386: .L388: .LBE400: .LBE399: ba,pt %xcc, .L431 mov 4, %o1 .L420: .LVL325: .LDL19: .L408: 754 %finish 755 ->fm(n) %if -5 <= n %and n <= 22 756 printstring("fault"); write(n, 2); ->ps sethi %hi(.LC33), %l2 .LBE392: ba,pt %xcc, .L401 or %l2, %lo(.LC33), %l2 .LVL296: .L418: .LBB393: .LBB394: call _imp_newline, 0 nop .LVL297: .LBE394: .LBE393: add %i0, 5, %g1 .L430: cmp %g1, 27 bleu,pn %icc, .L420 mov 256, %o2 .L389: .LBB401: mov %l2, %o1 call memcpy, 0 add %fp, 1015, %o0 .LVL303: mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 add %fp, 503, %o0 .LVL304: mov 256, %o2 add %fp, 503, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL305: .LBE401: .LBB402: .LBB403: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, -273, %o0 .LVL306: call _imp_printstring, 0 add %fp, -273, %o0 .LVL307: .LBE403: .LBE402: ba,pt %xcc, .L430 add %i0, 5, %g1 .L419: add %fp, 247, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL322: .LBB426: .LBB427: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, -273, %o0 .LVL323: call _imp_printstring, 0 add %fp, -273, %o0 .LVL324: .LBE427: .LBE426: 757 mov 2, %o1 call _imp_writeint, 0 mov %i0, %o0 .LVL308: .LDL17: .LBB404: .LBB405: 758 fm(-5): printstring("Dubious statement"); dubious = 0; ->psd 759 fm(-4): printstring("Non-local") 760 pos1 = for warn; for warn = 0; ->ps 761 fm(-3): print ident(x, 0); printstring(" unused"); ->nps 762 fm(-2): printstring("""}"""); ->miss 763 fm(-1): printstring("access"); ->psd 764 fm(0): printstring("form"); ->ps 765 fm(1): printstring("atom"); ->ps 766 fm(2): printstring("not declared"); ->ps 767 fm(3): printstring("too complex"); ->ps 768 fm(4): printstring("duplicate "); Print Ident(x, 0); ->ps 769 fm(5): printstring("type"); ->ps 770 fm(6): printstring("match"); ->psd 771 fm(7): printstring("context"); ->psd 772 fm(8): printstring("%cycle"); ->miss 773 fm(9): printstring("%start"); ->miss 774 fm(10): printstring("size"); write(lit, 1) %if pos1 = 0; ->ps 775 fm(11): printstring("bounds") 776 write(ocount, 1) %unless ocount < 0; ->ps 777 fm(12): printstring("index"); ->ps 778 fm(13): printstring("order"); ->psd 779 fm(14): printstring("not a location"); ->ps 780 fm(15): printstring("%begin"); ->miss 781 fm(16): printstring("%end"); ->miss 782 fm(17): printstring("%repeat"); ->miss 783 fm(18): printstring("%finish"); ->miss 784 fm(19): printstring("result"); ->miss 785 fm(20): printsymbol('"'); print ident(x, 0); printsymbol('"'); ->miss 786 fm(21): printstring("context "); print ident(this, 0); ->ps 787 fm(22): printstring("format"); ->ps 788 789 miss: printstring(" missing"); ->nps 790 psd: pos1 = 0 791 ps: print ss 792 nps: newline 793 %exit %if st = listing cmp %i3, 2 be,pn %icc, .L422 mov 2, %i3 .LVL310: .L401: .LBB418: .LBB390: sethi %hi(_imp_OutStream), %g1 st %i3, [%g1+%lo(_imp_OutStream)] sra %i3, 0, %g1 mulx %g1, 288, %g1 add %l1, %g1, %g1 ldx [%g1+8], %g2 sethi %hi(_imp_OutFile), %g1 stx %g2, [%g1+%lo(_imp_OutFile)] call check_outstream, 0 mov %l0, %o0 .LVL311: .LBE390: .LBE418: 794 st = listing 795 %repeat 796 %if n >= 0 %start cmp %i0, 0 bl,pn %icc, .L406 cmp %i0, 13 797 !%signal 15,15 %if diag&4096 # 0 798 %if n # 13 %start; !order is fairly safe be,pn %icc, .L404 sethi %hi(OCOUNT.6141), %g1 799 ocount = -1 mov -1, %g2 st %g2, [%g1+%lo(OCOUNT.6141)] 800 gg = 0 sethi %hi(GG.6123), %g1 st %g0, [%g1+%lo(GG.6123)] 801 copy = 0; quote = 0 sethi %hi(COPY.6143), %g1 st %g0, [%g1+%lo(COPY.6143)] 802 search base = 0; escape class = 0 sethi %hi(QUOTE.6104), %g1 st %g0, [%g1+%lo(QUOTE.6104)] sethi %hi(SEARCHBASE.6154), %g1 st %g0, [%g1+%lo(SEARCHBASE.6154)] 803 gg = 0 sethi %hi(ESCAPECLASS.6111), %g1 st %g0, [%g1+%lo(ESCAPECLASS.6111)] .L404: 804 %finish 805 faulty = faulty+1 sethi %hi(FAULTY.6092), %g2 lduw [%g2+%lo(FAULTY.6092)], %g1 add %g1, 1, %g1 st %g1, [%g2+%lo(FAULTY.6092)] 806 807 !check that there haven't been too many faults 808 809 fault rate = fault rate+3; abandon(6) %if fault rate > 30 sethi %hi(FAULTRATE.6093), %g2 lduw [%g2+%lo(FAULTRATE.6093)], %g1 add %g1, 3, %g1 810 fault rate = 3 %if fault rate <= 0 cmp %g1, 30 bg,pn %icc, .L427 st %g1, [%g2+%lo(FAULTRATE.6093)] .L405: sethi %hi(FAULTRATE.6093), %g1 .L433: lduw [%g1+%lo(FAULTRATE.6093)], %g1 cmp %g1, 0 ble,pn %icc, .L428 sethi %hi(FAULTRATE.6093), %g1 .L403: .L406: ba,pt %xcc, .L433 sethi %hi(FAULTRATE.6093), %g1 .L428: 811 %finish ldx [%l4+8], %g5 call ABANDON.6232, 0 mov 6, %o0 .LVL340: mov 3, %g2 ba,pt %xcc, .L406 st %g2, [%g1+%lo(FAULTRATE.6093)] .LVL341: .L424: .LBB432: 812 tbase = tstart lduw [%l4+72], %g1 st %g1, [%l4+68] 813 %if list <= 0 %and sym # nl %start sethi %hi(LIST.6162), %g1 lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 bg,pt %icc, .L379 sethi %hi(SYM.6102), %g1 814 error margin = column lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 be,pn %icc, .L379 sethi %hi(COLUMN.6099), %g2 lduw [%g2+%lo(COLUMN.6099)], %g3 sethi %hi(ERRORMARGIN.6097), %g2 st %g3, [%g2+%lo(ERRORMARGIN.6097)] 815 error sym = sym; sym = nl sethi %hi(ERRORSYM.6098), %g2 st %g1, [%g2+%lo(ERRORSYM.6098)] 816 %finish sethi %hi(SYM.6102), %g1 mov 10, %g2 ba,pt %xcc, .L379 st %g2, [%g1+%lo(SYM.6102)] .L427: 817 %end 818 819 dmin = dmin-1; dict(dmin) = -1; !end marker for starts & cycles add %i2, -1, %g3 st %g3, [%fp+467] 820 abandon(2) %if dmax = dmin add %i2, -2, %g1 sra %g1, 0, %g1 mov 1565, %g2 sllx %g2, 2, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 add %g5, %g1, %g1 mov -1, %g2 cmp %g4, %g3 be,pn %icc, .L1089 st %g2, [%g1+4] .LVL969: .L1054: 821 call ABANDON.6232, 0 mov 2, %o0 .LVL973: 822 %if list > 0 %and level > 0 %start sethi %hi(LIST.6162), %g1 .L1098: lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 ble,pn %icc, .L1055 lduw [%fp+475], %g1 ba,pt %xcc, .L1098 sethi %hi(LIST.6162), %g1 .L1090: 823 write(lines, 5); spaces(level*3-1) sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,a,pn %o1, .L424 sethi %hi(.LC17), %o1 call _imp_c2istr, 0 add %fp, 1015, %o0 .LVL326: sethi %hi(_imp_current_line), %g1 .L434: lduw [%g1+%lo(_imp_current_line)], %i5 cmp %i5, 0 move %icc, 823, %i5 mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 add %fp, -273, %o0 .LVL327: mov 757, %g1 stx %g1, [%sp+2239] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 stx %g1, [%sp+2231] stx %i0, [%sp+2223] sethi %hi(.LC81), %o5 or %o5, %lo(.LC81), %o5 mov %i0, %o4 mov 2, %o3 mov 8, %o2 sra %i5, 0, %o1 call _signal_eventf, 0 add %fp, -273, %o0 .LVL328: .L407: .L379: or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1015, %o0 .LVL342: mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 add %fp, 759, %o0 .LVL343: .LBE432: mov 256, %o2 add %fp, 759, %o1 call memcpy, 0 add %fp, 1015, %o0 .LVL344: ba,pt %xcc, .L434 sethi %hi(_imp_current_line), %g1 .LVL345: .L425: cmp %g1, 0 bg,pn %icc, .L1090 mov 5, %o1 .L1055: sethi %hi(LINES.6094), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(LINES.6094)], %o0 .LVL974: 824 %if block tag = 0 %start ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L425 nop return %i7+8 nop .L421: .L391: .LBB428: .LBB412: .LBB406: .LBB407: call _imp_space, 0 sethi %hi(CHAR.6157+1), %i4 .LVL329: or %i4, %lo(CHAR.6157+1), %i4 .LBE407: .LBE406: call __stack_chk_fail, 0 nop .LVL346: nop .LFE196: .section .rodata.str1.8 .align 8 .LC82: .asciz "->ACT(%d) out of bounds at %s line %d" .align 8 .LC83: .asciz "switch jump to undefined label ACT(%d): at %s line %d" .align 8 .LC84: .asciz "->PACTION(%d) out of bounds at %s line %d" .align 8 .LC85: .asciz "switch jump to undefined label PACTION(%d): at %s line %d" .section ".rodata" .LC30: .byte 2 .asciz " [" .skip 252 .LC18: .byte 7 .asciz "Atom1 =" .skip 247 .LC19: .byte 9 .asciz " Atom2 =" .skip 245 .LC20: .byte 11 .asciz " subatom =" .skip 243 .LC21: .byte 6 .asciz "Type =" .skip 248 .LC22: .byte 10 .asciz " Ptype =" .skip 244 .LC23: .byte 5 .asciz "App =" .skip 249 .LC24: .byte 9 .asciz " Papp =" .skip 245 .LC25: .byte 8 .asciz "Format =" .skip 246 .LC26: .byte 12 .asciz " Pformat =" .skip 242 .section ".text" .align 4 .proc 020 ANALYSE.6316: .LFB202: lduw [%fp+475], %g1 add %g1, %g1, %o0 add %o0, %g1, %o0 add %o0, -1, %o0 .LBB699: .LBB700: call _imp_spaces, 0 sra %o0, 0, %o0 .LVL975: .LBE700: .LBE699: lduw [%fp+443], %g1 cmp %g1, 0 bne,pt %icc, .L1056 mov 256, %o2 .LBB701: 825 printstring("Begin") sethi %hi(.LC9), %o1 or %o1, %lo(.LC9), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL976: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 503, %o0 .LVL977: mov 256, %o2 add %fp, 503, %o1 call memcpy, 0 add %fp, 1271, %o0 .LVL978: .LBE701: .LBB702: .LBB703: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 127, %o0 .LVL979: call _imp_printstring, 0 add %fp, 127, %o0 .LVL980: .L1057: .LBE703: .LBE702: .LBB704: .LBB705: call _imp_newline, 0 nop .LVL981: .LBE705: .LBE704: 826 %finish %else %start 827 printstring("Procedure "); print ident(block tag, 0) sethi %hi(.LC10), %o1 or %o1, %lo(.LC10), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL982: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 759, %o0 .LVL983: mov 256, %o2 add %fp, 759, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL984: .LBE706: .LBB707: .LBB708: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 127, %o0 .LVL985: call _imp_printstring, 0 add %fp, 127, %o0 .LVL986: .LBE708: .LBE707: 828 %finish mov %l0, %g5 mov 0, %o1 call PRINTIDENT.6218, 0 ldsw [%fp+443], %o0 .LVL987: ba,pt %xcc, .L1057 nop .L1091: 829 newline 830 %finish 831 832 !deal with procedure definition (parameters) 833 %if block tag # 0 %start; !proc lduw [%fp+443], %g1 .L1099: cmp %g1, 0 bne,pn %icc, .L1091 nop .L1058: ba,pt %xcc, .L1099 lduw [%fp+443], %g1 .L1056: .LBB706: 834 analyse; compile %if ss # 0 call ANALYSE.6316, 0 add %fp, 415, %g5 .LVL988: 835 sethi %hi(SS.6132), %g1 lduw [%g1+%lo(SS.6132)], %g1 cmp %g1, 0 bne,pn %icc, .L1092 nop .L1059: 836 %if block otype # 0 %start; !external-ish cmp %i5, 0 .L1100: be,pt %icc, .L1103 add %fp, 2047, %g1 call COMPILE.6318, 0 add %fp, 415, %g5 .LVL993: ba,pt %xcc, .L1100 cmp %i5, 0 .L1093: 837 %if bflags&spec = 0 %start; !definition ldx [%fp+415], %g1 lduw [%g1], %g1 andcc %g1, 1, %g0 bne,pt %xcc, .L1103 add %fp, 2047, %g1 838 %if progmode <= 0 %and level = 1 %then progmode = -1 %else fault(7) sethi %hi(PROGMODE.6138), %g1 lduw [%g1+%lo(PROGMODE.6138)], %g1 cmp %g1, 0 bg,pn %icc, .L1061 lduw [%fp+475], %g1 839 %finish cmp %g1, 1 be,pn %icc, .L1093 sethi %hi(PROGMODE.6138), %g1 .L1061: 840 %finish mov -1, %g2 841 ba,pt %xcc, .L1063 st %g2, [%g1+%lo(PROGMODE.6138)] .LVL994: .L1067: .LBB721: .LBB717: .LBB715: .LBB713: 842 new app = gapp; !generate app grammar 843 %if spec given # 0 %start; !definition after spec add %fp, 415, %g5 call FAULT.6335, 0 mov 7, %o0 .LVL989: .L1060: .L1062: .L1063: .LBB709: .LBB710: sethi %hi(SPECGIVEN.6110), %g1 lduw [%g1+%lo(SPECGIVEN.6110)], %g1 cmp %g1, 0 be,pt %icc, .L1105 add %i1, %i1, %g1 844 fault(6) %if new app # block app; !different from spec add %g1, %i1, %g1 sllx %g1, 3, %g1 add %l0, %g1, %g1 sethi %hi(12555264), %g2 srlx %g2, 8, %g2 lduw [%g1+%g2], %g1 cmp %g1, %i5 be,pt %icc, .L1105 add %i1, %i1, %g1 845 %finish add %fp, 415, %g5 call FAULT.6335, 0 mov 6, %o0 .LVL1009: .L1073: .L1074: 846 block app = new app; !use the latest add %i1, %i1, %g1 .L1105: add %g1, %i1, %g1 sllx %g1, 3, %g1 add %l0, %g1, %g1 sethi %hi(12555264), %g2 srlx %g2, 8, %g2 st %i5, [%g1+%g2] 847 848 %if level < 0 %start; !not procedure definition lduw [%fp+475], %g1 cmp %g1, 0 bge,a,pt %icc, .L1106 sethi %hi(SS.6132), %i5 849 delete names(0) add %fp, 415, %g5 call DELETENAMES.6314, 0 mov 0, %o0 .LVL1010: 850 %return ba,pt %xcc, .L1053 nop .LVL1011: .L1094: .LBB724: .LBB720: 851 %finish 852 %finish %else %start 853 open = 0; !can return from a block? st %g0, [%fp+447] .LVL970: 854 %finish 855 856 %cycle 857 analyse call ANALYSE.6316, 0 add %fp, 415, %g5 .LVL1015: 858 %if ss # 0 %start sethi %hi(SS.6132), %i5 .L1106: lduw [%i5+%lo(SS.6132)], %g1 cmp %g1, 0 be,pt %icc, .L1077 nop 859 compile call COMPILE.6318, 0 add %fp, 415, %g5 .LVL1016: 860 fault(-5) %if dubious # 0 sethi %hi(DUBIOUS.6146), %i3 lduw [%i3+%lo(DUBIOUS.6146)], %g1 cmp %g1, 0 be,a,pt %icc, .L1078 mov %l0, %g5 861 flush buffer( 128 ) ;! flush if bp >= 128 call FLUSHBUFFER.6182, 0 mov 128, %o0 .LVL1014: add %fp, 415, %g5 call FAULT.6335, 0 mov -5, %o0 .LVL1017: ba,pt %xcc, .L1101 mov %l0, %g5 .L1095: 862 %if sstype > 0 %start; !block in or out sethi %hi(SSTYPE.6139), %i4 lduw [%i4+%lo(SSTYPE.6139)], %g1 cmp %g1, 0 bg,pn %icc, .L1095 cmp %g1, 2 .L1077: 863 %exit %if sstype = 2; !out be,pn %icc, .L1080 mov %l0, %g5 .L1081: 864 compile block(spec mode, block x, dmin, tmax, id) sethi %hi(BLOCKX.6161), %i1 .LVL971: ba,pt %xcc, .L1077 sethi %hi(SPECMODE.6140), %i2 .LVL972: .L1089: ldsw [%fp+471], %o4 ldsw [%fp+479], %o3 ldsw [%fp+467], %o2 ldsw [%i1+%lo(BLOCKX.6161)], %o1 call COMPILEBLOCK.6309, 0 ldsw [%i2+%lo(SPECMODE.6140)], %o0 .LVL1018: 865 %exit %if ss < 0; !endofprogram lduw [%i5+%lo(SS.6132)], %g1 cmp %g1, 0 bge,pt %icc, .L1077 nop .L1080: 866 %finish 867 %finish 868 %repeat 869 %if list > 0 %and level > 0 %start sethi %hi(LIST.6162), %g1 lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 ble,pn %icc, .L1083 lduw [%fp+475], %g1 870 write(lines, 5); spaces(level*3-1) cmp %g1, 0 bg,pn %icc, .L1096 mov 5, %o1 .L1083: sethi %hi(LINES.6094), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(LINES.6094)], %o0 .LVL1020: 871 printstring("End") lduw [%fp+475], %g1 add %g1, %g1, %o0 add %o0, %g1, %o0 add %o0, -1, %o0 .LBB725: .LBB726: call _imp_spaces, 0 sra %o0, 0, %o0 .LVL1021: .LBE726: .LBE725: .LBB727: mov 256, %o2 sethi %hi(.LC11), %o1 or %o1, %lo(.LC11), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL1022: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 1015, %o0 .LVL1023: mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL1024: .LBE727: .LBB728: .LBB729: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 127, %o0 .LVL1025: call _imp_printstring, 0 add %fp, 127, %o0 .LVL1026: .LBE729: .LBE728: .LBB730: .LBB731: call _imp_newline, 0 nop .LVL1027: .LBE731: .LBE730: 872 newline 873 %finish 874 delete names(0) add %fp, 415, %g5 .L1102: call DELETENAMES.6314, 0 mov 0, %o0 .LVL1019: .L1053: ba,pt %xcc, .L1102 add %fp, 415, %g5 .L1097: 875 %return 876 877 ! generate app grammar (backwards) 878 %integerfn gapp add %fp, 2047, %g1 .L1103: stx %g1, [%fp+407] 879 %constinteger comma = 140; !psep 880 %routinespec set cell(%integer g, tt) 881 %routinespec class(%record(tagfm)%name v) 882 %record(tagfm)%name v 883 %integer p, link, tp, c, ap, t 884 885 %result = 0 %if tmax = local; !no app needed sethi %hi(LOCAL.6152), %g1 lduw [%g1+%lo(LOCAL.6152)], %i3 lduw [%fp+479], %g2 .LVL990: cmp %i3, %g2 be,pn %icc, .L1064 mov 0, %i5 .L1065: 886 887 p = gmax1; link = 0; t = tmax mov 719, %g1 st %g1, [%fp+399] 888 st %g0, [%fp+395] .LVL991: .LBB711: .LBB712: 889 %cycle 890 v == tag(t); t = t-1 ldx [%fp+423], %g3 .LVL999: .LBB716: .LBB714: 891 class(v); ! deduce class from tag mov %i4, %g2 .LVL998: .L1066: 892 %if c < 0 %start; ! insert %PARAM lduw [%fp+383], %g1 cmp %g1, 0 bge,pt %icc, .L1104 add %fp, 383, %g5 893 c = -c sub %g0, %g1, %g1 st %g1, [%fp+383] 894 set cell(196, tp) ldsw [%fp+387], %o1 call SETCELL.6511, 0 mov 196, %o0 .LVL1007: 895 tp = -1 mov -1, %g1 .LBE718: .LBE722: ba,pt %xcc, .L1069 st %g1, [%fp+387] .L1070: .LBB723: .LBB719: 896 %finish 897 set cell(c, tp) add %fp, 383, %g5 .L1104: ldsw [%fp+387], %o1 call SETCELL.6511, 0 ldsw [%fp+383], %o0 .LVL996: 898 %exit %if t = local; ! end of parameters cmp %i3, %i4 be,pn %icc, .L1070 add %fp, 383, %g5 .L1071: 899 set cell(comma, -1); ! add the separating comma mov -1, %o1 call SETCELL.6511, 0 mov 140, %o0 .LVL997: 900 %repeat 901 abandon(3) %if gmax > gmin sethi %hi(GMAX.6174), %g1 lduw [%g1+%lo(GMAX.6174)], %g2 sethi %hi(GMIN.6170), %g1 lduw [%g1+%lo(GMIN.6170)], %g1 cmp %g2, %g1 bg,pn %icc, .L1094 ldx [%fp+423], %g5 .L1072: 902 call ABANDON.6232, 0 mov 3, %o0 .LVL1012: .LBE720: .LBE724: 903 %result = link lduw [%fp+395], %i5 .LVL1008: .L1064: .LBE719: .LBE723: ba,pt %xcc, .L1064 lduw [%fp+395], %i5 .LVL1013: .L1078: .L1101: 904 905 %routine set cell(%integer g, tt) .LVL9: 906 ! add the cell to the grammar, combining common tails 907 %while p # gmax %cycle 908 p = p+1 sethi %hi(GMAX.6174), %g1 lduw [%g1+%lo(GMAX.6174)], %o5 lduw [%g5+16], %g2 .L11: cmp %o5, %g2 be,pn %icc, .L5 add %g2, 1, %g3 st %g3, [%g5+16] 909 %if glink(p) = link %and gram(p) = g %start sethi %hi(GLINK.6179), %o4 or %o4, %lo(GLINK.6179), %o4 sra %g3, 0, %g1 add %g1, %g1, %g1 ldsh [%o4+%g1], %g4 lduw [%g5+12], %g1 cmp %g4, %g1 bne,a,pt %icc, .L11 lduw [%g5+16], %g2 sra %g3, 0, %g1 add %g1, %g1, %g1 ldsh [%o3+%g1], %g1 cmp %g1, %o0 bne,a,pt %icc, .L11 lduw [%g5+16], %g2 cmp %o1, 0 bl,pn %icc, .L7 add %g2, 2, %g2 910 %if tt < 0 %or (gram(p+1) = tt %and glink(p+1)=ap) %start sethi %hi(GRAM.6178), %o3 or %o3, %lo(GRAM.6178), %o3 911 link = p; ! already there sra %g2, 0, %g1 add %g1, %g1, %g1 ldsh [%o3+%g1], %g1 cmp %g1, %o1 bne,a,pt %icc, .L11 lduw [%g5+16], %g2 912 %return sra %g2, 0, %g2 add %g2, %g2, %g2 ldsh [%o4+%g2], %g2 lduw [%g5+8], %g1 cmp %g2, %g1 bne,a,pt %icc, .L11 lduw [%g5+16], %g2 .L7: jmp %o7+8 st %g3, [%g5+12] .L5: 913 %finish 914 %finish 915 %repeat 916 917 !add a new cell 918 gmax = gmax+1 add %o5, 1, %g1 sethi %hi(GMAX.6174), %g2 st %g1, [%g2+%lo(GMAX.6174)] 919 gram(gmax) = g sra %g1, 0, %g2 add %g2, %g2, %g2 sethi %hi(GRAM.6178), %g3 or %g3, %lo(GRAM.6178), %g3 sth %o0, [%g3+%g2] 920 glink(gmax) = link lduw [%g5+12], %g4 sethi %hi(GLINK.6179), %g3 or %g3, %lo(GLINK.6179), %g3 sth %g4, [%g3+%g2] 921 link = gmax 922 923 %if tt >= 0 %start; ! set type cell cmp %o1, 0 bl,pn %icc, .L9 st %g1, [%g5+12] 924 gmax = gmax+1 add %o5, 2, %o5 sethi %hi(GMAX.6174), %g1 st %o5, [%g1+%lo(GMAX.6174)] 925 gram(gmax) = tt sra %o5, 0, %o5 add %o5, %o5, %o5 sethi %hi(GRAM.6178), %g1 or %g1, %lo(GRAM.6178), %g1 sth %o1, [%g1+%o5] 926 glink(gmax) = ap lduw [%g5+8], %g2 sth %g2, [%g3+%o5] .L9: 927 %finish 928 p = gmax sethi %hi(GMAX.6174), %g1 lduw [%g1+%lo(GMAX.6174)], %g1 929 930 %end 931 jmp %o7+8 st %g1, [%g5+16] .LFE199: .align 4 .proc 020 DEFLAB.7227: .LFB214: 932 %routine class(%record(tagfm)%name v) 933 %constinteger err = 89 934 %constinteger rtp = 100 935 %constinteger fnp = 101 936 %constinteger mapp = 102 937 %constinteger predp = 103 938 %constintegerarray class map(0:15) = %c mov 89, %i5 mov 1764, %l6 mov 247, %l5 mov -100, %l4 mov -101, %l3 mov -102, %l2 st %i5, [%fp+1783] st %l6, [%fp+1787] st %l5, [%fp+1791] st %i5, [%fp+1795] st %i5, [%fp+1799] st %i5, [%fp+1803] st %i5, [%fp+1807] st %l4, [%fp+1811] st %l3, [%fp+1815] st %l2, [%fp+1819] mov -103, %g1 st %g1, [%fp+1823] st %i5, [%fp+1827] mov 214, %g1 st %g1, [%fp+1831] st %i5, [%fp+1835] mov 229, %g1 st %g1, [%fp+1839] st %i5, [%fp+1843] 939 err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, 940 ! err,1764, 247, err(4), -rtp, -fnp, -mapp, -predp, err, 214, 941 err, 229, err 942 ! err, 229, err 943 %integer tags, type, form 944 945 ap = 0 st %g0, [%fp+391] 946 tags = v_flags sethi %hi(12557312), %l1 srlx %l1, 8, %l1 sra %g2, 0, %o7 add %o7, %o7, %g1 add %g1, %o7, %g4 sllx %g4, 3, %g4 add %g3, %g4, %g4 lduw [%g4+%l1], %g4 .LVL1000: 947 type = tags>>4&7; form = tags&15 srl %g4, 4, %g5 and %g5, 7, %g5 .LVL1001: 948 tp = v_format<<3!type sethi %hi(6278144), %i0 srlx %i0, 7, %i0 and %g4, 15, %o5 .LVL1002: add %g1, %o7, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g1 lduw [%g1+%i0], %g4 .LVL1003: sll %g4, 3, %g4 or %g4, %g5, %g4 st %g4, [%fp+387] 949 c = class map(form) sra %o5, 0, %g1 sllx %g1, 2, %g1 add %fp, 2047, %g4 add %g4, %g1, %g1 lduw [%g1-264], %g1 st %g1, [%fp+383] .L1068: 950 c = 208 %and tp = 0 %if type = 0 %and form = 2; !%name cmp %g0, %g5 addx %g0, 0, %g4 951 ap = v_app %if tags¶meters # 0 xor %o5, 2, %g1 .LVL1004: cmp %g0, %g1 addx %g0, 0, %g1 orcc %g4, %g1, %g0 be,pn %icc, .L1067 add %g2, -1, %i4 952 %end sethi %hi(12555264), %i2 .LBE712: .LBE711: .LBE710: .LBE709: ba,pt %xcc, .L1066 srlx %i2, 8, %i2 .LVL992: .L1092: mov 208, %g1 st %g1, [%fp+383] .LBE713: .LBE715: .LBE717: .LBE721: sra %g2, 0, %g2 add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g3 .LVL1005: lduw [%g3+%i2], %g1 st %g1, [%fp+391] .LDL51: .LVL1006: .LBE714: .LBE716: 953 %end ba,pt %xcc, .L1068 st %g0, [%fp+387] .LVL995: .L1069: .LBB722: .LBB718: 954 955 %routine delete names(%integer quiet) .LVL567: save %sp, -176, %sp .LVL568: 956 %integer flags 957 %record(tagfm)%name tx 958 959 %while tmax > tbase %cycle 960 x = tmax; tmax = tmax-1 lduw [%g5+64], %i5 lduw [%g5+68], %g1 cmp %i5, %g1 ble,pn %icc, .L591 mov %g5, %i4 sethi %hi(X.6084), %l1 lduw [%i4+64], %i5 .LVL570: lduw [%i4+68], %g1 cmp %i5, %g1 ble,pn %icc, .L591 nop .L588: st %i5, [%l1+%lo(X.6084)] 961 tx == tag(x) add %i5, -1, %g1 st %g1, [%i4+64] ldx [%i4+8], %l3 .LVL571: 962 flags = tx_flags sethi %hi(12557312), %l0 srlx %l0, 8, %l0 sra %i5, 0, %g2 .LVL572: add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %l3, %g1, %g1 963 fault(20) %if flags&spec # 0 %and flags&own bit = 0 964 !{spec with no definition & not external} lduw [%g1+%l0], %g1 andcc %g1, 1, %g0 bne,a,pt %xcc, .L590 sra %i5, 0, %i5 965 %if flags&used bit = 0 %and level >= 0 %and list <= 0 %start mov %i4, %g5 call FAULT.6335, 0 mov 20, %o0 .LVL573: 966 fault(-3) %if quiet = 0; !unused cmp %g0, %i0 addx %g0, 0, %i0 lduw [%i4+60], %g1 cmp %g1, 0 bl,pn %icc, .L587 mov 0, %g1 orcc %g1, %i0, %g0 bne,a,pt %icc, .L590 sra %i5, 0, %i5 967 %finish sethi %hi(LIST.6162), %l2 ldsw [%l2+%lo(LIST.6162)], %g2 movrgz %g2, 1, %g1 mov %i4, %g5 call FAULT.6335, 0 mov -3, %o0 .LVL574: 968 dict(tx_text) = tx_link sethi %hi(6280192), %i1 srlx %i1, 7, %i1 sethi %hi(12559360), %i2 srlx %i2, 8, %i2 mov 1565, %i3 ba,pt %xcc, .L588 sllx %i3, 2, %i3 .L586: .LVL569: .L587: sra %i5, 0, %i5 .L590: add %i5, %i5, %g2 add %g2, %i5, %g1 sllx %g1, 3, %g1 add %l3, %g1, %g1 lduw [%g1+%i1], %g4 ldx [%i4+8], %g3 lduw [%g1+%i2], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 add %g1, %i3, %g1 sllx %g1, 2, %g1 add %g3, %g1, %g1 st %g4, [%g1+4] .LDL36: ba,pt %xcc, .L590 sra %i5, 0, %i5 .L585: .LVL575: .L591: 969 %repeat 970 %end 971 return %i7+8 nop .LFE201: .section .rodata.str1.8 .align 8 .LC86: .asciz "Illegal cycle J = 1, 1, BP" .section ".text" .align 4 .proc 020 FLUSHBUFFER.6182: .LFB186: 972 %routine analyse sethi %hi(8192), %g1 xor %g1, -16, %g1 save %sp, %g1, %sp mov %g5, %i1 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 sethi %hi(7168), %g1 xor %g1, -544, %g1 add %fp, 2047, %g2 add %g2, %g1, %g2 add %fp, 2047, %g3 stx %g3, [%g2+16] mov %g3, %g2 stx %g5, [%g2+%g1] 973 %constinteger order bits = 16_3000, order bit = 16_1000 974 %constinteger escape = 16_1000 975 %integer strp, mark, flags, prot err, k, s, c 976 %owninteger key = 0 977 %integer node 978 %integername z 979 %record(arfm)%name arp 980 %switch act(actions:phrasal), paction(0:15) 981 982 %routine trace analysis sethi %hi(7168), %l2 xor %l2, -544, %l1 add %fp, 2047, %g1 add %g1, %l1, %l1 .LBE495: .LBE494: xor %l2, -560, %i0 .LBB497: .LBB498: xor %l2, -832, %i3 add %fp, 2047, %g1 .LBE498: .LBE497: .LBE519: .LBE525: ba,pt %xcc, .L463 add %g1, %i3, %i3 .LVL360: .L451: add %fp, 2047, %g1 add %g1, %i0, %g1 add %fp, 2047, %g2 stx %g2, [%g1+8] stx %l1, [%g2+%i0] 983 !diagnostic trace routine (diagnose&1 # 0) 984 %integer a 985 986 %routine show(%integer a) .register %g7, #ignore .LVL20: save %sp, -960, %sp .LVL21: ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 987 %if 0 < a %and a < 130 %start 988 space add %i0, -1, %g1 cmp %g1, 128 bleu,pn %icc, .L28 mov 3, %o1 .L25: 989 printstring(text(a)) 990 %finish %else write(a, 3) 991 %end 992 call _imp_writeint, 0 mov %i0, %o0 .LVL22: .L26: .L24: ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L29 nop return %i7+8 nop .L28: .LBB272: .LBB273: call _imp_space, 0 nop .LVL23: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL24: .LBE273: .LBE272: .LBB274: .LBB275: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 1263, %o0 .LVL25: call _imp_printstring, 0 add %fp, 1263, %o0 .LVL26: ba,pt %xcc, .L24 nop .L29: .LBE275: .LBE274: call __stack_chk_fail, 0 nop .LVL27: nop .LFE204: .align 4 .proc 020 PUTIT.6221: .LFB193: 993 %owninteger la1=0, la2=0, lsa=0, lt=0 994 newline %if mon pos # pos %and sym # nl sethi %hi(MONPOS.6101), %g1 lduw [%g1+%lo(MONPOS.6101)], %g2 sethi %hi(POS.6150), %g1 lduw [%g1+%lo(POS.6150)], %g1 cmp %g2, %g1 be,pn %icc, .L464 sethi %hi(SYM.6102), %g1 995 mon pos = pos ba,pt %xcc, .L539 sethi %hi(POS.6150), %g1 .LVL448: .L533: .LBB562: .LBB521: .LBB502: .LBB503: call _imp_printsymbol, 0 mov 123, %o0 .LVL449: .LBE503: .LBE502: lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 bne,pn %icc, .L532 nop .L464: sethi %hi(POS.6150), %g1 .L539: lduw [%g1+%lo(POS.6150)], %g2 sethi %hi(MONPOS.6101), %g1 st %g2, [%g1+%lo(MONPOS.6101)] 996 write(g, 3) mov 3, %o1 call _imp_writeint, 0 ldsw [%i2+%lo(G.6122)], %o0 .LVL455: .LBB506: .LBB507: call _imp_space, 0 nop .LVL456: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 1015, %o0 .LVL457: .LBE507: .LBE506: .LBB508: .LBB499: mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 mov %i3, %o0 .LVL458: call _imp_printstring, 0 mov %i3, %o0 .LVL459: .LBE499: .LBE508: .LBB509: .LBB510: call _imp_printsymbol, 0 mov 34, %o0 .LVL460: .LDL28: .LBE510: .LBE509: 997 space 998 printstring(text(class)) 999 printsymbol('"') %if gg&trans bit # 0 1000 a = gg>>8&15 sethi %hi(GG.6123), %g1 lduw [%g1+%lo(GG.6123)], %g1 srl %g1, 8, %g1 .LVL461: 1001 %if a # 0 %start andcc %g1, 15, %i5 .LVL462: bne,pn %icc, .L533 nop .L465: 1002 printsymbol('{') 1003 write(a, 0) mov 0, %o1 call _imp_writeint, 0 sra %i5, 0, %o0 .LVL450: .LBB504: .LBB505: call _imp_printsymbol, 0 mov 125, %o0 .LVL451: .LBE505: .LBE504: .LBE521: .LBE562: 1004 printsymbol('}') 1005 %finish 1006 %if atom1 # la1 %or atom2 # la2 %or lsa # subatom %or lt # type %start ba,pt %xcc, .L540 sethi %hi(ATOM1.6085), %g1 .LVL452: .L534: .LBB563: .LBB522: sethi %hi(ATOM1.6085), %g1 .L540: lduw [%g1+%lo(ATOM1.6085)], %g2 sethi %hi(LA1.6593), %g1 lduw [%g1+%lo(LA1.6593)], %g1 cmp %g2, %g1 bne,pn %icc, .L466 sethi %hi(ATOM2.6086), %g1 1007 printstring(" [") sethi %hi(.LC30), %l3 or %l3, %lo(.LC30), %l3 .LVL359: .L452: .LBE496: .LBE518: .LBE524: lduw [%g1+%lo(ATOM2.6086)], %g2 sethi %hi(LA2.6594), %g1 lduw [%g1+%lo(LA2.6594)], %g1 cmp %g2, %g1 be,pn %icc, .L534 sethi %hi(LSA.6595), %g1 .L466: .LBB511: mov 256, %o2 .L555: mov %l3, %o1 .L556: call memcpy, 0 add %fp, 1527, %o0 .LVL463: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL464: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 759, %o0 .LVL465: .LBE511: .LBB512: .LBB513: mov 256, %o2 add %fp, 759, %o1 call memcpy, 0 mov %i3, %o0 .LVL466: call _imp_printstring, 0 mov %i3, %o0 .LVL467: .LBE513: .LBE512: 1008 la1 = atom1 lduw [%g1+%lo(LSA.6595)], %g2 sethi %hi(SUBATOM.6087), %g1 lduw [%g1+%lo(SUBATOM.6087)], %g1 cmp %g2, %g1 bne,pt %icc, .L555 mov 256, %o2 sethi %hi(ATOM1.6085), %g1 lduw [%g1+%lo(ATOM1.6085)], %o0 sethi %hi(LA1.6593), %g1 st %o0, [%g1+%lo(LA1.6593)] 1009 show(la1) sethi %hi(LT.6596), %g1 lduw [%g1+%lo(LT.6596)], %g2 sethi %hi(TYPE.6088), %g1 lduw [%g1+%lo(TYPE.6088)], %g1 cmp %g2, %g1 bne,pt %icc, .L556 mov %l3, %o1 ba,pt %xcc, .L467 nop .LVL453: .L471: .L563: .LBE522: .LBE563: add %fp, 2047, %g1 add %g1, %i0, %i5 .LVL468: mov %i5, %g5 call SHOW.6587, 0 sra %o0, 0, %o0 .LVL469: 1010 la2 = atom2 sethi %hi(ATOM2.6086), %g1 lduw [%g1+%lo(ATOM2.6086)], %o0 sethi %hi(LA2.6594), %g1 st %o0, [%g1+%lo(LA2.6594)] 1011 show(la2) mov %i5, %g5 call SHOW.6587, 0 sra %o0, 0, %o0 .LVL470: 1012 lsa = subatom sethi %hi(SUBATOM.6087), %g1 lduw [%g1+%lo(SUBATOM.6087)], %o0 sethi %hi(LSA.6595), %g1 st %o0, [%g1+%lo(LSA.6595)] 1013 write(lsa, 3) mov 3, %o1 call _imp_writeint, 0 sra %o0, 0, %o0 .LVL471: 1014 lt = type sethi %hi(TYPE.6088), %g1 lduw [%g1+%lo(TYPE.6088)], %o0 sethi %hi(LT.6596), %g1 st %o0, [%g1+%lo(LT.6596)] 1015 write(lt, 5) mov 5, %o1 call _imp_writeint, 0 sra %o0, 0, %o0 .LVL472: .LBB514: .LBB515: call _imp_printsymbol, 0 mov 93, %o0 .LVL473: .L467: .LBE515: .LBE514: .LBB516: .LBB517: call _imp_newline, 0 nop .LVL474: .LDL29: .LBE517: .LBE516: .LBE523: .LBE564: 1016 printsymbol(']') 1017 %finish 1018 newline 1019 %end 1020 1021 %routine get sym save %sp, -176, %sp mov %g5, %i4 .LVL72: .LBB286: .LBB287: sethi %hi(SYM.6102), %i5 call _imp_readsymbol, 0 or %i5, %lo(SYM.6102), %o0 .LVL73: .LBE287: .LBE286: 1022 readsymbol(sym) 1023 abandon(5) %if sym < 0 lduw [%i5+%lo(SYM.6102)], %g1 cmp %g1, 0 bl,a,pn %icc, .L65 ldx [%i4], %g1 .L62: 1024 pos = pos+1 %if pos # 133 sethi %hi(POS.6150), %g1 .L67: lduw [%g1+%lo(POS.6150)], %g1 cmp %g1, 133 be,pn %icc, .L63 add %g1, 1, %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 5, %o0 .LVL74: ba,pt %xcc, .L67 sethi %hi(POS.6150), %g1 .L66: .LVL75: .LBB288: .LBB289: call _imp_printsymbol, 0 srax %o0, 56, %o0 .LVL76: .LBE289: .LBE288: 1025 char(pos) = sym sethi %hi(POS.6150), %g2 st %g1, [%g2+%lo(POS.6150)] .L63: sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %o0 sethi %hi(POS.6150), %g1 ldsw [%g1+%lo(POS.6150)], %g2 sethi %hi(CHAR.6157), %g1 or %g1, %lo(CHAR.6157), %g1 stb %o0, [%g1+%g2] 1026 printsymbol(sym) %if list <= 0 sethi %hi(LIST.6162), %g1 lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 ble,a,pn %icc, .L66 sllx %o0, 56, %o0 .L64: 1027 column = column+1 sethi %hi(COLUMN.6099), %g2 .L68: lduw [%g2+%lo(COLUMN.6099)], %g1 add %g1, 1, %g1 st %g1, [%g2+%lo(COLUMN.6099)] ba,pt %xcc, .L68 sethi %hi(COLUMN.6099), %g2 .LFE205: .section ".rodata" .align 8 .LC28: .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 10 .byte 0 .byte 3 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 0 .byte 33 .byte 34 .byte 35 .byte 36 .byte 1 .byte 38 .byte 39 .byte 40 .byte 41 .byte 42 .byte 43 .byte 44 .byte 45 .byte 46 .byte 47 .byte 48 .byte 49 .byte 50 .byte 51 .byte 52 .byte 53 .byte 54 .byte 55 .byte 56 .byte 57 .byte 58 .byte 59 .byte 60 .byte 61 .byte 62 .byte 63 .byte 64 .byte 65 .byte 66 .byte 67 .byte 68 .byte 69 .byte 70 .byte 71 .byte 72 .byte 73 .byte 74 .byte 75 .byte 76 .byte 77 .byte 78 .byte 79 .byte 80 .byte 81 .byte 82 .byte 83 .byte 84 .byte 85 .byte 86 .byte 87 .byte 88 .byte 89 .byte 90 .byte 91 .byte 92 .byte 93 .byte 94 .byte 95 .byte 96 .byte 65 .byte 66 .byte 67 .byte 68 .byte 69 .byte 70 .byte 71 .byte 72 .byte 73 .byte 74 .byte 75 .byte 76 .byte 77 .byte 78 .byte 79 .byte 80 .byte 81 .byte 82 .byte 83 .byte 84 .byte 85 .byte 86 .byte 87 .byte 88 .byte 89 .byte 90 .byte 2 .byte 124 .byte 125 .byte 126 .byte 0 .LC29: .byte 2 .asciz " &" .skip 252 .section ".text" .align 4 .proc 020 READSYM.6613: .LFB206: 1028 %end 1029 return %i7+8 nop .L65: 1030 %routine read sym save %sp, -1344, %sp mov %g5, %i5 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 1031 %owninteger Last = 0 1032 %constbyteintegerarray mapped(0:127) = %c mov 128, %o2 sethi %hi(.LC28), %o1 or %o1, %lo(.LC28), %o1 call memcpy, 0 add %fp, 1911, %o0 .LVL77: 1033 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, 3, 0, 0, 0, 1034 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1035 0,'!','"','#', '$', 1,'&', 39, '(',')','*','+', ',','-','.','/', 1036 '0','1','2','3', '4','5','6','7', '8','9',':',';', '<','=','>','?', 1037 '@','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', 1038 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z','[', '\',']','^','_', 1039 '`','A','B','C', 'D','E','F','G', 'H','I','J','K', 'L','M','N','O', 1040 'P','Q','R','S', 'T','U','V','W', 'X','Y','Z', 2 , '|','}','~', 0 1041 1042 !! 0 = space 1043 !! 1 = % 1044 !! 2 = { 1045 !! 3 = ff 1046 !! other values represent themselves 1047 1048 %if sym = nl %start sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 bne,pn %icc, .L114 sethi %hi(SYM.6102), %i4 .L71: 1049 s1: lines = lines+1 1050 printsymbol(end mark) %if end mark # 0 sethi %hi(LINES.6094), %g2 lduw [%g2+%lo(LINES.6094)], %g1 add %g1, 1, %g1 st %g1, [%g2+%lo(LINES.6094)] sethi %hi(ENDMARK.6105), %g1 lduw [%g1+%lo(ENDMARK.6105)], %o0 cmp %o0, 0 bne,a,pn %icc, .L102 sllx %o0, 56, %o0 .L72: .L73: 1051 s11: pos = 0; pos1 = 0; pos2 = 0; margin = 0; column = 0 1052 Last = 0 sethi %hi(POS.6150), %g1 .L110: st %g0, [%g1+%lo(POS.6150)] sethi %hi(LAST.6615), %g1 st %g0, [%g1+%lo(LAST.6615)] ba,pt %xcc, .L110 sethi %hi(POS.6150), %g1 .L103: 1053 end mark = 0 sethi %hi(POS1.6148), %g1 st %g0, [%g1+%lo(POS1.6148)] sethi %hi(ENDMARK.6105), %g1 st %g0, [%g1+%lo(ENDMARK.6105)] 1054 %if list <= 0 %start sethi %hi(POS2.6149), %g1 st %g0, [%g1+%lo(POS2.6149)] sethi %hi(LIST.6162), %g1 lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 ble,pn %icc, .L103 sethi %hi(INCLUDE.6136), %g1 .L74: .L78: .L79: .L80: 1055 %if include # 0 %start sethi %hi(MARGIN.6096), %g1 st %g0, [%g1+%lo(MARGIN.6096)] lduw [%g1+%lo(INCLUDE.6136)], %g1 cmp %g1, 0 be,pt %icc, .L75 mov 5, %o1 .LBB294: 1056 printstring(" &"); write(lines, -4) sethi %hi(COLUMN.6099), %g1 st %g0, [%g1+%lo(COLUMN.6099)] mov 256, %o2 sethi %hi(.LC29), %o1 or %o1, %lo(.LC29), %o1 call memcpy, 0 add %fp, 1143, %o0 .LVL83: mov 256, %o2 add %fp, 1143, %o1 call memcpy, 0 add %fp, 1399, %o0 .LVL84: mov 256, %o2 add %fp, 1399, %o1 call memcpy, 0 add %fp, 1655, %o0 .LVL85: .LBE294: .LBB295: .LBB296: mov 256, %o2 add %fp, 1655, %o1 call memcpy, 0 add %fp, 879, %o0 .LVL86: call _imp_printstring, 0 add %fp, 879, %o0 .LVL87: .LBE296: .LBE295: 1057 %finish %else write(lines, 5) mov -4, %o1 sethi %hi(LINES.6094), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(LINES.6094)], %o0 .LVL88: .L76: 1058 csym = cont; printsymbol(csym) sethi %hi(CONT.6106), %g1 .L111: lduw [%g1+%lo(CONT.6106)], %o0 sethi %hi(CSYM.6107), %g1 st %o0, [%g1+%lo(CSYM.6107)] .LVL89: .LBB297: .LBB298: sllx %o0, 56, %o0 .LVL90: call _imp_printsymbol, 0 srax %o0, 56, %o0 .LVL91: .LBE298: .LBE297: .LBB299: .LBB300: call _imp_space, 0 nop .LVL92: .LBE300: .LBE299: ba,pt %xcc, .L111 sethi %hi(CONT.6106), %g1 .L104: 1059 space sethi %hi(LINES.6094), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(LINES.6094)], %o0 .LVL98: 1060 %if error margin # 0 %start sethi %hi(ERRORMARGIN.6097), %g1 lduw [%g1+%lo(ERRORMARGIN.6097)], %o0 cmp %o0, 0 be,pt %icc, .L115 sethi %hi(SYMTYPE.6103), %g1 1061 lines = lines-1 sethi %hi(LINES.6094), %g2 lduw [%g2+%lo(LINES.6094)], %g1 add %g1, -1, %g1 st %g1, [%g2+%lo(LINES.6094)] .LVL93: .LBB301: .LBB302: call _imp_spaces, 0 sra %o0, 0, %o0 .LVL94: .LBE302: .LBE301: 1062 spaces(error margin) 1063 error margin = 0 sethi %hi(ERRORMARGIN.6097), %g1 st %g0, [%g1+%lo(ERRORMARGIN.6097)] 1064 %if error sym # 0 %start sethi %hi(ERRORSYM.6098), %g1 lduw [%g1+%lo(ERRORSYM.6098)], %o0 cmp %o0, 0 be,pt %icc, .L115 sethi %hi(SYMTYPE.6103), %g1 .LVL95: .LBB303: .LBB304: sllx %o0, 56, %o0 .LVL96: call _imp_printsymbol, 0 srax %o0, 56, %o0 .LVL97: .LBE304: .LBE303: 1065 printsymbol(error sym) 1066 pos = 1; char(1) = error sym sethi %hi(POS.6150), %g1 mov 1, %g2 st %g2, [%g1+%lo(POS.6150)] 1067 sym = error sym; error sym = 0 sethi %hi(ERRORSYM.6098), %g1 lduw [%g1+%lo(ERRORSYM.6098)], %g2 sethi %hi(CHAR.6157), %g3 stb %g2, [%g3+%lo(CHAR.6157)+1] sethi %hi(SYM.6102), %g3 st %g2, [%g3+%lo(SYM.6102)] 1068 ->s5 ba,pt %xcc, .L77 st %g0, [%g1+%lo(ERRORSYM.6098)] .L75: 1069 %finish 1070 %finish 1071 %finish 1072 s2: symtype = 1 1073 %finish sethi %hi(SYMTYPE.6103), %g1 .L115: mov 1, %g2 st %g2, [%g1+%lo(SYMTYPE.6103)] .L70: .L81: .LVL78: .LBB290: .LBB291: sethi %hi(SYM.6102), %i4 .L114: call _imp_readsymbol, 0 or %i4, %lo(SYM.6102), %o0 .LVL79: .LBE291: .LBE290: 1074 s3: readsymbol(sym) 1075 abandon(5) %if sym < 0 lduw [%i4+%lo(SYM.6102)], %g1 cmp %g1, 0 bl,a,pn %icc, .L104 ldx [%i5], %g1 .L82: 1076 pos = pos+1 %if pos # 133 sethi %hi(POS.6150), %g1 .L112: lduw [%g1+%lo(POS.6150)], %g1 cmp %g1, 133 be,pn %icc, .L83 add %g1, 1, %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 5, %o0 .LVL99: ba,pt %xcc, .L112 sethi %hi(POS.6150), %g1 .L105: .LVL100: .LBB305: .LBB306: call _imp_printsymbol, 0 srax %o0, 56, %o0 .LVL101: .LBE306: .LBE305: 1077 char(pos) = sym sethi %hi(POS.6150), %g2 st %g1, [%g2+%lo(POS.6150)] .L83: sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %o0 sethi %hi(POS.6150), %g1 ldsw [%g1+%lo(POS.6150)], %g2 sethi %hi(CHAR.6157), %g1 or %g1, %lo(CHAR.6157), %g1 stb %o0, [%g1+%g2] 1078 printsymbol(sym) %if list <= 0 sethi %hi(LIST.6162), %g1 lduw [%g1+%lo(LIST.6162)], %g1 cmp %g1, 0 ble,a,pn %icc, .L105 sllx %o0, 56, %o0 .L84: 1079 column = column+1 sethi %hi(COLUMN.6099), %g2 .L113: lduw [%g2+%lo(COLUMN.6099)], %g1 add %g1, 1, %g1 st %g1, [%g2+%lo(COLUMN.6099)] .L77: ba,pt %xcc, .L113 sethi %hi(COLUMN.6099), %g2 .L106: 1080 s5: %if sym # nl %start 1081 Last = Sym sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 be,pn %icc, .L96 sethi %hi(LAST.6615), %g2 st %g1, [%g2+%lo(LAST.6615)] 1082 %return %if quote # 0; !dont alter strings sethi %hi(QUOTE.6104), %g2 lduw [%g2+%lo(QUOTE.6104)], %g2 cmp %g2, 0 bne,pn %icc, .L69 and %g1, 127, %g1 .L87: 1083 sym = mapped(sym&127) add %fp, 2047, %g2 add %g2, %g1, %g1 ldub [%g1-136], %g1 sethi %hi(SYM.6102), %g2 1084 %if sym <= 3 %start; !special symbol cmp %g1, 3 bg,pt %icc, .L88 st %g1, [%g2+%lo(SYM.6102)] 1085 ->s2 %if sym = 0; !space (or dubious control) cmp %g1, 0 be,a,pt %icc, .L115 sethi %hi(SYMTYPE.6103), %g1 .L89: 1086 symtype = 2 %and ->s3 %if sym = 1; !% cmp %g1, 1 be,pn %icc, .L106 cmp %g1, 3 .L90: 1087 cont = '+' %and ->s11 %if sym = 3; !ff be,pn %icc, .L107 sethi %hi(SYM.6102), %i4 .L91: .L92: .L93: sethi %hi(SYMTYPE.6103), %g1 mov 2, %g2 1088 !must be { ba,pt %xcc, .L81 st %g2, [%g1+%lo(SYMTYPE.6103)] .L107: sethi %hi(CONT.6106), %g1 mov 43, %g2 1089 %cycle ba,pt %xcc, .L73 st %g2, [%g1+%lo(CONT.6106)] .L88: 1090 get sym call GETSYM.6607, 0 mov %i5, %g5 .LVL80: 1091 ->s3 %if sym = '}' lduw [%i4+%lo(SYM.6102)], %g1 cmp %g1, 125 be,pn %icc, .L81 cmp %g1, 10 .L94: 1092 ->s4 %if sym = nl bne,pt %icc, .L91 nop .L85: .L96: 1093 %repeat 1094 %finish 1095 key = kdict(sym) ldx [%i5], %g2 ldx [%g2+8], %g4 add %g1, -32, %g3 sra %g3, 0, %g3 sethi %hi(4383744), %g2 srlx %g2, 7, %g2 add %g3, %g2, %g2 add %g2, %g2, %g2 add %g4, %g2, %g2 lduh [%g2+12], %g3 ldsh [%g2+12], %g4 sethi %hi(KEY.6568), %g2 1096 %if key&3 = 0 %and symtype = 2 %start; !keyword andcc %g3, 1, %g0 bne,pn %xcc, .L95 st %g4, [%g2+%lo(KEY.6568)] 1097 %if sym = 'C' %and nextsymbol = nl %start; !%c... sethi %hi(SYMTYPE.6103), %g2 lduw [%g2+%lo(SYMTYPE.6103)], %g2 cmp %g2, 2 be,pn %icc, .L109 cmp %g1, 67 .L95: bne,pt %icc, .L69 nop .LBB307: .LBB308: call _imp_nextsymbol, 0 nop .LVL102: .LBE308: .LBE307: 1098 getsym; cont = '+'; ->s1 cmp %o0, 10 bne,pt %icc, .L69 nop call GETSYM.6607, 0 mov %i5, %g5 .LVL103: 1099 %finish sethi %hi(CONT.6106), %g1 mov 43, %g2 1100 %else ba,pt %xcc, .L71 st %g2, [%g1+%lo(CONT.6106)] .L108: 1101 symtype = key&3-2 and %g3, 3, %g3 add %g3, -2, %g3 sethi %hi(SYMTYPE.6103), %g1 ba,pt %xcc, .L69 st %g3, [%g1+%lo(SYMTYPE.6103)] .L109: 1102 %finish 1103 %return 1104 %finish 1105 s4: symtype = quote 1106 ->S1 %if last = 0 %and Quote = 0 sethi %hi(QUOTE.6104), %g1 lduw [%g1+%lo(QUOTE.6104)], %g1 sethi %hi(SYMTYPE.6103), %g2 st %g1, [%g2+%lo(SYMTYPE.6103)] sethi %hi(LAST.6615), %g2 1107 Cont = '+' lduw [%g2+%lo(LAST.6615)], %g2 orcc %g1, %g2, %g0 be,pn %icc, .L71 sethi %hi(CONT.6106), %g1 .L97: mov 43, %g2 st %g2, [%g1+%lo(CONT.6106)] .L86: .L98: .L69: 1108 %end 1109 ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L108 nop return %i7+8 nop .L102: .LVL81: .LBB292: .LBB293: call _imp_printsymbol, 0 srax %o0, 56, %o0 .LVL82: .LBE293: .LBE292: call __stack_chk_fail, 0 nop .LVL104: nop .LFE206: .align 4 .proc 020 GET.6791: .LFB211: 1110 %integerfn format selected 1111 format list = tag(format)_app; !number of names ldx [%g2], %g2 ldx [%g2+8], %g4 sra %g1, 0, %g3 add %g3, %g3, %g2 add %g2, %g3, %g2 sllx %g2, 3, %g2 add %g4, %g2, %g2 sethi %hi(12555264), %g3 srlx %g3, 8, %g3 lduw [%g2+%g3], %g2 sethi %hi(FORMATLIST.6155), %g3 1112 %if format list < 0 %start; !forward ref cmp %g2, 0 bl,pn %icc, .L210 st %g2, [%g3+%lo(FORMATLIST.6155)] .L162: 1113 atom1 = error+22 sethi %hi(32768), %g1 or %g1, 22, %g1 .LBE333: .LBE334: ba,pt %xcc, .L140 st %g1, [%l3+%lo(ATOM1.6085)] .L209: 1114 %result = 0 1115 %finish 1116 %if sym = '_' %start sethi %hi(SYM.6102), %g2 lduw [%g2+%lo(SYM.6102)], %g2 cmp %g2, 95 bne,a,pt %icc, .L224 sethi %hi(APP.6089), %g1 1117 escape class = esc rec sethi %hi(ESCAPECLASS.6111), %g2 mov 255, %g3 st %g3, [%g2+%lo(ESCAPECLASS.6111)] 1118 search base = tag(format)_format sra %g1, 0, %g1 add %g1, %g1, %g2 add %g2, %g1, %g1 sllx %g1, 3, %g1 add %g4, %g1, %g4 sethi %hi(6278144), %g1 srlx %g1, 7, %g1 lduw [%g4+%g1], %g2 sethi %hi(SEARCHBASE.6154), %g1 .LBE332: .LBE331: ba,pt %xcc, .L165 st %g2, [%g1+%lo(SEARCHBASE.6154)] .L210: .LBB334: .LBB333: 1119 %finish 1120 %result = 1 1121 %end 1122 1123 %routine code atom(%integer target) .LVL190: save %sp, -224, %sp .LVL191: mov %g5, %i5 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 add %fp, 2047, %g1 stx %g1, [%fp+2031] stx %g5, [%fp+2007] 1124 %integer dbase, da 1125 %integer base, n, mul, pend quote 1126 %integer j,k,l, pt 1127 1128 %routine lookup(%integer d) .LVL114: save %sp, -960, %sp .LVL115: mov %g5, %i2 ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 1129 %integer new name, vid, k1, k2, form 1130 %record(tagfm)%name t 1131 %integer new 1132 1133 ! twee little function because SKIMP86 can't do string compare properly 1134 ! returns 1 if the two names are the same, else zero 1135 %integerfn dict match(%integer ptr1, ptr2) 1136 %integer len; 1137 ! start with a cheap check of the length and first character 1138 %if dict(ptr1) # dict(ptr2) %then %result = 0 sethi %hi(6411264), %g1 srlx %g1, 8, %g1 lduw [%o5+%g1], %o4 mov %g1, %i1 lduw [%g4+%i1], %g3 cmp %g3, %o4 bne,a,pt %icc, .L219 add %i4, 1, %i4 .L144: 1139 len = dict(ptr1) & 255 and %g3, 255, %g3 .LVL131: 1140 ptr1 = ptr1 + 1 mov %g1, %g4 .LVL121: .L145: add %i3, 2, %g1 .LVL132: 1141 ptr2 = ptr2 + 1 add %o2, 2, %o2 .LVL119: mov %o2, %o1 mov %o1, %o0 1142 len = len - 1 add %g3, -1, %g3 .LVL133: 1143 %while len >= 2 %cycle 1144 %if dict(ptr1) # dict(ptr2) %then %result = 0 mov 3131, %o3 sllx %o3, 3, %o3 .LBE319: .LBE318: cmp %g3, 1 ble,pn %icc, .L196 mov %o2, %g2 .LVL134: lduw [%g4+%o3], %o0 lduw [%o5+%o3], %g4 cmp %o0, %g4 bne,a,pn %icc, .L219 add %i4, 1, %i4 .LVL135: .L146: cmp %g3, 1 ble,pn %icc, .L234 add %g2, 1, %o0 sra %g1, 0, %g1 add %g1, %g5, %g1 sllx %g1, 2, %g1 add %i5, %g1, %g1 lduw [%g1+4], %l1 sra %g2, 0, %g2 add %g2, %g5, %g2 sllx %g2, 2, %g2 add %i5, %g2, %g2 lduw [%g2+4], %l0 cmp %l1, %l0 be,pt %icc, .L146 mov %o0, %g2 .LBE322: .LBE325: 1145 ptr1 = ptr1 + 1 add %g1, 1, %g4 .LVL136: mov %g4, %g1 1146 ptr2 = ptr2 + 1 1147 len = len - 2 add %g3, -2, %g3 .LVL137: .LDL10: 1148 %repeat 1149 ! if the string was odd length, we might need one last byte checked 1150 %if len = 1 %start cmp %g3, 1 .L234: be,pn %icc, .L203 add %o0, -1, %g1 .L148: .L193: .LDL6: .LVL122: .LBE320: .LBE323: 1151 %if dict(ptr1)&255 # dict(ptr2)&255 %then %result = 0 mov 1565, %g5 sllx %g5, 2, %g5 sra %g1, 0, %g1 add %g1, %g5, %g1 sllx %g1, 2, %g1 add %i5, %g1, %g1 lduw [%g1+4], %g1 xor %g1, 255, %g1 cmp %g0, %g1 subx %g0, -1, %g2 add %g4, -1, %g1 sra %g1, 0, %g1 add %g1, %g5, %g1 sllx %g1, 2, %g1 add %i5, %g1, %g1 lduw [%g1+4], %g1 andcc %g1, %g2, %g0 bne,pt %icc, .L221 sethi %hi(THIS.6126), %g1 .LVL126: .LDL8: .LBE321: .LBE324: 1152 %finish 1153 %result = 1 1154 %end 1155 1156 !first locate the text of the name 1157 new = dmax+1; ! points to text of string in dictionary sethi %hi(DMAX.6130), %g1 lduw [%g1+%lo(DMAX.6130)], %o2 .LVL116: 1158 k1 = hash value & max names; ! rather crude hash! ldx [%g5], %g1 ldx [%g1], %g1 ldx [%g1+8], %i5 mov 1565, %g1 sllx %g1, 4, %g1 lduw [%i5+%g1], %i4 and %i4, 2047, %i4 .LVL117: 1159 1160 %cycle 1161 newname = hash(k1) sra %i4, 0, %g1 mov 1053, %g2 sllx %g2, 2, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 lduw [%i5+%g1], %i3 .LVL118: ba,pt %xcc, .L142 mov %g2, %o7 .LVL120: .L196: .LBB323: .LBB320: sra %i4, 0, %g1 add %g1, %o7, %g1 sllx %g1, 2, %g1 lduw [%i5+%g1], %i3 .LVL129: 1162 %exit %if newname = 0; !not in cmp %i3, 0 be,pn %icc, .L141 sra %o2, 0, %o5 sllx %o5, 2, %o5 add %i5, %o5, %o5 .LBB318: .LBB319: cmp %i3, 0 be,pn %icc, .L222 sethi %hi(SPARENAMES.6057), %g2 .L142: .LVL130: sra %i3, 0, %g4 sllx %g4, 2, %g4 add %i5, %g4, %g4 .LBB325: .LBB322: 1163 ->in %if dict match(newname+1, new) = 1 1164 k1 = (k1+1)&max names add %i4, 1, %i4 .LVL127: .L219: and %i4, 2047, %i4 .LVL128: .LDL9: ba,pt %xcc, .L219 add %i4, 1, %i4 .LVL138: .L141: 1165 %repeat 1166 1167 ! not found 1168 spare names = spare names-1 sethi %hi(SPARENAMES.6057), %g2 .L222: lduw [%g2+%lo(SPARENAMES.6057)], %g1 add %g1, -1, %g1 1169 abandon(2) %if spare names <= 0 cmp %g1, 0 ble,pn %icc, .L206 st %g1, [%g2+%lo(SPARENAMES.6057)] .LVL139: .L149: 1170 hash(k1) = dmax; !put it in sethi %hi(DMAX.6130), %g4 .L220: lduw [%g4+%lo(DMAX.6130)], %i3 .LVL140: ldx [%i2], %g1 ldx [%g1], %g1 ldx [%g1+8], %g2 sra %i4, 0, %g1 mov 1053, %i4 .LVL141: sllx %i4, 2, %i4 add %g1, %i4, %g1 .LVL142: sllx %g1, 2, %g1 .LVL143: st %i3, [%g2+%g1] mov %i5, %g5 call ABANDON.6232, 0 mov 2, %o0 .LVL148: ba,pt %xcc, .L220 sethi %hi(DMAX.6130), %g4 .LVL149: .L204: 1171 dict(dmax) = -1 ldx [%i2], %g1 ldx [%g1], %g1 ldx [%g1+8], %g2 add %i3, -1, %g1 sra %g1, 0, %g1 mov 1565, %g3 sllx %g3, 2, %g3 add %g1, %g3, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 mov -1, %g2 st %g2, [%g1+4] .LVL144: 1172 newname = dmax; dmax = dp; ->not in 1173 sethi %hi(DP.6147), %g1 lduw [%g1+%lo(DP.6147)], %g1 st %g1, [%g4+%lo(DMAX.6130)] .L150: .L182: 1174 in: search base = rbase %if this >= 0 %and d # 0; !record elem defn 1175 %if search base # 0 %start; !record subname sethi %hi(THIS.6126), %g1 .L221: lduw [%g1+%lo(THIS.6126)], %g1 srl %g1, 31, %g1 sethi %hi(SEARCHBASE.6154), %g1 .L235: lduw [%g1+%lo(SEARCHBASE.6154)], %g2 cmp %g2, 0 be,pt %icc, .L152 add %i3, -1, %g1 .LVL123: 1176 new = -1 cmp %g0, %i0 subx %g0, -1, %g2 orcc %g1, %g2, %g0 be,pn %icc, .L204 sethi %hi(RBASE.6129), %g1 .L151: 1177 x = search base sethi %hi(X.6084), %g1 st %g2, [%g1+%lo(X.6084)] lduw [%g1+%lo(RBASE.6129)], %g2 sethi %hi(SEARCHBASE.6154), %g1 ba,pt %xcc, .L235 st %g2, [%g1+%lo(SEARCHBASE.6154)] .L152: 1178 %cycle 1179 ->not in %if x < format list sethi %hi(FORMATLIST.6155), %g1 lduw [%g1+%lo(FORMATLIST.6155)], %i4 .LVL124: cmp %g2, %i4 bl,pn %icc, .L182 sra %g2, 0, %g3 cmp %g2, %i4 bl,pn %icc, .L205 mov %g2, %g4 .L155: 1180 %exit %if tag(x)_text = new name add %g3, %g3, %g1 add %g1, %g3, %g1 sllx %g1, 3, %g1 add %i5, %g1, %g1 sethi %hi(12559360), %g3 srlx %g3, 8, %g3 lduw [%g1+%g3], %g1 add %g2, -1, %g2 cmp %g1, %i3 be,pn %icc, .L159 mov %g3, %g5 .L156: .LDL7: sra %g4, 0, %g3 add %g3, %g3, %g1 add %g1, %g3, %g1 sllx %g1, 3, %g1 add %i5, %g1, %g1 lduw [%g1+%g5], %g1 cmp %g1, %i3 bne,pt %icc, .L156 add %g2, -1, %g2 sethi %hi(X.6084), %g1 ba,pt %xcc, .L233 st %g4, [%g1+%lo(X.6084)] .LVL125: .L203: .LBB324: .LBB321: 1181 x = x-1 1182 %repeat 1183 %finish %else %start; !hash in for normal names 1184 x = dict(newname) sra %g1, 0, %g1 mov 1565, %g2 sllx %g2, 2, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 add %i5, %g1, %g1 lduw [%g1+4], %g1 sethi %hi(X.6084), %g2 st %g1, [%g2+%lo(X.6084)] 1185 ->not in %if x <= limit; !wrong level sethi %hi(LIMIT.6142), %g2 lduw [%g2+%lo(LIMIT.6142)], %g2 cmp %g1, %g2 ble,pt %icc, .L223 sethi %hi(APP.6089), %g1 .L154: .L158: .LVL150: .L159: 1186 %finish 1187 1188 subatom = x; !name found, extract info sethi %hi(X.6084), %g1 .L233: lduw [%g1+%lo(X.6084)], %i4 sethi %hi(SUBATOM.6087), %g1 st %i4, [%g1+%lo(SUBATOM.6087)] .LVL151: 1189 t == tag(x) 1190 atom flags = t_flags sra %i4, 0, %g3 add %g3, %g3, %g1 add %g1, %g3, %g2 sllx %g2, 3, %g2 add %i5, %g2, %g2 sethi %hi(12557312), %g4 srlx %g4, 8, %g4 lduw [%g2+%g4], %g2 sethi %hi(ATOMFLAGS.6113), %i1 st %g2, [%i1+%lo(ATOMFLAGS.6113)] 1191 format = t_format; app = t_app sethi %hi(FORMAT.6090), %l0 add %g1, %g3, %g4 sllx %g4, 3, %g4 add %i5, %g4, %g4 sethi %hi(6278144), %g5 srlx %g5, 7, %g5 lduw [%g4+%g5], %g4 st %g4, [%l0+%lo(FORMAT.6090)] 1192 protection = atom flags&prot sethi %hi(APP.6089), %l1 add %g1, %g3, %g1 sllx %g1, 3, %g1 add %i5, %g1, %g1 sethi %hi(12555264), %g3 srlx %g3, 8, %g3 lduw [%g1+%g3], %g1 st %g1, [%l1+%lo(APP.6089)] 1193 type = atom flags>>4&7; atom1 = amap(atom flags&15) sethi %hi(TYPE.6088), %l2 srl %g2, 4, %g1 and %g1, 7, %g1 st %g1, [%l2+%lo(TYPE.6088)] 1194 sethi %hi(ATOM1.6085), %l3 and %g2, 15, %g1 add %i5, %g1, %g1 sethi %hi(17855488), %g2 srlx %g2, 8, %g2 ldub [%g1+%g2], %g1 st %g1, [%l3+%lo(ATOM1.6085)] .LBB326: 1195 %if diag&8 # 0 %start 1196 printstring("lookup:") mov 256, %o2 sethi %hi(.LC27), %o1 or %o1, %lo(.LC27), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL152: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL153: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL154: .LBE326: .LBB327: .LBB328: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 1263, %o0 .LVL155: call _imp_printstring, 0 add %fp, 1263, %o0 .LVL156: .LBE328: .LBE327: 1197 write(atom1, 3) mov 3, %o1 call _imp_writeint, 0 ldsw [%l3+%lo(ATOM1.6085)], %o0 .LVL157: 1198 write(type, 1) mov 1, %o1 call _imp_writeint, 0 ldsw [%l2+%lo(TYPE.6088)], %o0 .LVL158: 1199 write(app, 3) mov 3, %o1 call _imp_writeint, 0 ldsw [%l1+%lo(APP.6089)], %o0 .LVL159: 1200 write(format, 5) mov 5, %o1 call _imp_writeint, 0 ldsw [%l0+%lo(FORMAT.6090)], %o0 .LVL160: 1201 write(atom flags, 3) mov 3, %o1 call _imp_writeint, 0 ldsw [%i1+%lo(ATOMFLAGS.6113)], %o0 .LVL161: .LBB329: .LBB330: call _imp_newline, 0 nop .LVL162: .LDL11: .LBE330: .LBE329: 1202 newline 1203 %finish 1204 1205 %if d = 0 %start; !old name wanted brnz,a,pt %i0, .L160 ldx [%i2], %g1 1206 t_flags = t_flags!used bit sra %i4, 0, %i4 add %i4, %i4, %g1 add %g1, %i4, %g2 sllx %g2, 3, %g2 add %i5, %g2, %g2 sethi %hi(12557312), %g3 srlx %g3, 8, %g3 lduw [%g2+%g3], %g1 sethi %hi(32768), %g4 or %g1, %g4, %g1 st %g1, [%g2+%g3] 1207 search base = 0 sethi %hi(SEARCHBASE.6154), %g1 st %g0, [%g1+%lo(SEARCHBASE.6154)] 1208 1209 %if atom flags&subname # 0 %and format # 0 %start; !a record 1210 %return %if format selected = 0 lduw [%l0+%lo(FORMAT.6090)], %g1 cmp %g1, 0 bne,a,pn %icc, .L208 ldx [%i2], %g2 .L161: .L165: 1211 %finish 1212 1213 %if atom flags¶meters # 0 %start; !proc or array 1214 %if app = 0 %start; !no parameters needed sethi %hi(APP.6089), %g1 .L224: lduw [%g1+%lo(APP.6089)], %g1 cmp %g1, 0 bne,pt %icc, .L166 sethi %hi(SYM.6102), %g2 1215 atom2 = atom1 sethi %hi(ATOM1.6085), %g2 lduw [%g2+%lo(ATOM1.6085)], %g1 sethi %hi(ATOM2.6086), %g3 st %g1, [%g3+%lo(ATOM2.6086)] 1216 atom1 = atom1-4 add %g1, -4, %g3 1217 %if 97 <= atom1 %and atom1 <= 98 %start 1218 map gg = atom1; atom1 = var add %g1, -101, %g1 cmp %g1, 1 bleu,pn %icc, .L209 st %g3, [%g2+%lo(ATOM1.6085)] .L167: .L170: .L171: sethi %hi(MAPGG.6124), %g1 st %g3, [%g1+%lo(MAPGG.6124)] 1219 %finish mov %g2, %g1 mov 91, %g2 ba,pt %xcc, .L171 st %g2, [%g1+%lo(ATOM1.6085)] .L166: 1220 %finish %else %start 1221 %if sym = '(' %start lduw [%g2+%lo(SYM.6102)], %g2 cmp %g2, 40 bne,a,pt %icc, .L225 sethi %hi(POS.6150), %g1 1222 search base = 0; !ignore format for now sethi %hi(SEARCHBASE.6154), %g2 st %g0, [%g2+%lo(SEARCHBASE.6154)] 1223 %if atom1 >= 106 %start; !arrays sethi %hi(ATOM1.6085), %g2 lduw [%g2+%lo(ATOM1.6085)], %g2 cmp %g2, 105 ble,a,pt %icc, .L168 sethi %hi(ESCAPECLASS.6111), %g1 1224 app = phrase(app+200) sra %g1, 0, %g1 add %g1, %g1, %g1 sethi %hi(PHRASE.6177), %g3 or %g3, %lo(PHRASE.6177), %g3 ldsh [%g3+%g1], %g3 sethi %hi(APP.6089), %g1 st %g3, [%g1+%lo(APP.6089)] 1225 escape class = esc array sethi %hi(ESCAPECLASS.6111), %g1 mov 254, %g3 st %g3, [%g1+%lo(ESCAPECLASS.6111)] 1226 atom1 = (atom1-106)>>1+91; !a,an->v na,nan->n add %g2, -106, %g1 srl %g1, 1, %g1 add %g1, 91, %g1 sethi %hi(ATOM1.6085), %g2 st %g1, [%g2+%lo(ATOM1.6085)] .L169: 1227 %finish %else %start; !procedures 1228 escape class = esc proc mov 253, %g3 st %g3, [%g1+%lo(ESCAPECLASS.6111)] 1229 atom1 = atom1-4 add %g2, -4, %g2 sethi %hi(ATOM1.6085), %g1 ba,pt %xcc, .L169 st %g2, [%g1+%lo(ATOM1.6085)] .L160: 1230 %finish 1231 phrase(200) = app sethi %hi(APP.6089), %g1 lduw [%g1+%lo(APP.6089)], %g2 sethi %hi(PHRASE.6177), %g1 ba,pt %xcc, .L171 sth %g2, [%g1+%lo(PHRASE.6177)] .L168: 1232 %finish 1233 %finish 1234 pos2 = pos; %return sethi %hi(POS.6150), %g1 .L225: lduw [%g1+%lo(POS.6150)], %g2 sethi %hi(POS2.6149), %g1 1235 %finish ba,pt %xcc, .L140 st %g2, [%g1+%lo(POS2.6149)] .L208: .LBB331: .LBB332: 1236 1237 !deal with constintegers etc 1238 %if atom flags&const bit # 0 %and atom1 = var %start 1239 map gg = const; atom2 = const 1240 subatom = -subatom %if type = integer 1241 %finish 1242 %return 1243 %finish 1244 !new name wanted 1245 ->not in %if tbase # tstart; !don't fault proc parm-parm ldx [%g1], %g1 lduw [%g1+68], %g2 lduw [%g1+72], %g1 cmp %g2, %g1 be,pn %icc, .L211 sethi %hi(32768), %g1 .L172: 1246 %if d = lab+spec+used bit %start or %g1, 131, %g1 cmp %i0, %g1 be,pn %icc, .L216 cmp %i0, 3 .L174: 1247 t_flags = t_flags!used bit sra %i4, 0, %i4 add %i4, %i4, %g1 add %g1, %i4, %g2 sllx %g2, 3, %g2 add %i5, %g2, %g2 sethi %hi(12557312), %g3 srlx %g3, 8, %g3 lduw [%g2+%g3], %g1 sethi %hi(32768), %g4 or %g1, %g4, %g1 1248 %return ba,pt %xcc, .L140 st %g1, [%g2+%g3] .L217: 1249 %finish 1250 %if atom flags&spec # 0 %start; !a spec has been given 1251 %if d = lab %start; !define label be,pn %icc, .L217 sethi %hi(DECL.6108), %g1 .L175: 1252 t_flags = t_Flags-Spec sra %i4, 0, %i4 add %i4, %i4, %g1 add %g1, %i4, %g2 sllx %g2, 3, %g2 add %i5, %g2, %g2 sethi %hi(12557312), %g3 srlx %g3, 8, %g3 lduw [%g2+%g3], %g1 add %g1, -128, %g1 1253 %return ba,pt %xcc, .L140 st %g1, [%g2+%g3] .L176: .L179: 1254 %finish 1255 %if 7 <= decl&15 %and decl&15 <= 10 %and decl&spec = 0 %start lduw [%g1+%lo(DECL.6108)], %g1 cmp %g1, 6 ble,pt %icc, .L179 andcc %g1, 1, %g0 1256 !procedure definition after spec bne,a,pt %xcc, .L228 sethi %hi(LAST1.6116), %g1 1257 %if (decl!!atom flags)&2_1111111 = 0 %start; !correct type? sethi %hi(ATOMFLAGS.6113), %g2 lduw [%g2+%lo(ATOMFLAGS.6113)], %g2 xor %g1, %g2, %g1 andcc %g1, 1, %g0 bne,pt %xcc, .L229 sra %i4, 0, %i4 1258 t_flags = t_flags-spec add %i4, %i4, %g1 add %g1, %i4, %g2 sllx %g2, 3, %g2 add %i5, %g2, %g2 sethi %hi(12557312), %g3 srlx %g3, 8, %g3 lduw [%g2+%g3], %g1 add %g1, -128, %g1 st %g1, [%g2+%g3] 1259 spec given = 1 sethi %hi(SPECGIVEN.6110), %g1 mov 1, %g2 1260 %return ba,pt %xcc, .L140 st %g2, [%g1+%lo(SPECGIVEN.6110)] .L216: 1261 %finish 1262 !note that an external procedure must be speced as a 1263 !non-external procedure. 1264 %finish 1265 %if decl&15 = recfm %start; !recordformat bne,pn %xcc, .L180 sra %i4, 0, %i4 .L229: 1266 t_flags = record<<4+recfm add %i4, %i4, %g1 add %g1, %i4, %g2 sllx %g2, 3, %g2 add %i5, %g2, %g2 sethi %hi(12557312), %g3 srlx %g3, 8, %g3 mov 68, %g4 st %g4, [%g2+%g3] 1267 t_format = fdef mov %g2, %i5 .LVL178: sethi %hi(FDEF.6125), %g1 lduw [%g1+%lo(FDEF.6125)], %g2 sethi %hi(6278144), %g1 srlx %g1, 7, %g1 1268 %return ba,pt %xcc, .L140 st %g2, [%i5+%g1] .L177: .LVL179: .L180: 1269 %finish 1270 %finish 1271 %return %if last1 = jump %and atom1 = swit sethi %hi(LAST1.6116), %g1 .L228: lduw [%g1+%lo(LAST1.6116)], %g1 cmp %g1, 54 be,pn %icc, .L218 sethi %hi(ATOM1.6085), %g1 .L181: 1272 copy = x %if copy = 0 sethi %hi(COPY.6143), %g1 .L231: lduw [%g1+%lo(COPY.6143)], %g1 cmp %g1, 0 bne,pt %icc, .L230 sethi %hi(APP.6089), %g1 lduw [%g1+%lo(ATOM1.6085)], %g1 cmp %g1, 105 bne,pt %icc, .L231 sethi %hi(COPY.6143), %g1 ba,pt %xcc, .L140 nop .LVL180: .L205: sethi %hi(X.6084), %g1 ba,pt %xcc, .L182 st %g2, [%g1+%lo(X.6084)] .LVL181: .L212: 1273 notin: app = 0; vid = 0 sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g2 sethi %hi(COPY.6143), %g1 ba,pt %xcc, .L172 st %g2, [%g1+%lo(COPY.6143)] .L218: 1274 atom1 = error+2 sethi %hi(APP.6089), %g1 .L223: st %g0, [%g1+%lo(APP.6089)] .LVL145: sethi %hi(ATOM1.6085), %g2 sethi %hi(32768), %g1 or %g1, 2, %g1 sethi %hi(APP.6089), %g1 .L230: st %g0, [%g1+%lo(APP.6089)] .LVL163: .L183: 1275 1276 %return %if d = 0; !old name wanted brnz,pn %i0, .L183 st %g1, [%g2+%lo(ATOM1.6085)] .LVL146: .L140: 1277 type = d>>4&7; form = d&15; atom1 = amap(form) srl %i0, 4, %g1 and %g1, 7, %g1 sethi %hi(TYPE.6088), %g2 st %g1, [%g2+%lo(TYPE.6088)] 1278 and %i0, 15, %g1 .LVL164: 1279 %if this < 0 %start; !normal scope ldx [%i2], %g2 ldx [%g2], %g5 ldx [%g5+8], %g4 sra %g1, 0, %g3 add %g4, %g3, %g3 sethi %hi(17855488), %g2 srlx %g2, 8, %g2 ldub [%g3+%g2], %g3 sethi %hi(ATOM1.6085), %g2 st %g3, [%g2+%lo(ATOM1.6085)] sethi %hi(THIS.6126), %g2 lduw [%g2+%lo(THIS.6126)], %g2 cmp %g2, 0 bl,pn %icc, .L212 sethi %hi(4312064), %g2 .L184: .LVL165: 1280 new = newname 1281 tmax = tmax+1; x = tmax lduw [%g5+64], %g2 add %g2, 1, %g2 st %g2, [%g5+64] 1282 %finish %else %start; !recordformat scope ldx [%i2], %g2 ldx [%g2], %g2 lduw [%g2+64], %g3 sethi %hi(X.6084), %g2 st %g3, [%g2+%lo(X.6084)] mov %i3, %g3 ba,pt %xcc, .L185 mov 0, %i1 .LVL182: .L213: 1283 new = -1 mov -1, %g3 .LVL167: .L185: 1284 recid = recid-1; vid = recid srlx %g2, 8, %g2 lduw [%g4+%g2], %g3 add %g3, -1, %g3 st %g3, [%g4+%g2] 1285 tmin = tmin-1; x = tmin ldx [%i2], %g3 ldx [%g3], %g3 ldx [%g3+8], %g3 lduw [%g3+%g2], %i1 .LVL166: sethi %hi(TMIN.6131), %g3 lduw [%g3+%lo(TMIN.6131)], %g2 add %g2, -1, %g2 st %g2, [%g3+%lo(TMIN.6131)] 1286 format list = tmin sethi %hi(X.6084), %g3 st %g2, [%g3+%lo(X.6084)] sethi %hi(FORMATLIST.6155), %g3 st %g2, [%g3+%lo(FORMATLIST.6155)] 1287 %finish 1288 1289 %if 11 <= form %and form <= 14 %start; !arrays 1290 dim = 1 %if dim = 0; !set dim for owns add %g1, -11, %g2 cmp %g2, 3 bleu,pn %icc, .L213 sethi %hi(DIM.6109), %g2 .L186: .LDL12: lduw [%g2+%lo(DIM.6109)], %g2 cmp %g2, 0 bne,pt %icc, .L232 sethi %hi(DIM.6109), %g2 1291 app = dim mov 1, %g4 st %g4, [%g2+%lo(DIM.6109)] .L187: sethi %hi(DIM.6109), %g2 .L232: lduw [%g2+%lo(DIM.6109)], %g4 sethi %hi(APP.6089), %g2 ba,pt %xcc, .L186 st %g4, [%g2+%lo(APP.6089)] .LVL183: .L214: 1292 %finish 1293 1294 d = d!used bit %if (otype > 2 %and d&spec = 0) %or perm # 0 %or Level = Include Level 1295 1296 !external definitions need not be used in the file in which 1297 !they are defined, so inhibit a useless unused warning. sethi %hi(PERM.6137), %g2 lduw [%g2+%lo(PERM.6137)], %g2 cmp %g2, 0 bne,pt %icc, .L226 sethi %hi(32768), %g2 1298 ldx [%i2], %g2 ldx [%g2], %g2 sethi %hi(INCLUDELEVEL.6135), %g4 lduw [%g4+%lo(INCLUDELEVEL.6135)], %g4 lduw [%g2+60], %g2 cmp %g4, %g2 bne,a,pt %icc, .L227 sethi %hi(X.6084), %g2 .L188: 1299 t == tag(x) sethi %hi(X.6084), %g2 .L227: lduw [%g2+%lo(X.6084)], %i5 ldx [%i2], %g2 ldx [%g2], %g4 .LVL169: 1300 %if form = lab %start sethi %hi(32768), %g2 .L226: or %i0, %g2, %i0 sra %i0, 0, %i0 .LVL168: .L189: cmp %g1, 3 be,pn %icc, .L214 ldx [%g4+8], %g2 .LVL170: .L190: 1301 id = id+1; vid = id lduw [%g4+56], %g1 .LVL184: add %g1, 1, %g1 st %g1, [%g4+56] 1302 %finish ldx [%i2], %g1 ldx [%g1], %g1 .LVL185: ba,pt %xcc, .L190 lduw [%g1+56], %i1 .LVL186: .L215: 1303 t_index = vid sra %i5, 0, %g4 add %g4, %g4, %g1 add %g1, %g4, %g5 sllx %g5, 3, %g5 add %g2, %g5, %g5 mov 1533, %i4 sllx %i4, 5, %i4 st %i1, [%g5+%i4] 1304 t_text = new name add %g1, %g4, %g5 sllx %g5, 3, %g5 add %g2, %g5, %g5 sethi %hi(12559360), %i4 srlx %i4, 8, %i4 st %i3, [%g5+%i4] 1305 t_flags = d add %g1, %g4, %g5 sllx %g5, 3, %g5 add %g2, %g5, %g5 sethi %hi(12557312), %i4 srlx %i4, 8, %i4 st %i0, [%g5+%i4] 1306 t_app = app add %g1, %g4, %g5 sllx %g5, 3, %g5 add %g2, %g5, %g5 sethi %hi(APP.6089), %i4 lduw [%i4+%lo(APP.6089)], %i3 .LVL171: sethi %hi(12555264), %i4 srlx %i4, 8, %i4 st %i3, [%g5+%i4] 1307 t_format = fdef; format = fdef sethi %hi(FDEF.6125), %g5 lduw [%g5+%lo(FDEF.6125)], %g5 add %g1, %g4, %g1 sllx %g1, 3, %g1 add %g2, %g1, %g1 sethi %hi(6278144), %g4 srlx %g4, 7, %g4 st %g5, [%g1+%g4] 1308 subatom = x sethi %hi(FORMAT.6090), %g1 st %g5, [%g1+%lo(FORMAT.6090)] sethi %hi(SUBATOM.6087), %g1 1309 1310 %if new >= 0 %start; !insert into hash table cmp %g3, 0 bl,pn %icc, .L192 st %i5, [%g1+%lo(SUBATOM.6087)] 1311 t_link = dict(new); dict(new) = x add %g3, -1, %g1 ldx [%i2], %g3 .LVL172: ldx [%g3], %g3 ldx [%g3+8], %g3 sra %g1, 0, %g1 mov 1565, %g4 sllx %g4, 2, %g4 add %g1, %g4, %g1 .LVL173: sllx %g1, 2, %g1 .LVL174: add %g3, %g1, %g3 lduw [%g3+4], %g5 sra %i5, 0, %g4 add %g4, %g4, %g3 add %g3, %g4, %g3 sllx %g3, 3, %g3 add %g2, %g3, %g3 sethi %hi(6280192), %g4 srlx %g4, 7, %g4 st %g5, [%g3+%g4] 1312 %if gmin = max grammar %start; !proc param params ldx [%i2], %g3 ldx [%g3], %g3 ldx [%g3+8], %g3 add %g3, %g1, %g1 st %i5, [%g1+4] sethi %hi(GMIN.6170), %g1 lduw [%g1+%lo(GMIN.6170)], %g1 cmp %g1, 1720 be,pn %icc, .L215 sethi %hi(TMIN.6131), %g3 .L191: .LVL175: .L192: 1313 tmin = tmin-1; subatom = tmin lduw [%g3+%lo(TMIN.6131)], %g1 add %g1, -1, %g1 st %g1, [%g3+%lo(TMIN.6131)] 1314 tag(tmin) = t sethi %hi(SUBATOM.6087), %g3 st %g1, [%g3+%lo(SUBATOM.6087)] ldx [%i2], %g3 ldx [%g3], %g3 ldx [%g3+8], %g3 sra %g1, 0, %g1 add %g1, %g1, %g4 add %g4, %g1, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g3 mov 3065, %g1 sllx %g1, 4, %g4 add %g3, %g4, %g3 sra %i5, 0, %i5 add %i5, %i5, %g1 add %g1, %i5, %g1 sllx %g1, 3, %g1 add %g2, %g1, %g1 add %g1, %g4, %g1 lduw [%g1+4], %g2 .LVL187: st %g2, [%g3+4] lduw [%g1+8], %g2 st %g2, [%g3+8] lduw [%g1+12], %g2 st %g2, [%g3+12] lduw [%g1+16], %g2 st %g2, [%g3+16] lduw [%g1+20], %g2 st %g2, [%g3+20] lduw [%g1+24], %g1 ba,pt %xcc, .L192 st %g1, [%g3+24] .LVL188: .L207: 1315 %finish 1316 %finish 1317 abandon(3) %if tmax >= tmin ldx [%i2], %g1 ldx [%g1], %g1 sethi %hi(TMIN.6131), %g2 lduw [%g2+%lo(TMIN.6131)], %g3 lduw [%g1+64], %g2 cmp %g3, %g2 bg,pt %icc, .L140 nop 1318 %end ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 3, %o0 .LVL176: .L163: ba,pt %xcc, .L140 nop .LVL177: .L211: .L173: ?K2 unused 1319 ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L207 nop return %i7+8 nop .LVL147: .L206: call __stack_chk_fail, 0 nop .LVL189: nop .LFE209: .align 4 .proc 020 CODEATOM.6654: .LFB208: 1320 top: pos1 = pos 1321 subatom = 0; pend quote = 0; atom flags = 0 sethi %hi(POS.6150), %g1 lduw [%g1+%lo(POS.6150)], %g2 sethi %hi(POS1.6148), %g1 st %g2, [%g1+%lo(POS1.6148)] sethi %hi(SUBATOM.6087), %g1 st %g0, [%g1+%lo(SUBATOM.6087)] .LVL192: sethi %hi(POS1.6148), %l5 sethi %hi(POS.6150), %l4 sethi %hi(SUBATOM.6087), %l3 lduw [%l4+%lo(POS.6150)], %g1 st %g1, [%l5+%lo(POS1.6148)] st %g0, [%l3+%lo(SUBATOM.6087)] 1322 mov 0, %i1 .LVL201: .L273: mov 0, %i4 .LVL207: .L251: 1323 !app and format must be left for assigning to papp & pformat sethi %hi(ATOMFLAGS.6113), %g1 st %g0, [%g1+%lo(ATOMFLAGS.6113)] ba,pt %xcc, .L243 sethi %hi(ATOMFLAGS.6113), %l2 .L239: st %g0, [%l2+%lo(ATOMFLAGS.6113)] 1324 ->name %if symtype = -2; ! letter sethi %hi(SYMTYPE.6103), %g1 lduw [%g1+%lo(SYMTYPE.6103)], %g1 cmp %g1, -2 be,pn %icc, .L237 cmp %g1, 0 sethi %hi(SYMTYPE.6103), %g1 lduw [%g1+%lo(SYMTYPE.6103)], %g1 cmp %g1, -2 be,pn %icc, .L237 cmp %g1, 0 .L244: 1325 ->number %if symtype < 0; ! digit bl,a,pn %icc, .L337 mov 10, %g1 bl,a,pn %icc, .L337 mov 10, %g1 .L245: 1326 %if symtype = 0 %start be,pn %icc, .L239 cmp %g1, 2 be,pn %icc, .L239 cmp %g1, 2 .L246: 1327 atom1 = termin; atom2 = 0 sethi %hi(ATOM1.6085), %g1 mov 20, %g2 st %g2, [%g1+%lo(ATOM1.6085)] 1328 %return sethi %hi(ATOM2.6086), %g1 ba,pt %xcc, .L236 st %g0, [%g1+%lo(ATOM2.6086)] .L241: .L338: 1329 %finish 1330 %if symtype # 2 %start; ! catch keywords here be,pn %icc, .L253 sethi %hi(QUOTE.6104), %g1 be,pn %icc, .L253 lduw [%i1+%lo(QUOTE.6104)], %g1 1331 ->text %if quote # 0; ! completion of text lduw [%g1+%lo(QUOTE.6104)], %g1 cmp %g1, 0 be,pn %icc, .L338 sethi %hi(SYM.6102), %g1 cmp %g1, 0 be,pn %icc, .L241 sethi %hi(SYM.6102), %g1 .L248: 1332 ->strings %if sym = squote; ! start of string lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 34 be,pn %icc, .L249 cmp %g1, 39 .L250: 1333 ->symbols %if sym = cquote; ! start of symbol be,pn %icc, .L309 cmp %g1, 46 .L252: 1334 ->number %if sym = '.' %and '0' <= nextsymbol %and nextsymbol <= '9' be,pn %icc, .L314 nop .L240: .L253: 1335 %finish cmp %o0, 47 ble,pt %icc, .L340 sethi %hi(KEY.6568), %g1 .LBB337: .LBB338: call _imp_nextsymbol, 0 nop .LVL200: .LBE338: .LBE337: 1336 cmp %o0, 57 bg,pt %icc, .L340 sethi %hi(KEY.6568), %g1 .L238: 1337 ! locate atom in fixed dict 1338 k = key>>2; read sym sethi %hi(KEY.6568), %g1 .L340: lduw [%g1+%lo(KEY.6568)], %g1 srl %g1, 2, %i4 .LVL193: 1339 %cycle call READSYM.6613, 0 mov %i5, %g5 .LVL194: .LDL13: 1340 j = kdict(k) ldx [%i5], %g2 sra %i4, 0, %g1 add %g1, %g1, %g1 ldx [%g2+8], %g2 add %g2, %g1, %g1 sethi %hi(17521664), %g2 srlx %g2, 8, %g2 lduh [%g1+%g2], %g2 .LVL195: .LDL14: 1341 %exit %if j&16_4000 # 0 1342 %if j&127 # sym %or symtype < 0 %start 1343 ->err %unless j < 0 1344 k = k+1 1345 %finish %else %start 1346 l = j>>7&127; read sym 1347 %if j > 0 %start 1348 %if l # 0 %start 1349 ->err %if l # sym %or symtype < 0 1350 read sym 1351 %finish 1352 l = 1 1353 %finish 1354 k = k+l 1355 %finish 1356 %repeat 1357 atom1 = j&127 and %g2, 127, %g3 sethi %hi(ATOM1.6085), %g4 1358 %if atom1 = 0 %start; ! comma cmp %g3, 0 bne,pn %icc, .L254 st %g3, [%g4+%lo(ATOM1.6085)] 1359 atom1 = 19; subatom = 19; atom2 = 0 mov 19, %g1 st %g1, [%g4+%lo(ATOM1.6085)] 1360 %if sym = nl %start sethi %hi(SUBATOM.6087), %g2 .LVL196: st %g1, [%g2+%lo(SUBATOM.6087)] sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 bne,pt %icc, .L236 sethi %hi(OCOUNT.6141), %g1 1361 %return %if ocount >= 0 sethi %hi(ATOM2.6086), %g1 st %g0, [%g1+%lo(ATOM2.6086)] lduw [%g1+%lo(OCOUNT.6141)], %g1 cmp %g1, 0 bge,pt %icc, .L236 nop .L255: 1362 1363 ! special action needs to be taken with as 1364 ! const array lists can be enormous 1365 read sym call READSYM.6613, 0 mov %i5, %g5 .LVL197: ba,pt %xcc, .L236 nop .LVL198: .L314: .LBB335: .LBB336: call _imp_nextsymbol, 0 nop .LVL199: .LBE336: .LBE335: 1366 %finish 1367 %return 1368 %finish 1369 atom2 = j>>7&127 sll %g2, 16, %g2 .LVL204: sra %g2, 16, %g2 srl %g2, 7, %g2 and %g2, 127, %g2 sethi %hi(ATOM2.6086), %g3 st %g2, [%g3+%lo(ATOM2.6086)] 1370 subatom = kdict(k+1)&16_3fff sethi %hi(35044352), %g2 srlx %g2, 9, %g2 lduh [%g1+%g2], %g2 sethi %hi(-16384), %g1 .LVL205: andn %g2, %g1, %g1 sll %g1, 16, %g1 srl %g1, 16, %g1 sethi %hi(SUBATOM.6087), %g2 1371 !!!!!cont = ' ' 1372 %return ba,pt %xcc, .L236 st %g1, [%g2+%lo(SUBATOM.6087)] .LVL206: .L309: 1373 1374 ! report an error. adjust the error marker (pos1) to point 1375 ! to the faulty character in an atom, but care needs to be taken 1376 ! to prevent misleading reports in cases like ...????? 1377 1378 err: atom1 = error+1; atom2 = 0 1379 pos1 = pos %if pos-pos1 > 2 sethi %hi(ATOM1.6085), %g2 .L345: sethi %hi(32768), %g1 or %g1, 1, %g1 st %g1, [%g2+%lo(ATOM1.6085)] sethi %hi(POS.6150), %g1 lduw [%g1+%lo(POS.6150)], %g2 sethi %hi(POS1.6148), %g1 lduw [%g1+%lo(POS1.6148)], %g1 sub %g2, %g1, %g1 cmp %g1, 2 ble,pt %icc, .L236 sethi %hi(POS1.6148), %g1 1380 %return sethi %hi(ATOM2.6086), %g1 st %g0, [%g1+%lo(ATOM2.6086)] ba,pt %xcc, .L236 st %g2, [%g1+%lo(POS1.6148)] .L276: .LVL237: .L279: 1381 1382 ! take care with strings and symbol constants. 1383 ! make sure the constant is valid here before sucking it in 1384 ! (and potentially loosing many lines) 1385 1386 symbols: atom1 = var; atom2 = const; type = integer 1387 map gg = const; protection = prot sethi %hi(ATOM1.6085), %g1 mov 91, %g2 st %g2, [%g1+%lo(ATOM1.6085)] sethi %hi(MAPGG.6124), %g2 st %g1, [%g2+%lo(MAPGG.6124)] 1388 subatom = lp; abandon(3) %if lp >= lit max mov 93, %g1 sethi %hi(ATOM2.6086), %g2 st %g1, [%g2+%lo(ATOM2.6086)] sethi %hi(LP.6160), %g1 lduw [%g1+%lo(LP.6160)], %g1 sethi %hi(SUBATOM.6087), %g2 1389 quote = \pend quote sethi %hi(TYPE.6088), %g2 mov 1, %g3 st %g3, [%g2+%lo(TYPE.6088)] cmp %g1, 49 bg,pn %icc, .L316 st %g1, [%g2+%lo(SUBATOM.6087)] .L258: xnor %g0, %i4, %i4 .LVL208: .L331: sethi %hi(QUOTE.6104), %g1 ba,pt %xcc, .L331 xnor %g0, %i4, %i4 .LVL211: .L318: .L261: 1390 %return ba,pt %xcc, .L236 st %i4, [%g1+%lo(QUOTE.6104)] .LVL209: .L316: ldx [%i5], %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 3, %o0 .LVL210: 1391 1392 ! an integer constant is acceptable so get it in and 1393 ! get the next atom 1394 chars: n = 0; cont = cquote 1395 %cycle st %g0, [%fp+2019] 1396 read sym sethi %hi(CONT.6106), %i4 or %i4, %lo(CONT.6106), %i4 mov 39, %l1 st %l1, [%i4] .LDL16: call READSYM.6613, 0 mov %i5, %g5 .LVL215: 1397 %if sym = cquote %start sethi %hi(SYM.6102), %i3 lduw [%i3+%lo(SYM.6102)], %g1 cmp %g1, 39 bne,pn %icc, .L341 sethi %hi(POS.6150), %g1 .LBB339: .LBB340: call _imp_nextsymbol, 0 nop .LVL216: .LBE340: .LBE339: 1398 %exit %if nextsymbol # cquote cmp %o0, 39 be,pn %icc, .L318 mov 32, %g1 .L260: 1399 read sym call READSYM.6613, 0 mov %i5, %g5 .LVL212: .L259: 1400 %finish 1401 %if n&(\((-1)>>byte size)) # 0 %start; ! overflow 1402 pos1 = pos; atom1 = error+10; %return sethi %hi(POS.6150), %g1 .L341: lduw [%g1+%lo(POS.6150)], %g2 sethi %hi(POS1.6148), %g1 st %g2, [%g1+%lo(POS1.6148)] 1403 %finish sethi %hi(ATOM1.6085), %g2 sethi %hi(32768), %g1 or %g1, 10, %g1 st %g1, [%g2+%lo(ATOM1.6085)] .LVL213: .L236: 1404 ->err %if quote = 0 1405 n = n<top add %g2, 1, %g2 st %g2, [%i2+%lo(LP.6160)] .LDL15: 1412 1413 !sniff the grammar before getting the string 1414 strings: atom1 = var; atom2 = const; type = stringv 1415 subatom = strp!16_4000 sethi %hi(ATOM1.6085), %g1 mov 91, %g2 st %g2, [%g1+%lo(ATOM1.6085)] lduw [%i5+8], %g1 sethi %hi(16384), %g3 or %g1, %g3, %g1 sethi %hi(SUBATOM.6087), %g3 st %g1, [%g3+%lo(SUBATOM.6087)] 1416 map gg = const; protection = prot mov 93, %g2 sethi %hi(ATOM2.6086), %g1 st %g2, [%g1+%lo(ATOM2.6086)] sethi %hi(MAPGG.6124), %g3 st %g2, [%g3+%lo(MAPGG.6124)] 1417 quote = subatom sethi %hi(TYPE.6088), %g1 mov 3, %g3 st %g3, [%g1+%lo(TYPE.6088)] sethi %hi(QUOTE.6104), %g2 st %g1, [%g2+%lo(QUOTE.6104)] 1418 text line = lines; ! in case of errors sethi %hi(LINES.6094), %g1 lduw [%g1+%lo(LINES.6094)], %g2 sethi %hi(TEXTLINE.6095), %g1 1419 %return ba,pt %xcc, .L236 st %g2, [%g1+%lo(TEXTLINE.6095)] .L242: .LVL218: .L339: 1420 1421 ! a string constant is ok here, so pull it in and get 1422 ! the next atom 1423 ! ABD - temp variable to help pack bytes into words 1424 %integer flipflop 1425 1426 text: ->chars %if quote < 0; ! character consts 1427 l = strp; ! point to beginning bge,pn %icc, .L339 mov 0, %l7 bge,pn %icc, .L242 mov 0, %l7 .L243: 1428 k = 0; ! length so far mov 0, %i4 1429 flipflop = 0; ! space for the length is up the spout 1430 1431 %cycle 1432 cont = squote; quote = 1 sethi %hi(CONT.6106), %l4 or %l4, %lo(CONT.6106), %l4 mov 34, %l6 st %l6, [%l4] 1433 %cycle sethi %hi(QUOTE.6104), %l3 or %l3, %lo(QUOTE.6104), %l3 mov 1, %l5 st %l5, [%l3] 1434 read sym call READSYM.6613, 0 mov %i5, %g5 .LVL224: 1435 %if sym = squote %start; ! terminator? lduw [%i3+%lo(SYM.6102)], %g1 cmp %g1, 34 be,pn %icc, .L320 cmp %l7, 0 .L266: .L333: sethi %hi(SYM.6102), %i3 1436 %exit %if nextsymbol # squote; ! yes -> cmp %o0, 34 bne,a,pn %icc, .L267 cmp %l7, 0 .L268: 1437 read sym; ! skip quote call READSYM.6613, 0 mov %i5, %g5 .LVL221: 1438 %finish 1439 %if flipflop >= 0 %start ba,pt %xcc, .L333 cmp %l7, 0 .L269: .LVL222: .L270: bl,a,pn %icc, .L269 lduw [%i3+%lo(SYM.6102)], %l7 1440 glink(strp) = sym<<8 + flipflop sethi %hi(GLINK.6179), %i2 or %i2, %lo(GLINK.6179), %i2 lduw [%i5+8], %g2 sra %g2, 0, %g1 add %g1, %g1, %g3 lduw [%i3+%lo(SYM.6102)], %g1 sll %g1, 8, %g1 add %g1, %l7, %g1 sth %g1, [%i2+%g3] 1441 strp = strp+1 add %g2, 1, %g2 st %g2, [%i5+8] .LVL225: 1442 flipflop = -1 mov -1, %i1 1443 %else ba,pt %xcc, .L270 mov %i1, %l7 .LVL226: .L319: 1444 flipflop = sym 1445 %finish 1446 k = k+1 add %i4, 1, %i4 .LVL223: 1447 lines = text line %and abandon(7) %if k > 255; ! too many chars cmp %i4, 255 bg,pn %icc, .L319 lduw [%l0+%lo(TEXTLINE.6095)], %g1 .L265: 1448 %repeat sethi %hi(LINES.6094), %l1 st %g1, [%l1+%lo(LINES.6094)] ba,pt %xcc, .L265 sethi %hi(TEXTLINE.6095), %l0 .LVL231: .L315: 1449 %if flipflop >=0 %start; ! tail-end charlie ldx [%i5], %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 7, %o0 .LVL227: ba,pt %xcc, .L265 nop .L267: bl,a,pn %icc, .L342 lduh [%i2+%l2], %g1 1450 glink(strp) = flipflop lduw [%i5+8], %g1 sra %g1, 0, %g2 add %g2, %g2, %g2 sth %l7, [%i2+%g2] 1451 strp = strp+1 add %g1, 1, %g1 st %g1, [%i5+8] .L272: 1452 %finish 1453 glink(l) = glink(l)!k; ! plug in length ldsw [%i5+8], %l2 ba,pt %xcc, .L263 add %l2, %l2, %l2 .LVL219: .L320: .LBB341: .LBB342: call _imp_nextsymbol, 0 nop .LVL220: .LBE342: .LBE341: lduh [%i2+%l2], %g1 .L342: or %i4, %g1, %g1 sth %g1, [%i2+%l2] 1454 1455 quote = 0; cont = ' '; read sym st %g0, [%l3] 1456 code atom(target) mov 32, %g1 st %g1, [%l4] mov %i5, %g5 call CODEATOM.6654, 0 mov %i0, %o0 .LVL229: 1457 %return %unless atom1 = 48 %and sym = squote; ! fold "???"."+++" call READSYM.6613, 0 mov %i5, %g5 .LVL228: sethi %hi(ATOM1.6085), %g1 lduw [%g1+%lo(ATOM1.6085)], %g1 cmp %g1, 48 bne,pn %icc, .L236 sethi %hi(SYM.6102), %g1 1458 %repeat lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 34 bne,pn %icc, .L236 nop .LVL230: .L263: .L264: 1459 1460 %routine get(%integer limit) .LVL105: save %sp, -176, %sp .LVL106: mov %g5, %i5 .LVL107: 1461 %integer s, shift 1462 shift = 0 xor %g1, 2, %g2 cmp %g0, %g2 subx %g0, -1, %i3 cmp %g1, 8 move %icc, 3, %i3 .L119: .L117: .L120: .L121: .L122: .LVL108: 1463 %if base # 10 %start lduw [%g5+16], %g1 cmp %g1, 10 be,pn %icc, .L122 mov 0, %i3 1464 %if base = 16 %start cmp %g1, 16 be,pn %icc, .L122 mov 4, %i3 .L118: 1465 shift = 4 1466 %finish %else %start 1467 %if base = 8 %start 1468 shift = 3 1469 %finish %else %start 1470 %if base = 2 %start 1471 shift = 1 1472 %finish 1473 %finish 1474 %finish 1475 %finish 1476 n = 0 st %g0, [%i5+12] 1477 %cycle 1478 %if symtype = -1 %start; ! digit sethi %hi(SYMTYPE.6103), %i1 lduw [%i1+%lo(SYMTYPE.6103)], %g1 cmp %g1, -1 be,pn %icc, .L127 add %g2, -48, %g2 .L124: 1479 s = sym-'0' lduw [%i4+%lo(SYM.6102)], %g2 1480 %finish %else %start 1481 %if symtype < 0 %start; ! letter cmp %g1, 0 bge,pn %icc, .L139 lduw [%i4+%lo(SYM.6102)], %g2 1482 s = sym-'A'+10 sethi %hi(SYM.6102), %i4 add %g2, -55, %g2 .LVL112: .L125: .L127: 1483 %finish %else %start 1484 %return 1485 %finish 1486 %finish 1487 %return %if s >= limit cmp %g2, %i0 bge,pn %icc, .L139 nop .L128: 1488 pt = pt+1; glink(pt) = sym lduw [%i5+8], %g1 add %g1, 1, %g1 st %g1, [%i5+8] 1489 %if base = 10 %start; ! check overflow sethi %hi(GLINK.6179), %i2 or %i2, %lo(GLINK.6179), %i2 sra %g1, 0, %g1 add %g1, %g1, %g1 lduw [%i4+%lo(SYM.6102)], %g3 sth %g3, [%i2+%g1] lduw [%i5+16], %g1 cmp %g1, 10 be,a,pn %icc, .L137 lduw [%i5+12], %g1 .L129: .L131: 1490 %if n >= max int %and (s > max dig %or n > max int) %start sethi %hi(214748160), %l0 or %l0, 203, %l1 cmp %g1, %l1 ble,pt %icc, .L138 cmp %i3, 0 1491 !too big for an integer, cmp %g2, 7 mov 0, %g1 movle %icc, 1, %g1 1492 !so call it a real or %l0, 204, %l0 cmp %g1, %l0 mov 0, %g3 movle %icc, 1, %g3 andcc %g3, %g1, %g0 bne,pn %icc, .L138 cmp %i3, 0 .L130: 1493 base = 0; type = real; n = 0 st %g0, [%i5+16] 1494 %finish sethi %hi(TYPE.6088), %l3 ba,pt %xcc, .L123 mov 2, %l2 .LVL109: .L137: st %l2, [%l3+%lo(TYPE.6088)] 1495 %finish ba,pt %xcc, .L138 st %g0, [%i5+12] .L132: 1496 %if shift = 0 %start cmp %i3, 0 .L138: bne,pt %icc, .L132 lduw [%i5+12], %g1 1497 n = n*base+s lduw [%i5+16], %g3 mulx %g1, %g3, %g1 add %g1, %g2, %g2 .LVL113: 1498 %finish %else %start ba,pt %xcc, .L133 st %g2, [%i5+12] .L126: .L139: 1499 n = n<= lit max mov 93, %g2 sethi %hi(ATOM2.6086), %g1 st %g2, [%g1+%lo(ATOM2.6086)] cmp %g1, 49 bg,pn %icc, .L315 st %g2, [%g3+%lo(MAPGG.6124)] .L274: 1509 pt = strp; mul = 0 sethi %hi(TYPE.6088), %g1 mov 1, %g3 st %g3, [%g1+%lo(TYPE.6088)] lduw [%i5+8], %g1 .L334: st %g1, [%fp+2015] .LVL202: ldx [%i5], %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 3, %o0 .LVL232: ba,pt %xcc, .L334 lduw [%i5+8], %g1 .LVL233: .L321: .L278: 1510 %cycle sethi %hi(LP.6160), %g1 lduw [%g1+%lo(LP.6160)], %g1 sethi %hi(SUBATOM.6087), %g3 st %g1, [%g3+%lo(SUBATOM.6087)] 1511 get(base) add %fp, 2007, %g5 call GET.6791, 0 ldsw [%fp+2023], %o0 .LVL235: 1512 %exit %unless sym = '_' %and base # 0 %and pend quote = 0; ! change of base sethi %hi(SYM.6102), %i3 lduw [%i3+%lo(SYM.6102)], %g1 cmp %g1, 95 bne,pn %icc, .L279 cmp %i1, 0 1513 pt = pt+1; glink(pt) = '_' add %g1, 1, %g1 st %g1, [%fp+2015] lduw [%fp+2023], %g1 cmp %g0, %g1 addx %g0, 0, %g1 1514 read sym cmp %g0, %i1 subx %g0, -1, %i2 sethi %hi(GLINK.6179), %i4 or %i4, %lo(GLINK.6179), %i4 ba,pt %xcc, .L275 mov 95, %i0 .LVL203: .L254: sra %g1, 0, %g1 add %g1, %g1, %g1 sth %i0, [%i4+%g1] call READSYM.6613, 0 mov %i5, %g5 .LVL234: andcc %g1, %i2, %g0 bne,pt %icc, .L321 lduw [%fp+2015], %g1 1515 base = n lduw [%fp+2019], %g1 st %g1, [%fp+2023] .L275: 1516 %repeat 1517 1518 %if pend quote # 0 %start cmp %i1, 0 be,pt %icc, .L343 sethi %hi(TYPE.6088), %g1 .LVL236: .L256: .L257: be,a,pt %icc, .L344 sethi %hi(SYM.6102), %g1 1519 ->err %if sym # cquote cmp %g1, 39 bne,pn %icc, .L345 sethi %hi(ATOM1.6085), %g2 .L281: 1520 readsym call READSYM.6613, 0 mov %i5, %g5 .LVL238: .L280: 1521 %finish 1522 %if sym = '.' %start; ! a real constant sethi %hi(SYM.6102), %g1 .L344: lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 46 be,pn %icc, .L322 lduw [%fp+2015], %g1 .L282: 1523 pt = pt+1; glink(pt) = '.' add %g1, 1, %g1 st %g1, [%fp+2015] 1524 read sym sra %g1, 0, %g1 add %g1, %g1, %g1 sethi %hi(GLINK.6179), %g2 or %g2, %lo(GLINK.6179), %g2 mov 46, %g3 sth %g3, [%g2+%g1] call READSYM.6613, 0 mov %i5, %g5 .LVL239: 1525 type = real; n = base; base = 0; get(n) sethi %hi(TYPE.6088), %g1 mov 2, %g2 st %g2, [%g1+%lo(TYPE.6088)] 1526 %finish lduw [%fp+2023], %o0 st %o0, [%fp+2019] 1527 st %g0, [%fp+2023] 1528 %if sym = '@' %start; ! an exponent sethi %hi(SYM.6102), %g1 .L335: lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 64 be,pn %icc, .L323 sethi %hi(TYPE.6088), %g1 .L283: .L343: add %fp, 2007, %g5 call GET.6791, 0 sra %o0, 0, %o0 .LVL240: ba,pt %xcc, .L335 sethi %hi(SYM.6102), %g1 .L323: 1529 pt = pt+1; glink(pt) = '@'; k = pt lduw [%fp+2015], %i4 add %i4, 1, %g1 st %g1, [%fp+2015] 1530 readsym sra %g1, 0, %g1 add %g1, %g1, %g1 sethi %hi(GLINK.6179), %g2 or %g2, %lo(GLINK.6179), %g2 mov 64, %g3 sth %g3, [%g2+%g1] .LVL241: call READSYM.6613, 0 mov %i5, %g5 .LVL242: 1531 type = integer; base = 10 sethi %hi(TYPE.6088), %g1 mov 1, %g2 st %g2, [%g1+%lo(TYPE.6088)] 1532 %if sym = '-' %start mov 10, %g1 st %g1, [%fp+2023] sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 45 be,pn %icc, .L324 add %fp, 2007, %g5 .L284: 1533 read sym; get(10); n = -n call READSYM.6613, 0 mov %i5, %g5 .LVL246: 1534 %finish %else %start add %fp, 2007, %g5 call GET.6791, 0 mov 10, %o0 .LVL247: ba,pt %xcc, .L285 st %g1, [%fp+2019] .LVL248: .L237: 1535 get(10) call GET.6791, 0 mov 10, %o0 .LVL243: .L285: lduw [%fp+2019], %g1 sub %g0, %g1, %g1 1536 %finish 1537 pt = k+1; glink(pt) = lp; litpool(lp) = n; lp = lp+1 add %i4, 2, %g1 st %g1, [%fp+2015] 1538 atom1 = error+10 %if base = 0 sethi %hi(LP.6160), %g4 lduw [%g4+%lo(LP.6160)], %g2 sra %g1, 0, %g1 add %g1, %g1, %g1 sethi %hi(GLINK.6179), %g3 or %g3, %lo(GLINK.6179), %g3 sth %g2, [%g3+%g1] lduw [%fp+2023], %g1 cmp %g1, 0 bne,pt %icc, .L346 sethi %hi(TYPE.6088), %g1 1539 type = real; ! exponents force the type ldx [%i5], %g1 ldx [%g1+8], %g5 sra %g2, 0, %g1 mov 65, %g3 sllx %g3, 6, %g3 add %g1, %g3, %g1 sllx %g1, 2, %g1 lduw [%fp+2019], %g3 st %g3, [%g5+%g1] sethi %hi(ATOM1.6085), %g2 sethi %hi(32768), %g1 or %g1, 10, %g1 st %g1, [%g2+%lo(ATOM1.6085)] .L286: sethi %hi(TYPE.6088), %g1 .L346: mov 2, %g2 st %g2, [%g1+%lo(TYPE.6088)] .LVL244: .L287: 1540 %finish add %g2, 1, %g2 st %g2, [%g4+%lo(LP.6160)] 1541 1542 %if type = real %start lduw [%g1+%lo(TYPE.6088)], %g1 cmp %g1, 2 be,pn %icc, .L287 sethi %hi(LP.6160), %g4 .L288: 1543 glink(strp) = pt-strp; ! store the length (difference) lduw [%fp+2015], %g2 lduw [%i5+8], %g1 sra %g1, 0, %g3 add %g3, %g3, %g3 sub %g2, %g1, %g5 sethi %hi(GLINK.6179), %g4 or %g4, %lo(GLINK.6179), %g4 sth %g5, [%g4+%g3] 1544 subatom = (strp)!16_2000; strp = pt+1 sethi %hi(8192), %g3 or %g1, %g3, %g1 sethi %hi(SUBATOM.6087), %g3 st %g1, [%g3+%lo(SUBATOM.6087)] 1545 %finish %else %start add %g2, 1, %g2 ba,pt %xcc, .L236 st %g2, [%i5+8] .LVL245: .L324: 1546 litpool(lp) = n lduw [%g4+%lo(LP.6160)], %g2 ldx [%i5], %g1 ldx [%g1+8], %g5 sra %g2, 0, %g1 mov 65, %g3 sllx %g3, 6, %g3 add %g1, %g3, %g1 sllx %g1, 2, %g1 lduw [%fp+2019], %g3 st %g3, [%g5+%g1] 1547 lp = lp+1 add %g2, 1, %g2 ba,pt %xcc, .L236 st %g2, [%g4+%lo(LP.6160)] .L322: 1548 %finish 1549 %return 1550 1551 name: atom1 = 0 %and %return %if 27 <= target %and target <= 41 1552 hash value = 0 ldx [%i5], %g1 ldx [%g1+8], %g3 sllx %g2, 4, %g1 st %g0, [%g3+%g1] 1553 add %i0, -27, %g1 cmp %g1, 14 bleu,pn %icc, .L325 mov 1565, %g2 .L289: 1554 ! ABD changed to remove dependency on direct addressing sethi %hi(ATOM1.6085), %g1 1555 dp = dmax+1 sethi %hi(DMAX.6130), %g1 lduw [%g1+%lo(DMAX.6130)], %l1 add %l1, 1, %g3 sethi %hi(DP.6147), %g1 st %g3, [%g1+%lo(DP.6147)] .LVL249: ba,pt %xcc, .L236 st %g0, [%g1+%lo(ATOM1.6085)] .LVL256: .L326: 1556 dbase = dp 1557 n = 0 st %g0, [%fp+2019] 1558 dict(dp) = 0 ldx [%i5], %g1 ldx [%g1+8], %g3 .LVL250: sra %l1, 0, %g1 sllx %g2, 2, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 add %g3, %g1, %g1 st %g0, [%g1+4] 1559 %cycle 1560 hash value = hash value+(hash value+sym); ! is this good enough? sethi %hi(SYM.6102), %i1 mov 1565, %l0 sllx %l0, 4, %i4 lduw [%i1+%lo(SYM.6102)], %g3 .L348: ldx [%i5], %g1 ldx [%g1+8], %g2 lduw [%g2+%i4], %g4 add %g3, %g4, %g1 add %g1, %g4, %g1 st %g1, [%g2+%i4] 1561 dict(dp) = dict(dp) ! (sym << 8); sethi %hi(DP.6147), %i3 lduw [%i3+%lo(DP.6147)], %g1 ldx [%i5], %g5 sra %g1, 0, %g2 sllx %g2, 2, %g4 ldx [%g5+8], %g2 add %g2, %g4, %g2 sll %g3, 8, %g3 lduw [%g2+%i4], %g4 or %g4, %g3, %g3 st %g3, [%g2+%i4] 1562 n = n+1 lduw [%fp+2019], %g2 add %g2, 1, %g2 st %g2, [%fp+2019] 1563 dp = dp+1 add %g1, 1, %g1 st %g1, [%i3+%lo(DP.6147)] 1564 read sym call READSYM.6613, 0 mov %i5, %g5 .LVL252: 1565 %exit %if symtype >= 0 sethi %hi(SYMTYPE.6103), %i2 lduw [%i2+%lo(SYMTYPE.6103)], %g1 cmp %g1, 0 bge,pn %icc, .L347 sethi %hi(SYM.6102), %g1 .L293: 1566 dict(dp) = sym; mov %g2, %l0 .LVL251: .L290: .L291: ldx [%i5], %g1 ldx [%g1+8], %g2 lduw [%i3+%lo(DP.6147)], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 add %g1, %l0, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 lduw [%i1+%lo(SYM.6102)], %g2 st %g2, [%g1+4] 1567 n = n+1 lduw [%fp+2019], %g1 add %g1, 1, %g1 st %g1, [%fp+2019] 1568 read sym call READSYM.6613, 0 mov %i5, %g5 .LVL253: 1569 %exit %if symtype >= 0 lduw [%i2+%lo(SYMTYPE.6103)], %g1 cmp %g1, 0 bl,pt %icc, .L348 lduw [%i1+%lo(SYM.6102)], %g3 .L292: 1570 %repeat 1571 %if sym = cquote %start sethi %hi(SYM.6102), %g1 .L347: lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 39 be,pn %icc, .L326 sra %l1, 0, %g1 .L294: 1572 pend quote = 100 1573 ->symbols %if hash value = 'M' ldx [%i5], %g1 ldx [%g1+8], %g2 mov 1565, %g1 sllx %g1, 4, %g1 lduw [%g2+%g1], %g1 cmp %g1, 77 be,pt %icc, .L251 mov 100, %i4 .L295: 1574 read sym call READSYM.6613, 0 mov %i5, %g5 .LVL257: 1575 %if hash value = 'X' %then base = 16 %and ->bxk ldx [%i5], %g1 ldx [%g1+8], %g2 mov 1565, %g1 sllx %g1, 4, %g1 lduw [%g2+%g1], %g1 cmp %g1, 88 be,pn %icc, .L330 and %g1, -5, %g2 .L296: 1576 %if hash value = 'K' %or hash value = 'O' %then base = 8 %and ->bxk mov 16, %g1 st %g1, [%fp+2023] 1577 %if hash value = 'B' %then base = 2 %and ->bxk cmp %g2, 75 bne,pn %icc, .L297 mov 100, %i1 .L298: ba,pt %xcc, .L273 mov 100, %i1 .L297: cmp %g1, 66 bne,pt %icc, .L345 sethi %hi(ATOM1.6085), %g2 1578 ->err mov 2, %g1 st %g1, [%fp+2023] 1579 %finish mov 8, %g1 ba,pt %xcc, .L273 mov 100, %i1 .LVL258: .L327: 1580 dict(dbase) = dict(dbase)!n ldx [%i5], %g2 sllx %g1, 2, %g1 ldx [%g2+8], %g2 add %g2, %g1, %g2 lduw [%fp+2019], %g4 sethi %hi(6411264), %g1 srlx %g1, 8, %g1 lduw [%g2+%g1], %g3 or %g3, %g4, %g3 ba,pt %xcc, .L273 st %g1, [%fp+2023] .L330: 1581 %if n&1 = 0 %then dp = dp+1 andcc %g4, 1, %g0 bne,pt %xcc, .L299 st %g3, [%g2+%g1] 1582 abandon(8) %if dp >= dmin sethi %hi(DP.6147), %g2 lduw [%g2+%lo(DP.6147)], %g1 add %g1, 1, %g1 st %g1, [%g2+%lo(DP.6147)] .L299: ldx [%i5], %g1 sethi %hi(DP.6147), %g2 lduw [%g2+%lo(DP.6147)], %g3 lduw [%g1+52], %g2 cmp %g3, %g2 bge,a,pn %icc, .L327 ldx [%g1+8], %g5 .L300: 1583 call ABANDON.6232, 0 mov 8, %o0 .LVL259: 1584 atom2 = 90; ! ident sethi %hi(ATOM2.6086), %g1 .L336: mov 90, %g2 st %g2, [%g1+%lo(ATOM2.6086)] ba,pt %xcc, .L336 sethi %hi(ATOM2.6086), %g1 .L328: 1585 %if last1 = 0 %and sym = ':' %start; ! label sethi %hi(LAST1.6116), %g1 lduw [%g1+%lo(LAST1.6116)], %g1 cmp %g1, 0 bne,pt %icc, .L301 cmp %g1, 54 1586 limit = local; lookup(lab); %return sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 58 be,pn %icc, .L328 sethi %hi(LOCAL.6152), %g1 .L302: lduw [%g1+%lo(LOCAL.6152)], %g2 sethi %hi(LIMIT.6142), %g1 st %g2, [%g1+%lo(LIMIT.6142)] 1587 %finish add %fp, 2007, %g5 call LOOKUP.6667, 0 mov 3, %o0 .LVL260: 1588 %if last1 = jump %start; ! ->label ba,pt %xcc, .L236 nop .L301: bne,pt %icc, .L349 sethi %hi(DECL.6108), %g1 1589 limit = local; lookup(lab+spec+used bit); %return sethi %hi(LOCAL.6152), %g1 lduw [%g1+%lo(LOCAL.6152)], %g2 sethi %hi(LIMIT.6142), %g1 st %g2, [%g1+%lo(LIMIT.6142)] 1590 %finish add %fp, 2007, %g5 sethi %hi(33688576), %o0 call LOOKUP.6667, 0 srlx %o0, 10, %o0 .LVL261: 1591 %if decl # 0 %and target = 90 %start; ! identifier sethi %hi(DECL.6108), %g1 .L349: lduw [%g1+%lo(DECL.6108)], %o0 cmp %g0, %o0 subx %g0, -1, %g1 ba,pt %xcc, .L236 nop .L329: 1592 search base = fm base xor %i0, 90, %i0 cmp %g0, %i0 addx %g0, 0, %g2 orcc %g2, %g1, %g0 be,pn %icc, .L329 sethi %hi(LIMIT.6142), %g1 .L303: sethi %hi(SEARCHBASE.6154), %i5 sethi %hi(FMBASE.6153), %g1 lduw [%g1+%lo(FMBASE.6153)], %g1 st %g1, [%i5+%lo(SEARCHBASE.6154)] 1593 limit = local; lookup(decl) sethi %hi(LOCAL.6152), %g1 lduw [%g1+%lo(LOCAL.6152)], %g2 sethi %hi(LIMIT.6142), %g1 st %g2, [%g1+%lo(LIMIT.6142)] 1594 search base = 0 add %fp, 2007, %g5 call LOOKUP.6667, 0 sra %o0, 0, %o0 .LVL262: 1595 %finish %else %start ba,pt %xcc, .L236 st %g0, [%i5+%lo(SEARCHBASE.6154)] .LVL263: .L317: 1596 limit = 0; lookup(0) st %g0, [%g1+%lo(LIMIT.6142)] 1597 %finish add %fp, 2007, %g5 call LOOKUP.6667, 0 mov 0, %o0 .LVL254: .L247: .L304: .L305: .L306: .L307: ba,pt %xcc, .L236 nop .LVL255: .L325: 1598 %end ?DA unused 1599 ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L317 nop return %i7+8 nop .LVL214: .L262: .L332: call __stack_chk_fail, 0 nop .LVL264: nop .LFE208: .align 4 .proc 020 GETNEXT.7230: .LFB215: 1600 %integerfn parsed machine code 1601 ! *opcode_?????????? 1602 atom1 = error %and %result=0 %unless symtype = -2; ! starts with letter 1603 flush buffer( 128 ); ! flush if bp >= 128 1604 add char( 'w' ) 1605 %cycle 1606 add char( sym ); read sym 1607 %repeat %until Sym = '_' %or Symtype = 0; ! pull in letters and digits 1608 add char( '_' ) 1609 %if symtype # 0 %start; ! not terminator 1610 read sym 1611 %while symtype # 0 %cycle 1612 %if symtype < 0 %start; ! complex 1613 code atom(0); %result=0 %if atom1&error # 0 1614 %if atom2 = const %and type = integer %start 1615 %if subatom < 0 %then set const(tag(-subatom)_format) %else set const(litpool(subatom)) 1616 %finish %else %if 91 <= atom1 %and atom1 <= 109 %start 1617 %if atom1 = 104 %and Tag(Subatom)_Flags&Closed = 0 %start 1618 This = Subatom; Atom1 = Error+21 1619 %result = 0 1620 %finish 1621 op(' ', tag(subatom)_index) 1622 %finish %else %start 1623 atom1 = error; %result=0 1624 %finish 1625 %finish %else %start 1626 sym = sym!128 %if symtype = 2 {underline with %} 1627 add char( sym ); read sym 1628 %finish 1629 %repeat 1630 %finish 1631 add char( ';' ) 1632 %result=1 1633 %end 1634 1635 cont = ' ' %if gg = 0 sethi %hi(GG.6123), %g1 lduw [%g1+%lo(GG.6123)], %g3 cmp %g3, 0 bne,pt %icc, .L551 sethi %hi(LAST1.6116), %g1 1636 last1 = 0; mapgg = 0 sethi %hi(CONT.6106), %g1 mov 32, %g2 st %g2, [%g1+%lo(CONT.6106)] .L439: sethi %hi(LAST1.6116), %g1 .L551: st %g0, [%g1+%lo(LAST1.6116)] 1637 s = 0; ss = 0; sstype = -1; fdef = 0 sethi %hi(MAPGG.6124), %g1 st %g0, [%g1+%lo(MAPGG.6124)] .LVL347: mov 0, %i4 .LBB494: .LBB495: 1638 fm base = 0 sethi %hi(SS.6132), %g1 st %g0, [%g1+%lo(SS.6132)] sethi %hi(FMBASE.6153), %g1 st %g0, [%g1+%lo(FMBASE.6153)] 1639 app = 0 sethi %hi(SSTYPE.6139), %g1 mov -1, %g2 st %g2, [%g1+%lo(SSTYPE.6139)] sethi %hi(APP.6089), %g1 st %g0, [%g1+%lo(APP.6089)] 1640 sethi %hi(FDEF.6125), %g1 st %g0, [%g1+%lo(FDEF.6125)] 1641 ! deal with alignment following an error in one statement 1642 ! of several on a line 1643 margin = column; ! start of statement sethi %hi(COLUMN.6099), %g1 lduw [%g1+%lo(COLUMN.6099)], %g2 sethi %hi(MARGIN.6096), %g1 st %g2, [%g1+%lo(MARGIN.6096)] 1644 pos = 0 sethi %hi(POS.6150), %g1 st %g0, [%g1+%lo(POS.6150)] 1645 strp = gmax+1; lp = 0 sethi %hi(7168), %g1 xor %g1, -544, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 sethi %hi(GMAX.6174), %g2 lduw [%g2+%lo(GMAX.6174)], %g2 add %g2, 1, %g2 st %g2, [%g1+8] 1646 tbase = tstart; ! ?????????????? sethi %hi(LP.6160), %g1 st %g0, [%g1+%lo(LP.6160)] lduw [%i1+72], %g1 st %g1, [%i1+68] 1647 local = tbase sethi %hi(LOCAL.6152), %g2 1648 1649 %if gg = 0 %or ocount >= 0 %start; ! data or not continuation(z) cmp %g3, 0 be,pt %icc, .L440 st %g1, [%g2+%lo(LOCAL.6152)] 1650 again: %while sym type = 0 %cycle; ! skip redundant terminators sethi %hi(OCOUNT.6141), %g1 lduw [%g1+%lo(OCOUNT.6141)], %g1 cmp %g1, 0 bl,pn %icc, .L552 sethi %hi(DECL.6108), %g1 .L440: 1651 c = cont lduw [%i5+%lo(CONT.6106)], %i2 .LVL351: 1652 cont = ' '; cont = '+' %if ocount >= 0 sethi %hi(SYMTYPE.6103), %i0 lduw [%i0+%lo(SYMTYPE.6103)], %g1 cmp %g1, 0 bne,pt %icc, .L443 lduw [%i3+%lo(SYM.6102)], %g1 mov 32, %g1 st %g1, [%i5+%lo(CONT.6106)] 1653 read sym ba,pt %xcc, .L442 sethi %hi(OCOUNT.6141), %l1 .LVL348: .L444: call READSYM.6613, 0 mov %i4, %g5 .LVL349: lduw [%l1+%lo(OCOUNT.6141)], %g1 cmp %g1, 0 bl,pn %icc, .L444 mov 43, %g1 1654 cont = c st %i2, [%i5+%lo(CONT.6106)] .LVL350: .L442: ba,pt %xcc, .L444 st %g1, [%i5+%lo(CONT.6106)] .LVL352: .L443: 1655 %repeat 1656 ->skip %if sym = '!'; ! comment sethi %hi(SYM.6102), %i3 cmp %g1, 33 be,pn %icc, .L446 mov -1, %g1 .L447: 1657 this = -1 sethi %hi(THIS.6126), %l3 st %g1, [%l3+%lo(THIS.6126)] 1658 code atom(0) mov %i4, %g5 call CODEATOM.6654, 0 mov 0, %o0 .LVL353: 1659 %if atom1 = comment %start sethi %hi(ATOM1.6085), %l2 lduw [%l2+%lo(ATOM1.6085)], %g1 cmp %g1, 22 bne,pn %icc, .L450 sethi %hi(DECL.6108), %g1 .L446: 1660 skip: quote = 1 1661 c = cont sethi %hi(QUOTE.6104), %l0 sethi %hi(CONT.6106), %i5 mov 1, %g1 st %g1, [%l0+%lo(QUOTE.6104)] .LVL354: 1662 read sym %and cont = c %while sym # nl; ! skip to end of line 1663 quote = 0; symtype = 0 lduw [%i3+%lo(SYM.6102)], %g1 cmp %g1, 10 be,pn %icc, .L448 lduw [%i5+%lo(CONT.6106)], %i2 .L449: lduw [%i3+%lo(SYM.6102)], %g1 cmp %g1, 10 bne,pt %icc, .L449 nop .L448: st %g0, [%l0+%lo(QUOTE.6104)] 1664 ->again sethi %hi(7168), %i4 xor %i4, -544, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 call READSYM.6613, 0 mov %i4, %g5 .LVL355: ba,pt %xcc, .L442 st %g0, [%i0+%lo(SYMTYPE.6103)] .L441: .LVL356: .L450: .L552: 1665 %finish st %i2, [%i5+%lo(CONT.6106)] .LDL20: 1666 %finish 1667 decl = 0; mark = 0 st %g0, [%g1+%lo(DECL.6108)] .LVL357: 1668 gentype = 0; force = 0 sethi %hi(GENTYPE.6117), %g1 st %g0, [%g1+%lo(GENTYPE.6117)] 1669 dim = 0; prot err = 0 sethi %hi(FORCE.6121), %g1 st %g0, [%g1+%lo(FORCE.6121)] sethi %hi(DIM.6109), %g1 st %g0, [%g1+%lo(DIM.6109)] .LVL358: 1670 node = 0; nmax = 0; nmin = rec size+1 sethi %hi(7168), %g1 xor %g1, -564, %g1 add %fp, 2047, %g2 st %g0, [%g2+%g1] 1671 order = 1; gmin = max grammar+1 sethi %hi(NMAX.6128), %g1 st %g0, [%g1+%lo(NMAX.6128)] sethi %hi(ORDER.6144), %g1 mov 1, %g2 st %g2, [%g1+%lo(ORDER.6144)] 1672 sstype = 0 %and ->more %if gg # 0; ! continuation sethi %hi(NMIN.6127), %g1 mov 521, %g2 st %g2, [%g1+%lo(NMIN.6127)] sethi %hi(GMIN.6170), %g1 mov 1721, %g2 st %g2, [%g1+%lo(GMIN.6170)] sethi %hi(GG.6123), %g1 lduw [%g1+%lo(GG.6123)], %g1 cmp %g1, 0 be,pt %icc, .L451 sethi %hi(PTYPE.6118), %g1 1673 ptype = 0; spec given = 0 sethi %hi(SSTYPE.6139), %g1 st %g0, [%g1+%lo(SSTYPE.6139)] st %g0, [%g1+%lo(PTYPE.6118)] 1674 sethi %hi(SPECGIVEN.6110), %g1 st %g0, [%g1+%lo(SPECGIVEN.6110)] 1675 stats = stats+1; op('O', lines) %if perm = 0 sethi %hi(STATS.6100), %g2 lduw [%g2+%lo(STATS.6100)], %g1 add %g1, 1, %g1 st %g1, [%g2+%lo(STATS.6100)] 1676 sethi %hi(PERM.6137), %g1 lduw [%g1+%lo(PERM.6137)], %g1 cmp %g1, 0 be,a,pn %icc, .L527 ldx [%i1+8], %g5 .L453: .LVL361: .L492: 1677 ->fail1 %if atom1&error # 0; ! first atom faulty sethi %hi(LINES.6094), %g1 ldsw [%g1+%lo(LINES.6094)], %o1 call OP.6199, 0 mov 79, %o0 .LVL426: 1678 1679 %if escape class # 0 %start; ! enter the hard way after 1680 g = imp phrase; sstype = -1; ->a3 1681 %finish 1682 1683 g = initial(atom1); ! pick up entry point 1684 %if g = 0 %start; ! invalid first atom 1685 g = initial(0); sstype = 0; ->a3; ! declarator? 1686 %finish 1687 %if g < 0 %start; ! phrase imp 1688 g = g&255 1689 nmax = 1 1690 ar(1)_class = 0; ar(1)_link = 0; ar(1)_sub = imp phrase 1691 %finish 1692 1693 gg = gram(g); class = gg&255; sstype = gg>>12&3-1 1694 ->a1 1695 1696 act(194): ptype = type; papp = app; pformat = format; ->more 1697 act(196): k =g+1; ->a610 1698 act(188): k = ar(nmax)_sub+1 1699 a610: papp = glink(k) 1700 k = gram(k) 1701 ->more %if k = 0; ! %name 1702 ptype = k&7; pformat = k>>3 1703 act(183): k = type; gentype = k %if gentype = 0 %or k = real 1704 %if pformat < 0 %start; ! general type 1705 app = papp; format = pformat 1706 k = real %if ptype = real %and type = integer 1707 k = force %and force = 0 %if force # 0 1708 %finish 1709 ->fail2 %unless papp = app %and (ptype = k %or ptype = 0) 1710 ->more %if pformat=format %or pformat = 0 %or format = 0 1711 ->fail2 1712 act(197): arp == ar(nmin) 1713 k = arp_sub 1714 ->fail3 %unless block form = k&15 1715 arp_sub = k>>4 1716 1717 type = block type 1718 ptype = block type; pformat = block fm; papp = app 1719 pformat = -1 %if ptype # record 1720 ->more 1721 act(195): ->Fail2 %if Type # 0 %and Type # Integer %and Type # Real 1722 arp == ar(nmin) 1723 k = arp_sub 1724 arp_sub = k>>2 1725 k = k&3 1726 ! 1 = check integer 1727 ! 2 = check real 1728 ! 3 = check real + int 1729 ->more %if k = 0; ! 0 = no action 1730 %if k = 1 %start 1731 force = integer 1732 ->more %if type = integer %or type = 0 1733 ->fail2 1734 %finish 1735 ->fail2 %unless ptype = real %or ptype = 0; ! {or added?} 1736 force = integer %if k = 3 1737 ->more 1738 act(198): ! %OTHER 1739 k = gg>>8&15 1740 %if k = 0 %start; ! restore atom 1741 atom1 = last1 1742 ->more 1743 %finish 1744 %if k = 1 %start; ! test string 1745 ->fail2 %unless type = stringv 1746 ->more 1747 %finish 1748 %if k = 2 %start; ! {fault record comparisons} 1749 ->fail2 %if type = record 1750 ->more 1751 %finish 1752 %if k = 3 %start; ! check OWN variable coming 1753 code atom(0) 1754 ->A7 %if atom flags&own bit = 0 1755 ->more 1756 %finish 1757 for warn = pos1 %if x <= local; ! %for TEST 1758 ->more 1759 paction(1): %if type = record %then g = phrase(242) %else pformat = -1; ->a3 1760 paction(2): ptype = real; pformat = -1; ->a3 1761 paction(3): ptype = stringv; pformat = -1; ->a3 1762 paction(4): ptype = integer; pformat = -1; ->a3 1763 paction(5): ->a3 %if ptype = integer 1764 g = phrase(212) %and pformat=-1 %if ptype = real 1765 g = phrase(213) %if ptype = stringv 1766 ->a3 1767 paction(6): ptype = gram(ar(nmax)_sub+1)&7; pformat = -1; ->a3 1768 paction(7): ptype=real %if ptype = integer; pformat = -1; ->a3 1769 1770 a1: last1 = class; atom1 = 0; s = subatom 1771 a2: %if gg&trans bit = 0 %start; ! insert into analysis record st %g1, [%g2+%lo(LAST1.6116)] 1772 z == node sethi %hi(ATOM1.6085), %g1 st %g0, [%g1+%lo(ATOM1.6085)] sethi %hi(GG.6123), %g1 lduw [%g1+%lo(GG.6123)], %g2 andcc %g2, 1, %g0 be,pn %xcc, .L529 xor %l2, -564, %g1 .LVL429: .L457: xor %l2, -564, %g1 add %fp, 2047, %g2 xor %l2, -564, %g1 ba,pt %xcc, .L513 add %g2, %g1, %g1 .LVL539: .L528: 1773 %cycle; ! insert cell in order sethi %hi(SUBATOM.6087), %g1 lduw [%g1+%lo(SUBATOM.6087)], %i4 .LVL428: .L456: 1774 k = z add %fp, 2047, %g3 lduw [%g3+%g1], %g1 .LVL431: sra %g3, 0, %g1 .LVL434: sllx %g1, 5, %g1 .LVL435: add %g4, %g1, %g1 lduw [%g1+8], %g1 .LVL436: 1775 %exit %if gg&order bits = 0 %or k = 0 1776 gg = gg-order bit; z == ar(k)_link cmp %g1, 0 be,a,pn %icc, .L458 sethi %hi(MAPGG.6124), %g1 cmp %g1, 0 bne,pt %icc, .L459 add %g2, -4096, %g2 1777 %repeat ldx [%i1+8], %g4 .LVL432: .L459: add %g1, -1, %g3 .LDL25: .LVL433: sra %g3, 0, %g1 .LVL437: sllx %g1, 5, %g1 .LVL438: add %g1, 8, %g1 .LVL439: .LDL26: .LDL27: sethi %hi(GG.6123), %g3 .LVL440: st %g2, [%g3+%lo(GG.6123)] 1778 gg = map gg %if map gg # 0 %and gg&255 = var sethi %hi(MAPGG.6124), %g3 lduw [%g3+%lo(MAPGG.6124)], %g3 cmp %g3, 0 be,pt %icc, .L460 add %g4, %g1, %g1 lduw [%g1+%lo(MAPGG.6124)], %g3 .LVL538: cmp %g3, 0 be,pt %icc, .L460 add %g2, %g1, %g1 1779 nmin = nmin-1; ->fail0 %if nmin = nmax andcc %g2, 1, %g0 bne,pt %xcc, .L554 sethi %hi(NMIN.6127), %g4 .L513: sethi %hi(NMIN.6127), %g4 .L554: lduw [%g4+%lo(NMIN.6127)], %g2 add %g2, -1, %g3 st %g3, [%g4+%lo(NMIN.6127)] 1780 z = nmin sethi %hi(GG.6123), %g2 st %g3, [%g2+%lo(GG.6123)] .L460: sethi %hi(NMAX.6128), %g4 lduw [%g4+%lo(NMAX.6128)], %g4 cmp %g3, %g4 be,a,pn %icc, .L515 sethi %hi(32768), %i3 .L462: st %g3, [%g1] .LVL441: sra %g2, 0, %g1 sllx %g1, 5, %g1 ldx [%i1+8], %g2 .LVL442: add %g2, %g1, %g1 1781 arp == ar(nmin) 1782 arp_sub = s; arp_class = (gg&255)!mark st %i4, [%g1-60] .LVL443: 1783 arp_link = k sethi %hi(GG.6123), %g2 .LVL444: ldub [%g2+%lo(GG.6123+3)], %g2 or %g2, %l6, %l6 .LVL445: st %l6, [%g1-64] ba,pt %xcc, .L457 st %g0, [%g1-56] .LVL446: .L532: .LBB561: .LBB520: .LBB500: .LBB501: call _imp_newline, 0 nop .LVL447: .LBE501: .LBE500: .LBE520: .LBE561: 1784 %finish 1785 mark = 0; map gg = 0 1786 more: g = glink(g); ! chain down the grammar sethi %hi(MAPGG.6124), %g1 ba,pt %xcc, .L452 st %g0, [%g1+%lo(MAPGG.6124)] .LVL430: .L529: 1787 paction(0): sethi %hi(G.6122), %g3 ldsw [%g3+%lo(G.6122)], %g1 add %g1, %g1, %g1 sethi %hi(GLINK.6179), %g2 or %g2, %lo(GLINK.6179), %g2 ldsh [%g2+%g1], %g1 st %g1, [%g3+%lo(G.6122)] mov 0, %l6 1788 a3: gg = gram(g); class = gg&255 1789 trace analysis %if diag&1 # 0 sethi %hi(GRAM.6178), %l0 or %l0, %lo(GRAM.6178), %l0 mov %g3, %i2 .LBB525: .LBB519: ldsw [%i2+%lo(G.6122)], %g1 add %g1, %g1, %g1 lduh [%l0+%g1], %g2 ldsh [%l0+%g1], %g3 sethi %hi(GG.6123), %g1 st %g3, [%g1+%lo(GG.6123)] 1790 ->a5 %if class = 0; ! end of phrase and %g2, 0xff, %g1 sethi %hi(CLASS.6083), %g2 st %g1, [%g2+%lo(CLASS.6083)] .LBB564: .LBB523: sethi %hi(CLASS.6083), %g1 lduw [%g1+%lo(CLASS.6083)], %i5 cmp %i5, 0 be,pn %icc, .L468 cmp %i5, 179 .L469: 1791 1792 %if class < actions %start; ! not a phrase or an action bg,pn %icc, .L470 cmp %i5, 129 1793 class = atomic(class) %if class >= figurative ble,pt %icc, .L558 lduw [%g1+%lo(CLASS.6083)], %o0 1794 ->a2 %if class >= manifest sethi %hi(35685376), %l4 srlx %l4, 9, %l4 .LBB524: .LBB518: .LBB496: lduw [%g1+%lo(CLASS.6083)], %o0 .L558: cmp %o0, 119 bg,pn %icc, .L456 sethi %hi(ATOM1.6085), %g1 .L472: ldx [%i1+8], %g1 add %i5, -130, %g2 sra %g2, 0, %g2 add %g1, %g2, %g1 ldub [%g1+%l4], %g2 sethi %hi(CLASS.6083), %g1 ba,pt %xcc, .L563 st %g2, [%g1+%lo(CLASS.6083)] .L530: 1795 code atom(class) %if atom1 = 0 lduw [%g1+%lo(ATOM1.6085)], %g1 cmp %g1, 0 be,pn %icc, .L530 mov %l1, %g5 .L473: 1796 %if escape class # 0 %start; ! escape to new grammar sethi %hi(ESCAPECLASS.6111), %g1 .L541: lduw [%g1+%lo(ESCAPECLASS.6111)], %g1 cmp %g1, 0 bne,pn %icc, .L531 sethi %hi(CLASS.6083), %g2 .L474: call CODEATOM.6654, 0 sra %o0, 0, %o0 .LVL475: ba,pt %xcc, .L541 sethi %hi(ESCAPECLASS.6111), %g1 .L531: 1797 class = escape class; escape class = 0 st %g1, [%g2+%lo(CLASS.6083)] 1798 g = g+escape sethi %hi(ESCAPECLASS.6111), %g1 st %g0, [%g1+%lo(ESCAPECLASS.6111)] sethi %hi(G.6122), %g2 lduw [%g2+%lo(G.6122)], %g1 sub %g1, -4096, %g1 st %g1, [%g2+%lo(G.6122)] .LDL30: 1799 1800 ! note that following an escape the next item is 1801 ! forced to be transparent! 1802 1803 esc: gg = 0 1804 arp == ar(nmax+1) sethi %hi(GG.6123), %g1 st %g0, [%g1+%lo(GG.6123)] ldx [%i1+8], %g1 .LVL476: 1805 arp_papp = papp; arp_x = x; ->a4 sethi %hi(NMAX.6128), %g2 ldsw [%g2+%lo(NMAX.6128)], %g2 sllx %g2, 5, %g2 add %g1, %g2, %g1 .LVL477: sethi %hi(PAPP.6119), %g2 lduw [%g2+%lo(PAPP.6119)], %g2 st %g2, [%g1+16] 1806 %finish sethi %hi(X.6084), %g2 lduw [%g2+%lo(X.6084)], %g2 st %g2, [%g1+24] .LVL478: .L475: 1807 1808 ->a1 %if class = atom1 %or class = atom2 sethi %hi(CLASS.6083), %g1 lduw [%g1+%lo(CLASS.6083)], %g2 sethi %hi(ATOM1.6085), %g1 lduw [%g1+%lo(ATOM1.6085)], %g1 cmp %g2, %g1 be,a,pn %icc, .L557 sethi %hi(LAST1.6116), %g2 1809 sethi %hi(ATOM2.6086), %g1 lduw [%g1+%lo(ATOM2.6086)], %g1 cmp %g2, %g1 be,pn %icc, .L454 sethi %hi(LAST1.6116), %g2 .L476: .L477: 1810 a7: ->fail1 %if gg >= 0; ! no alternative 1811 g = g+1 sethi %hi(GG.6123), %g1 lduw [%g1+%lo(GG.6123)], %g1 cmp %g1, 0 bge,pn %icc, .L492 lduw [%i2+%lo(G.6122)], %g1 .L478: add %g1, 1, %g1 st %g1, [%i2+%lo(G.6122)] .LVL454: .L463: 1812 ->a3 1813 %finish 1814 1815 %if class >= phrasal %start; ! a phrase cmp %i5, 199 bg,pt %icc, .L561 sethi %hi(NMAX.6128), %g3 .L480: .LVL490: .LDL31: 1816 a4: nmax = nmax+1; ->fail0 %if nmax = nmin 1817 arp == ar(nmax) sethi %hi(NMAX.6128), %g3 .L561: lduw [%g3+%lo(NMAX.6128)], %g1 add %g1, 1, %g2 st %g2, [%g3+%lo(NMAX.6128)] ldx [%i1+8], %g4 .LVL479: sllx %g1, 5, %g1 .LVL480: add %g4, %g1, %g2 .LVL481: 1818 arp_ptype = ptype sethi %hi(NMIN.6127), %g3 lduw [%g3+%lo(NMIN.6127)], %g3 cmp %g2, %g3 be,pn %icc, .L516 sra %g1, 0, %g1 .L481: sethi %hi(PTYPE.6118), %g3 lduw [%g3+%lo(PTYPE.6118)], %g3 st %g3, [%g2+12] 1819 arp_pos = pos1 sethi %hi(POS1.6148), %g3 lduw [%g3+%lo(POS1.6148)], %g3 st %g3, [%g2+28] 1820 arp_pformat = pformat sethi %hi(PFORMAT.6120), %g3 lduw [%g3+%lo(PFORMAT.6120)], %g3 st %g3, [%g2+20] 1821 arp_link = gentype sethi %hi(GENTYPE.6117), %g3 lduw [%g3+%lo(GENTYPE.6117)], %g3 st %g3, [%g2+8] 1822 arp_class = node sethi %hi(7168), %g3 xor %g3, -564, %g3 add %fp, 2047, %g5 lduw [%g5+%g3], %g5 st %g5, [%g4+%g1] 1823 arp_sub = g sethi %hi(G.6122), %g4 lduw [%g4+%lo(G.6122)], %g1 st %g1, [%g2+4] 1824 node = 0 add %fp, 2047, %g1 st %g0, [%g1+%g3] 1825 g = phrase(class) sethi %hi(CLASS.6083), %g1 lduw [%g1+%lo(CLASS.6083)], %g1 add %g1, -200, %g1 sra %g1, 0, %g1 add %g1, %g1, %g1 sethi %hi(PHRASE.6177), %g2 .LVL482: or %g2, %lo(PHRASE.6177), %g2 ldsh [%g2+%g1], %g1 st %g1, [%g4+%lo(G.6122)] 1826 ptype = force %and force = 0 %if force # 0 sethi %hi(FORCE.6121), %g1 lduw [%g1+%lo(FORCE.6121)], %g1 cmp %g1, 0 be,a,pt %icc, .L559 sethi %hi(GENTYPE.6117), %g1 1827 gentype = 0 sethi %hi(PTYPE.6118), %g2 st %g1, [%g2+%lo(PTYPE.6118)] sethi %hi(GENTYPE.6117), %g1 .L559: st %g0, [%g1+%lo(GENTYPE.6117)] .LVL483: 1828 ->paction(gg>>8&15) sethi %hi(FORCE.6121), %g1 st %g0, [%g1+%lo(FORCE.6121)] .L482: sethi %hi(GG.6123), %g1 lduw [%g1+%lo(GG.6123)], %l5 srl %l5, 8, %l5 and %l5, 15, %l5 .LVL484: .L483: 1829 %finish 1830 ->act(class); ! only actions left 1831 1832 a5: ;! reverse links 1833 s = 0 1834 %while node # 0 %cycle 1835 z == ar(node)_link xor %l2, -564, %g1 add %fp, 2047, %g2 lduw [%g2+%g1], %i4 cmp %i4, 0 bne,a,pt %icc, .L562 sra %i4, 0, %g1 cmp %g2, 0 bne,pt %icc, .L517 mov %i4, %i5 xor %l2, -564, %g1 add %fp, 2047, %g2 .LVL497: st %g0, [%g2+%g1] .LVL498: .L486: 1836 k = z; z = s; s = node; node = k mov %g2, %i4 .LVL494: sra %i4, 0, %g1 .L562: sllx %g1, 5, %g2 ldx [%i1+8], %g1 add %g1, %g2, %g1 lduw [%g1-24], %g2 .LVL495: 1837 %repeat st %i5, [%g1-24] .LVL496: .LDL32: .LDL33: 1838 ss = s ba,pt %xcc, .L542 sethi %hi(SS.6132), %g1 .LVL493: .L517: sethi %hi(SS.6132), %g1 .L542: st %i4, [%g1+%lo(SS.6132)] .LDL34: 1839 a6: %if nmax # 0 %start 1840 k = gentype; ! type of phrase sethi %hi(NMAX.6128), %g1 lduw [%g1+%lo(NMAX.6128)], %g1 cmp %g1, 0 be,pn %icc, .L488 add %g1, -1, %g2 .LVL499: 1841 arp == ar(nmax); nmax = nmax-1 ldx [%i1+8], %g3 .LVL500: 1842 node = arp_class sethi %hi(NMAX.6128), %g4 st %g2, [%g4+%lo(NMAX.6128)] sra %g1, 0, %g1 sllx %g1, 5, %g1 add %g3, %g1, %g1 xor %l2, -564, %g4 lduw [%g1-32], %g5 add %fp, 2047, %i5 st %g5, [%i5+%g4] 1843 gentype = arp_link lduw [%g1-24], %g5 sethi %hi(GENTYPE.6117), %g4 st %g5, [%g4+%lo(GENTYPE.6117)] .LVL501: 1844 ptype = arp_ptype lduw [%g1-20], %g5 sethi %hi(PTYPE.6118), %g4 st %g5, [%g4+%lo(PTYPE.6118)] 1845 pformat = arp_pformat sra %g2, 0, %g2 .LVL502: sllx %g2, 5, %g2 add %g3, %g2, %g2 .LVL503: lduw [%g2+20], %g4 sethi %hi(PFORMAT.6120), %g3 st %g4, [%g3+%lo(PFORMAT.6120)] 1846 g = arp_sub 1847 %if g&escape # 0 %start 1848 g = g-escape lduw [%g1-28], %g1 add %g1, -4096, %g1 st %g1, [%i2+%lo(G.6122)] 1849 papp = arp_papp lduw [%g2+16], %g2 .LVL504: sethi %hi(PAPP.6119), %g1 st %g2, [%g1+%lo(PAPP.6119)] .LVL505: 1850 mark = 255 1851 subatom = s sethi %hi(SUBATOM.6087), %g1 st %i4, [%g1+%lo(SUBATOM.6087)] 1852 ->a3 ba,pt %xcc, .L463 mov 255, %l6 .LVL506: .L488: 1853 %finish 1854 gentype = k %if gentype = 0 %or k = real 1855 type = gen type 1856 1857 k = gg; ! exit-point code 1858 %cycle 1859 gg = gram(g) 1860 ->a2 %if k = 0 1861 ->fail1 %if gg >= 0; ! no alternative phrase 1862 k = k-order bit 1863 g = g+1; ! sideways step 1864 %repeat 1865 %finish 1866 1867 Fault(4) %if copy # 0 sethi %hi(COPY.6143), %g1 lduw [%g1+%lo(COPY.6143)], %g1 cmp %g1, 0 bne,pn %icc, .L535 mov %i1, %g5 .L489: 1868 fault(13) %if order = 0 sethi %hi(ORDER.6144), %g1 .L543: lduw [%g1+%lo(ORDER.6144)], %g1 cmp %g1, 0 be,pn %icc, .L536 mov %i1, %g5 .L490: .LDL35: call FAULT.6335, 0 mov 4, %o0 .LVL507: ba,pt %xcc, .L543 sethi %hi(ORDER.6144), %g1 .L536: 1869 fault(-4) %if for warn # 0 call FAULT.6335, 0 mov 13, %o0 .LVL508: 1870 pos1 = 0 sethi %hi(POS1.6148), %g1 .L544: st %g0, [%g1+%lo(POS1.6148)] ba,pt %xcc, .L544 sethi %hi(POS1.6148), %g1 .LVL509: .L515: 1871 fault rate = fault rate-1 sethi %hi(FAULTRATE.6093), %g2 lduw [%g2+%lo(FAULTRATE.6093)], %g1 add %g1, -1, %g1 1872 %return ba,pt %xcc, .L438 st %g1, [%g2+%lo(FAULTRATE.6093)] .L535: 1873 1874 act(193): gg = 0 %and ->a5 %unless sym = '=' %or sym = '<'; ! cdummy 1875 act(181): atom1 = amap(decl&15); ! dummy 1876 ->more 1877 1878 act(182): class = escdec; g = glink(g)!escape; ! an example of ! as an operator 1879 decl = 0; otype = 0; ->esc; ! decl 1880 1881 act(199): ; ! compile 1882 s = 0 1883 %while node # 0 %cycle 1884 z == ar(node)_link 1885 k = z; z = s; s = node; node = k 1886 %repeat 1887 ss = s 1888 1889 code atom(28) %if quote # 0; ! expend 1890 compile; ->more %if atom1&error = 0 1891 ->fail1 1892 1893 act(184): ->fail4 %unless type = integer 1894 %if subatom < 0 %then lit = tag(-subatom)_format %else lit = lit pool(subatom) 1895 ->fail4 %if lit # 0 1896 ->more 1897 act(185): ; ! apply parameters 1898 s = 0 1899 %while node # 0 %cycle 1900 z == ar(node)_link 1901 k = z; z = s; s = node; node = k 1902 %repeat 1903 ss = s 1904 1905 atom1 = ar(s)_class; atom2 = 0 1906 atom1 = var %if atom1 = 97 %or atom1 = 98 1907 arp == ar(nmax) 1908 x = arp_x 1909 pos1 = arp_pos 1910 pos2 = 0 1911 app = 0 1912 format = tag(x)_format 1913 flags = tag(x)_flags 1914 type = flags>>4&7 1915 protection = flags&prot 1916 protection = 0 %if flags&aname # 0 1917 1918 %if flags&subname # 0 %and format # 0 %start 1919 ->fail1 %if format selected = 0 1920 %finish 1921 1922 ->a6 1923 1924 act(187): protection = prot; ->more; ! %SETPROT 1925 act(186): ->More %if protection&prot = 0 1926 prot err = nmin 1927 ->A7 1928 act(191): k = protection; ! %GUARD 1929 code atom(0) 1930 protection = k %if atom flags&aname = 0 1931 ->more 1932 1933 act(192): ->fail1 %if parsed machine code=0 1934 ->more 1935 1936 act(189): k = gapp; ! %GAPP 1937 delete names(1) 1938 tmax = tbase; tbase = gram (gmin); ! restore tmax 1939 local= tbase 1940 gmin = gmin+1 1941 1942 x = ar(ar(nmax)_class)_sub 1943 tag(x)_app = k; ! update app 1944 ->more 1945 1946 act(190): gmin = gmin-1; ! %LOCAL 1947 abandon(2) %if gmin <= gmax 1948 gram (gmin) = tbase; tbase = tmax 1949 local = tbase 1950 ->more 1951 1952 ! errors 1953 1954 fail4: k = error+10; ->failed; ! *size 1955 fail3: k = error+7; ->failed; ! *context 1956 fail2: k = error+5; pos2 = 0; ->failed; ! *type 1957 fail0: k = error+3; ->failed; ! *too complex 1958 fail1: k = atom1; pos2 = 0 ba,pt %xcc, .L461 or %i3, 3, %i3 .L516: sethi %hi(32768), %i3 ba,pt %xcc, .L461 or %i3, 3, %i3 .LVL510: .L484: 1959 failed: %if diag&32 # 0 %start sethi %hi(ATOM1.6085), %g1 .L538: lduw [%g1+%lo(ATOM1.6085)], %i3 .LVL362: ba,pt %xcc, .L538 sethi %hi(ATOM1.6085), %g1 .LVL427: .L454: .L455: .L557: 1960 printstring("Atom1 ="); write(atom1, 3) sethi %hi(POS2.6149), %g1 st %g0, [%g1+%lo(POS2.6149)] .LVL363: .L461: .LBB526: mov 256, %o2 sethi %hi(.LC18), %o1 or %o1, %lo(.LC18), %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL364: sethi %hi(7168), %i4 xor %i4, -520, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 mov %i5, %o0 .LVL365: mov 256, %o2 mov %i5, %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL366: .LBE526: .LBB527: .LBB528: xor %i4, -832, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 mov %i5, %o0 .LVL367: call _imp_printstring, 0 mov %i5, %o0 .LVL368: .LBE528: .LBE527: 1961 printstring(" Atom2 ="); write(atom2, 3) mov 3, %o1 sethi %hi(ATOM1.6085), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(ATOM1.6085)], %o0 .LVL369: .LBB529: mov 256, %o2 sethi %hi(.LC19), %o1 or %o1, %lo(.LC19), %o1 call memcpy, 0 add %fp, 503, %o0 .LVL370: xor %i4, -264, %i2 add %fp, 2047, %g1 add %g1, %i2, %i2 mov 256, %o2 add %fp, 503, %o1 call memcpy, 0 mov %i2, %o0 .LVL371: mov 256, %o2 mov %i2, %o1 call memcpy, 0 add %fp, 503, %o0 .LVL372: .LBE529: .LBB530: .LBB531: mov 256, %o2 add %fp, 503, %o1 call memcpy, 0 mov %i5, %o0 .LVL373: call _imp_printstring, 0 mov %i5, %o0 .LVL374: .LBE531: .LBE530: 1962 printstring(" subatom ="); write(subatom, 3); newline mov 3, %o1 sethi %hi(ATOM2.6086), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(ATOM2.6086)], %o0 .LVL375: .LBB532: mov 256, %o2 sethi %hi(.LC20), %o1 or %o1, %lo(.LC20), %o1 call memcpy, 0 add %fp, 247, %o0 .LVL376: xor %i4, -8, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, 247, %o1 call memcpy, 0 mov %i4, %o0 .LVL377: mov 256, %o2 mov %i4, %o1 call memcpy, 0 add %fp, 247, %o0 .LVL378: .LBE532: .LBB533: .LBB534: mov 256, %o2 add %fp, 247, %o1 call memcpy, 0 mov %i5, %o0 .LVL379: call _imp_printstring, 0 mov %i5, %o0 .LVL380: .LBE534: .LBE533: 1963 printstring("Type ="); write(type, 1) mov 3, %o1 sethi %hi(SUBATOM.6087), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(SUBATOM.6087)], %o0 .LVL381: .LBB535: .LBB536: call _imp_newline, 0 sethi %hi(6144), %i4 .LVL382: .LBE536: .LBE535: .LBB537: mov 256, %o2 sethi %hi(.LC21), %o1 or %o1, %lo(.LC21), %o1 call memcpy, 0 add %fp, -9, %o0 .LVL383: xor %i4, -776, %i2 add %fp, 2047, %g1 add %g1, %i2, %i2 mov 256, %o2 add %fp, -9, %o1 call memcpy, 0 mov %i2, %o0 .LVL384: mov 256, %o2 mov %i2, %o1 call memcpy, 0 add %fp, -9, %o0 .LVL385: .LBE537: .LBB538: .LBB539: mov 256, %o2 add %fp, -9, %o1 call memcpy, 0 mov %i5, %o0 .LVL386: call _imp_printstring, 0 mov %i5, %o0 .LVL387: .LBE539: .LBE538: 1964 printstring(" Ptype ="); write(ptype, 1); newline mov 1, %o1 sethi %hi(TYPE.6088), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(TYPE.6088)], %o0 .LVL388: .LBB540: mov 256, %o2 sethi %hi(.LC22), %o1 or %o1, %lo(.LC22), %o1 call memcpy, 0 add %fp, -265, %o0 .LVL389: xor %i4, -520, %i2 add %fp, 2047, %g1 add %g1, %i2, %i2 mov 256, %o2 add %fp, -265, %o1 call memcpy, 0 mov %i2, %o0 .LVL390: mov 256, %o2 mov %i2, %o1 call memcpy, 0 add %fp, -265, %o0 .LVL391: .LBE540: .LBB541: .LBB542: mov 256, %o2 add %fp, -265, %o1 call memcpy, 0 mov %i5, %o0 .LVL392: call _imp_printstring, 0 mov %i5, %o0 .LVL393: .LBE542: .LBE541: 1965 printstring("App ="); write(app, 1) mov 1, %o1 sethi %hi(PTYPE.6118), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(PTYPE.6118)], %o0 .LVL394: .LBB543: .LBB544: call _imp_newline, 0 xor %i4, -264, %i2 .LVL395: .LBE544: .LBE543: .LBB545: mov 256, %o2 sethi %hi(.LC23), %o1 or %o1, %lo(.LC23), %o1 call memcpy, 0 add %fp, -521, %o0 .LVL396: add %fp, 2047, %g1 add %g1, %i2, %i2 mov 256, %o2 add %fp, -521, %o1 call memcpy, 0 mov %i2, %o0 .LVL397: mov 256, %o2 mov %i2, %o1 call memcpy, 0 add %fp, -521, %o0 .LVL398: .LBE545: .LBB546: .LBB547: mov 256, %o2 add %fp, -521, %o1 call memcpy, 0 mov %i5, %o0 .LVL399: call _imp_printstring, 0 mov %i5, %o0 .LVL400: .LBE547: .LBE546: 1966 printstring(" Papp ="); write(papp, 1); newline mov 1, %o1 sethi %hi(APP.6089), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(APP.6089)], %o0 .LVL401: .LBB548: mov 256, %o2 sethi %hi(.LC24), %o1 or %o1, %lo(.LC24), %o1 call memcpy, 0 add %fp, -777, %o0 .LVL402: xor %i4, -8, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, -777, %o1 call memcpy, 0 mov %i4, %o0 .LVL403: mov 256, %o2 mov %i4, %o1 call memcpy, 0 add %fp, -777, %o0 .LVL404: .LBE548: .LBB549: .LBB550: mov 256, %o2 add %fp, -777, %o1 call memcpy, 0 mov %i5, %o0 .LVL405: call _imp_printstring, 0 mov %i5, %o0 .LVL406: .LBE550: .LBE549: 1967 printstring("Format ="); write(format, 1) mov 1, %o1 sethi %hi(PAPP.6119), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(PAPP.6119)], %o0 .LVL407: .LBB551: .LBB552: call _imp_newline, 0 sethi %hi(5120), %i4 .LVL408: .LBE552: .LBE551: .LBB553: mov 256, %o2 sethi %hi(.LC25), %o1 or %o1, %lo(.LC25), %o1 call memcpy, 0 add %fp, -1033, %o0 .LVL409: xor %i4, -776, %i2 add %fp, 2047, %g1 add %g1, %i2, %i2 mov 256, %o2 add %fp, -1033, %o1 call memcpy, 0 mov %i2, %o0 .LVL410: mov 256, %o2 mov %i2, %o1 call memcpy, 0 add %fp, -1033, %o0 .LVL411: .LBE553: .LBB554: .LBB555: mov 256, %o2 add %fp, -1033, %o1 call memcpy, 0 mov %i5, %o0 .LVL412: call _imp_printstring, 0 mov %i5, %o0 .LVL413: .LBE555: .LBE554: 1968 printstring(" Pformat ="); write(pformat, 1); newline mov 1, %o1 sethi %hi(FORMAT.6090), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(FORMAT.6090)], %o0 .LVL414: .LBB556: mov 256, %o2 sethi %hi(.LC26), %o1 or %o1, %lo(.LC26), %o1 call memcpy, 0 add %fp, -1289, %o0 .LVL415: xor %i4, -520, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, -1289, %o1 call memcpy, 0 mov %i4, %o0 .LVL416: mov 256, %o2 mov %i4, %o1 call memcpy, 0 add %fp, -1289, %o0 .LVL417: .LBE556: .LBB557: .LBB558: mov 256, %o2 add %fp, -1289, %o1 call memcpy, 0 mov %i5, %o0 .LVL418: call _imp_printstring, 0 mov %i5, %o0 .LVL419: .LBE558: .LBE557: 1969 !%signal 13,15 mov 1, %o1 sethi %hi(PFORMAT.6120), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(PFORMAT.6120)], %o0 .LVL420: .LBB559: .LBB560: call _imp_newline, 0 nop .LVL421: .LBE560: .LBE559: 1970 %finish 1971 1972 quote = 0 %and readsym %while sym # nl %and sym # ';' 1973 %if k&error # 0 %start sethi %hi(SYM.6102), %g1 lduw [%g1+%lo(SYM.6102)], %g1 xor %g1, 10, %g1 cmp %g0, %g1 subx %g0, -1, %g1 sethi %hi(SYM.6102), %i4 lduw [%i4+%lo(SYM.6102)], %g1 xor %g1, 10, %g2 cmp %g0, %g2 subx %g0, -1, %g2 1974 fault(k&255) xor %g1, 59, %g2 cmp %g0, %g2 subx %g0, -1, %g2 orcc %g2, %g1, %g0 bne,pn %icc, .L493 add %fp, 2047, %g1 xor %g1, 59, %g1 cmp %g0, %g1 subx %g0, -1, %g1 orcc %g2, %g1, %g0 be,a,pt %icc, .L553 st %g0, [%i2+%lo(QUOTE.6104)] .L493: mov %i1, %g5 call FAULT.6335, 0 and %i3, 0xff, %o0 .LVL423: .LDL23: .LDL24: 1975 %finish %else %start sethi %hi(QUOTE.6104), %i2 st %g0, [%i2+%lo(QUOTE.6104)] .L553: 1976 %if prot err = nmin %then fault(14) %else fault(0) sethi %hi(7168), %i5 xor %i5, -544, %i5 add %g1, %i5, %i5 call READSYM.6613, 0 mov %i5, %g5 .LVL422: .LDL21: .LDL22: 1977 %finish 1978 gg = 0; ss = 0; symtype = 0 sethi %hi(GG.6123), %g1 st %g0, [%g1+%lo(GG.6123)] 1979 %end; ! of analyse sethi %hi(SS.6132), %g1 st %g0, [%g1+%lo(SS.6132)] 1980 sethi %hi(SYMTYPE.6103), %g1 st %g0, [%g1+%lo(SYMTYPE.6103)] .LVL424: .L438: 1981 %routine compile save %sp, -4096, %sp add %sp, -2496, %sp sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 stx %g5, [%g1] ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 sethi %hi(5120), %g3 xor %g3, -672, %g1 add %fp, 2047, %g2 add %g2, %g1, %g2 add %fp, 2047, %g4 stx %g4, [%g2+40] stx %g5, [%g4+%g1] 1982 %constinteger then = 4, else = 8, loop = 16 add %i5, -180, %g1 cmp %g1, 20 bgu,a,pt %icc, .L484 sethi %hi(_imp_current_file), %g1 .LVL491: ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L495 mov 256, %o2 sethi %hi(4096), %o0 xor %o0, -264, %o0 add %fp, 2047, %g1 call _imp_c2istr, 0 add %g1, %o0, %o0 .LVL511: sethi %hi(_imp_current_line), %g1 .L546: lduw [%g1+%lo(_imp_current_line)], %i3 cmp %i3, 0 mov 1982, %g1 move %icc, %g1, %i3 sethi %hi(7168), %i4 xor %i4, -832, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 sethi %hi(4096), %o1 xor %o1, -264, %o1 add %g1, %o1, %o1 call memcpy, 0 mov %i4, %o0 .LVL512: sra %i5, 0, %o4 mov 1830, %g1 stx %g1, [%sp+2239] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 stx %g1, [%sp+2231] stx %o4, [%sp+2223] sethi %hi(.LC82), %o5 or %o5, %lo(.LC82), %o5 mov 3, %o3 mov 6, %o2 sra %i3, 0, %o1 call _signal_eventf, 0 mov %i4, %o0 .LVL513: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL515: sethi %hi(5120), %i4 .LVL516: xor %i4, -264, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 mov %i4, %o0 .LVL517: .LBE565: mov 256, %o2 mov %i4, %o1 sethi %hi(4096), %o0 xor %o0, -264, %o0 add %fp, 2047, %g1 call memcpy, 0 add %g1, %o0, %o0 .LVL518: ba,pt %xcc, .L546 sethi %hi(_imp_current_line), %g1 .LVL519: .L499: 1983 add %i5, -180, %g1 .L545: sra %g1, 0, %g1 sllx %g1, 3, %g1 sethi %hi(ACT.6575), %g2 or %g2, %lo(ACT.6575), %g2 ba,pt %xcc, .L498 ldx [%g2+%g1], %g1 .LVL492: .L468: ba,pt %xcc, .L545 add %i5, -180, %g1 .LVL514: .L495: .LBB565: 1984 %switch c(0:actions), litop(1:12) 1985 sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L537 mov 256, %o2 sethi %hi(4096), %o0 xor %o0, -8, %o0 add %fp, 2047, %g1 call _imp_c2istr, 0 add %g1, %o0, %o0 .LVL520: sethi %hi(_imp_current_line), %g1 .L548: lduw [%g1+%lo(_imp_current_line)], %i3 cmp %i3, 0 mov 1985, %g1 move %icc, %g1, %i3 sethi %hi(7168), %i4 xor %i4, -832, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 sethi %hi(4096), %o1 xor %o1, -8, %o1 add %g1, %o1, %o1 call memcpy, 0 mov %i4, %o0 .LVL521: sra %i5, 0, %o4 mov 1830, %g1 stx %g1, [%sp+2239] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 stx %g1, [%sp+2231] stx %o4, [%sp+2223] sethi %hi(.LC83), %o5 or %o5, %lo(.LC83), %o5 mov 2, %o3 mov 8, %o2 sra %i3, 0, %o1 call _signal_eventf, 0 mov %i4, %o0 .LVL522: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL523: sethi %hi(5120), %i4 xor %i4, -8, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 mov %i4, %o0 .LVL524: .LBE566: mov 256, %o2 mov %i4, %o1 sethi %hi(4096), %o0 xor %o0, -8, %o0 add %fp, 2047, %g1 call memcpy, 0 add %g1, %o0, %o0 .LVL525: ba,pt %xcc, .L548 sethi %hi(_imp_current_line), %g1 .L505: .LBB567: 1986 %constbyteintegerarray operator(1:14) = '[', ']', 'X', '/', '&', '!', '%', '+', '-', '*', 'Q', 'x', '.', 'v' mov 91, %g1 stb %g1, [%fp+2007] mov 93, %g1 stb %g1, [%fp+2008] mov 88, %g1 stb %g1, [%fp+2009] mov 47, %g1 stb %g1, [%fp+2010] mov 38, %g1 stb %g1, [%fp+2011] mov 33, %g1 stb %g1, [%fp+2012] mov 37, %g1 stb %g1, [%fp+2013] mov 43, %g1 stb %g1, [%fp+2014] mov 45, %g1 stb %g1, [%fp+2015] mov 42, %g1 stb %g1, [%fp+2016] mov 81, %g1 stb %g1, [%fp+2017] mov 120, %g1 stb %g1, [%fp+2018] mov 46, %g1 stb %g1, [%fp+2019] mov 118, %g1 stb %g1, [%fp+2020] 1987 %constbyteintegerarray cc(0 : 7) = '#','=',')','<','(','>', 'k','t' mov 35, %g1 stb %g1, [%fp+1999] mov 61, %g1 stb %g1, [%fp+2000] mov 41, %g1 stb %g1, [%fp+2001] mov 60, %g1 stb %g1, [%fp+2002] mov 40, %g1 stb %g1, [%fp+2003] mov 62, %g1 stb %g1, [%fp+2004] mov 107, %g1 stb %g1, [%fp+2005] mov 116, %g1 stb %g1, [%fp+2006] 1988 %constbyteintegerarray anyform(0:15) = 1,0,1,1,1,1,1,1,0,1,1,0,1,1,1,1 cmp %l5, 15 .L547: bleu,pt %icc, .L560 sra %l5, 0, %g1 sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L505 mov 256, %o2 call _imp_c2istr, 0 add %fp, -1801, %o0 .LVL485: sethi %hi(_imp_current_line), %g1 .L549: lduw [%g1+%lo(_imp_current_line)], %i3 cmp %i3, 0 mov 1988, %g1 move %icc, %g1, %i3 sethi %hi(7168), %i4 xor %i4, -832, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, -1801, %o1 call memcpy, 0 mov %i4, %o0 .LVL486: sra %l5, 0, %o4 mov 1828, %g1 stx %g1, [%sp+2239] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 stx %g1, [%sp+2231] stx %o4, [%sp+2223] sethi %hi(.LC84), %o5 or %o5, %lo(.LC84), %o5 mov 3, %o3 mov 6, %o2 sra %i3, 0, %o1 call _signal_eventf, 0 mov %i4, %o0 .LVL487: ba,pt %xcc, .L547 cmp %l5, 15 .L537: .LBB566: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL526: sethi %hi(4096), %i4 xor %i4, -776, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 mov %i4, %o0 .LVL527: .LBE567: mov 256, %o2 mov %i4, %o1 call memcpy, 0 add %fp, -1801, %o0 .LVL528: ba,pt %xcc, .L549 sethi %hi(_imp_current_line), %g1 .L508: mov 1, %g1 stb %g1, [%fp+2023] stb %g0, [%fp+2024] stb %g1, [%fp+2025] stb %g1, [%fp+2026] stb %g1, [%fp+2027] stb %g1, [%fp+2028] stb %g1, [%fp+2029] stb %g1, [%fp+2030] stb %g0, [%fp+2031] stb %g1, [%fp+2032] stb %g1, [%fp+2033] stb %g0, [%fp+2034] stb %g1, [%fp+2035] stb %g1, [%fp+2036] stb %g1, [%fp+2037] stb %g1, [%fp+2038] 1989 sra %l5, 0, %g1 .L560: sllx %g1, 3, %g1 sethi %hi(PACTION.6580), %g2 or %g2, %lo(PACTION.6580), %g2 ldx [%g2+%g1], %g1 .LVL488: .L498: jmp %g1 nop .LVL489: .L470: 1990 %constintegerarray decmap(0:15) = %c xor %g3, -624, %g1 mov 1, %g2 st %g2, [%g4+%g1] add %g4, %g1, %g1 mov 2, %g2 st %g2, [%g1+4] sethi %hi(4096), %g2 or %g2, 11, %g4 st %g4, [%g1+8] or %g2, 13, %g4 st %g4, [%g1+12] or %g3, 12, %g4 st %g4, [%g1+16] or %g3, 14, %g3 st %g3, [%g1+20] mov 3, %g3 st %g3, [%g1+24] mov 4, %g3 st %g3, [%g1+28] or %g2, 7, %g3 st %g3, [%g1+32] or %g2, 8, %g3 st %g3, [%g1+36] or %g2, 9, %g3 st %g3, [%g1+40] or %g2, 10, %g2 st %g2, [%g1+44] mov 6, %g2 st %g2, [%g1+48] st %g0, [%g1+52] st %g0, [%g1+56] st %g0, [%g1+60] 1991 1, 2, sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L509 mov 256, %o2 call _imp_c2istr, 0 add %fp, -1545, %o0 .LVL529: sethi %hi(_imp_current_line), %g1 .L550: lduw [%g1+%lo(_imp_current_line)], %i4 cmp %i4, 0 mov 1991, %g1 move %icc, %g1, %i4 sethi %hi(7168), %i5 xor %i5, -832, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 256, %o2 add %fp, -1545, %o1 call memcpy, 0 mov %i5, %o0 .LVL530: sra %l5, 0, %o4 mov 1828, %g1 stx %g1, [%sp+2239] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 stx %g1, [%sp+2231] stx %o4, [%sp+2223] sethi %hi(.LC85), %o5 or %o5, %lo(.LC85), %o5 mov 2, %o3 mov 8, %o2 sra %i4, 0, %o1 call _signal_eventf, 0 mov %i5, %o0 .LVL531: ba,pt %xcc, .L438 nop .LVL532: .L509: .LBB568: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, 1527, %o0 .LVL533: sethi %hi(4096), %i5 .LVL534: xor %i5, -520, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 mov %i5, %o0 .LVL535: .LBE568: mov 256, %o2 mov %i5, %o1 call memcpy, 0 add %fp, -1545, %o0 .LVL536: ba,pt %xcc, .L550 sethi %hi(_imp_current_line), %g1 .LVL537: .L458: 1992 16_100B, 16_100D, 16_140C, 16_140E, ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L528 nop return %i7+8 nop .LVL425: .L527: call __stack_chk_fail, 0 nop .LVL540: nop .LFE202: .align 4 .proc 020 POPLABEL.7330: .LFB225: 1993 3, 4, 1994 16_1007, 16_1008, 16_1009, 16_100A, 1995 6, 0, 0, 0 1996 %ownbyteintegerarray cnest(0:15) 1997 %integer lmode, clab, dupid 1998 %integer resln 1999 %owninteger last def = 0 2000 %owninteger lb, ub 2001 %integer cp, ord 2002 %integer next, link, j, k, n, done 2003 %integer class 2004 %integer lit2, defs, decs, cident 2005 %integer pending; %ownintegerarray pstack(1:40) 2006 %ownstring(8) name = "" 2007 %owninteger count = 0 2008 2009 %routine def lab(%integer l) .LVL10: save %sp, -176, %sp .LVL11: mov %g5, %i5 2010 op(':', l) ldx [%g5], %g1 ldx [%g1+8], %g5 mov %i0, %o1 call OP.6199, 0 mov 58, %o0 .LVL12: 2011 access = 1 ldx [%i5], %g1 mov 1, %g2 st %g2, [%g1+36] 2012 %end 2013 return %i7+8 nop .LFE214: .align 4 .proc 020 SETSUBS.7253: .LFB216: 2014 %routine get next save %sp, -1472, %sp ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g3 mov 0, %g2 mov 0, %i4 mov 1, %i5 .L351: 2015 %record(arfm)%name p 2016 gn: %if next = 0 %start; ! end of phrase 2017 class = 0 %and %return %if link = 0; ! end of statement lduw [%g5+36], %g1 cmp %g1, 0 bne,a,pt %icc, .L375 lduw [%g5+36], %g3 lduw [%g5+32], %g1 cmp %g1, 0 be,pn %icc, .L368 sra %g1, 0, %g1 .L353: .LVL265: 2018 p == ar(link) ldx [%g5], %g2 sllx %g1, 5, %g1 .LVL266: ldx [%g2+8], %g2 add %g2, %g1, %g1 2019 next = p_link lduw [%g1-24], %g2 st %g2, [%g5+36] .LVL267: ba,pt %xcc, .L350 st %g0, [%g5+28] .L370: ba,pt %xcc, .L354 st %g3, [%g1+%lo(X.6084)] .LVL270: .L369: sethi %hi(X.6084), %g3 ba,pt %xcc, .L357 st %g1, [%g3+%lo(X.6084)] .LVL271: .L361: 2020 link = p_sub lduw [%g1-28], %g1 st %g1, [%g5+32] 2021 %finish 2022 %cycle 2023 p == ar(next) lduw [%g5+36], %g3 .L375: add %g3, -1, %g2 ldx [%g5], %g1 ldx [%g1+8], %g4 .LVL268: sra %g3, 0, %g3 sllx %g3, 5, %g3 add %g4, %g3, %g3 add %g1, -1, %g2 ldx [%g5], %g3 ldx [%g3+8], %g4 .LVL272: sra %g1, 0, %g1 sllx %g1, 5, %g1 add %g4, %g1, %g3 2024 x = p_sub lduw [%g3-28], %g1 lduw [%g3-28], %g1 2025 class = p_class lduw [%g3-32], %g3 lduw [%g3-32], %g3 2026 %exit %if class < actions; ! an atom cmp %g3, 179 ble,pn %icc, .L369 st %g3, [%g5+28] cmp %g3, 179 ble,pn %icc, .L371 st %g3, [%g5+28] .L360: 2027 %if x = 0 %start; ! null phrase cmp %g1, 0 bne,a,pt %icc, .L376 sra %g2, 0, %g2 .LVL269: cmp %g1, 0 be,pn %icc, .L377 sra %g2, 0, %g3 .LVL273: .L358: sra %g2, 0, %g2 .L376: sllx %g2, 5, %g2 .LVL274: add %g4, %g2, %g2 .LVL275: 2028 next = p_link; ->gn sra %g2, 0, %g3 .L377: sllx %g3, 5, %g3 add %g4, %g3, %g3 lduw [%g3+8], %g1 st %g1, [%g5+36] mov %i4, %g3 2029 %finish ba,pt %xcc, .L351 mov %i5, %g2 .L368: andcc %g2, 0xff, %g0 bne,pn %icc, .L370 sethi %hi(X.6084), %g1 .L354: 2030 %if p_link # 0 %start; ! follow a phrase lduw [%g2+8], %g3 cmp %g3, 0 be,a,pt %icc, .L378 st %g1, [%g5+36] 2031 p_sub = link; link = next lduw [%g5+32], %g3 st %g3, [%g2+4] 2032 %finish lduw [%g5+36], %g2 .LVL276: ba,pt %xcc, .L361 st %g2, [%g5+32] .LVL277: .L371: sethi %hi(X.6084), %g3 st %g1, [%g3+%lo(X.6084)] .LVL278: .L357: 2033 next = x st %g1, [%g5+36] .L378: 2034 %repeat 2035 next = p_link sra %g2, 0, %g1 sllx %g1, 5, %g1 add %g4, %g1, %g1 lduw [%g1+8], %g1 st %g1, [%g5+36] 2036 %if diag&2 # 0 %start 2037 spaces(8-length(name)) %unless length(name) = 0 sethi %hi(NAME.7224), %g1 ldub [%g1+%lo(NAME.7224)], %g1 andcc %g1, 0xff, %g0 bne,pn %icc, .L372 and %g1, 0xff, %g1 .L362: 2038 name = text(class) mov 8, %o0 sub %o0, %g1, %o0 .LVL287: .LBB349: .LBB350: call _imp_spaces, 0 sra %o0, 0, %o0 .LVL288: .LBE350: .LBE349: 2039 write(x, 2) mov 2, %o1 sethi %hi(X.6084), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(X.6084)], %o0 .LVL280: .LBB343: .LBB344: call _imp_space, 0 nop .LVL281: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL282: .LBE344: .LBE343: .LBB345: .LBB346: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 751, %o0 .LVL283: call _imp_printstring, 0 add %fp, 751, %o0 .LVL284: .LBE346: .LBE345: .LBB347: .LBB348: call _imp_space, 0 nop .LVL285: .LBE348: .LBE347: 2040 space mov 8, %o2 .L374: add %fp, 1015, %o1 sethi %hi(NAME.7224), %o0 call _imp_strncpy, 0 or %o0, %lo(NAME.7224), %o0 .LVL279: ba,pt %xcc, .L374 mov 8, %o2 .L363: 2041 printstring(name) 2042 space 2043 count = count-1 sethi %hi(COUNT.7225), %g1 lduw [%g1+%lo(COUNT.7225)], %g1 add %g1, -1, %g1 st %g1, [%g2+%lo(COUNT.7225)] .L355: .L364: .L350: 2044 %if count <= 0 %start cmp %g1, 0 ble,pn %icc, .L363 sethi %hi(COUNT.7225), %g2 2045 count = 5 sethi %hi(COUNT.7225), %g1 mov 5, %g2 st %g2, [%g1+%lo(COUNT.7225)] .LVL289: 2046 name = "" 2047 newline 2048 %finish mov 8, %o2 add %fp, 1527, %o1 sethi %hi(NAME.7224), %o0 call _imp_strncpy, 0 or %o0, %lo(NAME.7224), %o0 .LVL290: .LBB351: .LBB352: call _imp_newline, 0 nop .LVL291: ba,pt %xcc, .L350 nop .L373: .LBE352: .LBE351: 2049 %finish 2050 %end 2051 ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L373 nop return %i7+8 nop .L372: .LVL286: call __stack_chk_fail, 0 nop .LVL292: nop .LFE215: .section .rodata.str1.8 .align 8 .LC81: .asciz "switch jump to undefined label FM(%d): at %s line %d" .section ".rodata" .LC32: .byte 8 .asciz " ! " .skip 246 .LC33: .byte 5 .asciz "fault" .skip 249 .section ".text" .align 4 .proc 020 FAULT.6335: .LFB196: 2052 %routine set subs(%integer n) .LVL13: 2053 !update the app field in n array descriptors 2054 %integer p 2055 p = tmax ldx [%g5], %g1 .LVL14: 2056 %while n > 0 %cycle 2057 !%signal 15,15 %if p < tbase cmp %o0, 0 ble,pn %icc, .L17 lduw [%g1+64], %g2 cmp %g2, %o0 bne,pt %icc, .L15 st %o4, [%g1+%o5] .L14: .L17: 2058 tag(p)_app = dimension sethi %hi(DIMENSION.6151), %g1 lduw [%g1+%lo(DIMENSION.6151)], %o4 sub %g2, %o0, %o0 .LVL15: sethi %hi(12555264), %o5 srlx %o5, 8, %o5 .L15: ldx [%g5], %g1 ldx [%g1+8], %g3 sra %g2, 0, %g4 add %g4, %g4, %g1 add %g1, %g4, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g1 2059 p = p-1; n = n-1 add %g2, -1, %g2 .LVL16: .LDL1: 2060 %repeat 2061 %end 2062 jmp %o7+8 nop .LFE216: .align 4 .proc 020 POPLIT.7320: .LFB223: 2063 %routine set bp save %sp, -176, %sp 2064 !define a constant bound pair from the last stacked constants 2065 pending = pending-2 lduw [%g5+24], %g1 add %g1, -2, %g2 st %g2, [%g5+24] 2066 lb = pstack(pending+1); ub = pstack(pending+2) sethi %hi(PSTACK.7223), %g3 or %g3, %lo(PSTACK.7223), %g3 sra %g2, 0, %g2 sllx %g2, 2, %g2 lduw [%g3+%g2], %g2 sethi %hi(LB.7207), %g4 st %g2, [%g4+%lo(LB.7207)] 2067 %if ub-lb+1 < 0 %start add %g1, -1, %g1 sra %g1, 0, %g1 sllx %g1, 2, %g1 lduw [%g3+%g1], %g1 sethi %hi(UB.7208), %g3 st %g1, [%g3+%lo(UB.7208)] sub %g1, %g2, %g1 addcc %g1, 1, %g0 bneg,pn %icc, .L572 mov %g5, %i5 .L570: 2068 pos1 = 0; next = link; fault(11) sethi %hi(POS1.6148), %g1 st %g0, [%g1+%lo(POS1.6148)] 2069 ub = lb lduw [%g5+32], %g1 st %g1, [%g5+36] sethi %hi(LB.7207), %g1 lduw [%g1+%lo(LB.7207)], %g2 sethi %hi(UB.7208), %g1 ba,pt %xcc, .L570 st %g2, [%g1+%lo(UB.7208)] .LFE217: .align 4 .proc 020 DEFSLAB.7298: .LFB220: 2070 %finish ldx [%g5], %g5 call FAULT.6335, 0 mov 11, %o0 .LVL547: 2071 set const(lb); set const(ub) ldx [%i5], %g1 ldx [%g1+8], %g5 sethi %hi(LB.7207), %g1 call SETCONST.6202, 0 ldsw [%g1+%lo(LB.7207)], %o0 .LVL544: 2072 add char( 'b' ) %unless class = 146 ldx [%i5], %g1 ldx [%g1+8], %g5 sethi %hi(UB.7208), %g1 call SETCONST.6202, 0 ldsw [%g1+%lo(UB.7208)], %o0 .LVL545: lduw [%i5+28], %g1 cmp %g1, 146 be,pn %icc, .L573 nop 2073 %end ldx [%i5], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 98, %o0 .LVL546: .L571: .L573: 2074 return %i7+8 nop .L572: 2075 %routine compile end(%integer type) 2076 ! type = 0:eof, 1:eop, 2:end 2077 %if access # 0 %start sethi %hi(5120), %g1 xor %g1, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g5 lduw [%g5+36], %g1 cmp %g1, 0 bne,a,pt %icc, .L777 st %g0, [%g5+32] 2078 open = 0 2079 fault(19) %if block form > proc; ! can reach end lduw [%g5+48], %g1 cmp %g1, 7 ble,a,pt %icc, .L1006 sethi %hi(5120), %g1 2080 %finish call FAULT.6335, 0 mov 19, %o0 .LVL757: .LBE645: .LBE654: 2081 2082 %while dict(dmin) >= 0 %cycle; ! finishes & repeats 2083 fault(17+dict(dmin)&1) sethi %hi(5120), %g1 .L1006: xor %g1, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g5 ldx [%g5+8], %g2 lduw [%g5+52], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 mov 1565, %g3 sllx %g3, 2, %g3 add %g1, %g3, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 lduw [%g1+4], %g1 cmp %g1, 0 bl,a,pn %icc, .L1041 mov %g2, %g5 mov %g3, %i4 and %g1, 1, %g1 .L1042: add %g1, 17, %o0 call FAULT.6335, 0 sra %o0, 0, %o0 .LVL749: ldx [%g5+8], %g2 sra %g1, 0, %g1 add %g1, %i4, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 lduw [%g1+4], %g1 cmp %g1, 0 bge,pt %icc, .L1042 and %g1, 1, %g1 .L778: ba,pt %xcc, .L1006 sethi %hi(5120), %g1 .L973: .LBB655: .LBB646: 2084 dmin = dmin+1 sethi %hi(5120), %i3 xor %i3, -672, %i3 add %fp, 2047, %g1 ldx [%g1+%i3], %g5 lduw [%g5+52], %g1 add %g1, 1, %g2 st %g2, [%g5+52] 2085 %repeat 2086 !{delete names(0)} 2087 add char( ';' ) mov %g2, %g5 .L1041: call ADDCHAR.6195, 0 mov 59, %o0 .LVL750: 2088 add char( ';' ) %if type = 1; ! endofprogram cmp %i5, 1 be,pn %icc, .L973 sethi %hi(5120), %g1 .L781: .L1007: 2089 xor %g1, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 59, %o0 .LVL758: .LBE646: .LBE655: 2090 bflags = bflags!open; ! show if it returns xor %g1, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g4 ldx [%g4], %g3 lduw [%g3], %g2 lduw [%g4+32], %g4 or %g2, %g4, %g2 st %g2, [%g3] ba,pt %xcc, .L1007 sethi %hi(5120), %g1 .L974: .LBB656: .LBB647: 2091 2092 def lab(0) %if block tag # 0 %and level # 1; ! for jump around add %fp, 2047, %g2 ldx [%g2+%g1], %g1 lduw [%g1+28], %g2 cmp %g2, 0 be,pt %icc, .L1043 cmp %i5, 2 2093 %if type # 2 %start; ! eop, eof lduw [%g1+60], %g1 cmp %g1, 1 be,pt %icc, .L783 cmp %i5, 2 cmp %i5, 2 .L1043: be,pn %icc, .L784 sethi %hi(5120), %g1 .L1052: bne,a,pt %icc, .L1052 sethi %hi(5120), %g1 .LBE649: .LBE677: 2094 fault(16) %if level # type; ! end missing sethi %hi(5120), %g5 xor %g5, -672, %g5 add %fp, 2047, %g1 add %g1, %g5, %g5 call DEFLAB.7227, 0 mov 0, %o0 .LVL751: .L782: xor %g1, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g5 lduw [%g5+60], %g1 cmp %i5, %g1 bne,pn %icc, .L974 nop .L785: .L786: .L787: 2095 %finish %else %start call FAULT.6335, 0 mov 16, %o0 .LVL759: .LBE647: .LBE656: 2096 %if level = 0 %start xor %g1, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g5 lduw [%g5+60], %g1 cmp %g1, 0 bne,a,pt %icc, .L1008 sethi %hi(ENDMARK.6105), %g1 2097 fault(15); ! spurious end call FAULT.6335, 0 mov 15, %o0 .LVL760: .LBE648: .LBE657: 2098 %finish 2099 %finish 2100 2101 end mark = 11; !******Mouses specific****** sethi %hi(ENDMARK.6105), %g1 .L1008: mov 11, %g2 .LBE644: .LBE643: ba,pt %xcc, .L629 st %g2, [%g1+%lo(ENDMARK.6105)] .LVL752: .L972: ba,pt %xcc, .L1008 sethi %hi(ENDMARK.6105), %g1 .L784: .LBB657: .LBB648: ba,pt %xcc, .L1008 sethi %hi(ENDMARK.6105), %g1 .LVL761: .L788: .LDL43: .LDL44: .LDL45: ba,pt %xcc, .L1008 sethi %hi(ENDMARK.6105), %g1 .LVL965: .L962: call __stack_chk_fail, 0 nop .LVL966: nop .LFE213: .section ".rodata" .LC9: .byte 5 .asciz "Begin" .skip 249 .LC10: .byte 10 .asciz "Procedure " .skip 244 .LC11: .byte 3 .asciz "End" .skip 251 .section ".text" .align 4 .proc 020 COMPILEBLOCK.6309: .LFB195: 2102 %end 2103 2104 %routine def(%integer p) .LVL598: save %sp, -176, %sp .LVL599: mov %g5, %i4 2105 !dump a descriptor 2106 %integer t, f, type 2107 %record(tagfm)%name v 2108 flush buffer( 1 ); ! flush if bp > 0 ldx [%g5], %g1 ldx [%g1+8], %g5 call FLUSHBUFFER.6182, 0 mov 1, %o0 .LVL600: 2109 defs = defs+1 lduw [%i4+20], %g1 add %g1, 1, %g1 st %g1, [%i4+20] 2110 v == tag(p) ldx [%i4], %g3 ldx [%g3+8], %i2 .LVL601: 2111 t = 0 2112 %unless v_index < 0 %start; ! no index for subnames add %i0, %i0, %g1 add %g1, %i0, %g1 sllx %g1, 3, %g1 add %i2, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 lduw [%g1+%g2], %g1 cmp %g1, 0 bl,pn %icc, .L611 mov 0, %o1 2113 id = id+1 %and v_index = id %if v_index = 0 bne,pt %icc, .L627 add %i0, %i0, %g1 2114 last def = v_index lduw [%g3+56], %g1 add %g1, 1, %g1 st %g1, [%g3+56] add %i0, %i0, %g1 .L627: add %g1, %i0, %g1 sllx %g1, 3, %g1 add %i2, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 lduw [%g1+%g2], %o1 .LVL602: .L611: 2115 t = last def ldx [%i4], %g1 lduw [%g1+56], %g3 add %i0, %i0, %g1 add %g1, %i0, %g1 sllx %g1, 3, %g1 add %i2, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 st %g3, [%g1+%g2] .L612: 2116 %finish 2117 op('$', t) ldx [%i4], %g1 ldx [%g1+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 36, %o0 .LVL603: 2118 print ident(p, 1); ! output the name ldx [%i4], %g1 ldx [%g1+8], %g5 mov 1, %o1 call PRINTIDENT.6218, 0 mov %i0, %o0 .LVL604: 2119 t = v_flags add %i0, %i0, %i3 add %i3, %i0, %i3 sllx %i3, 3, %i3 add %i2, %i3, %i3 sethi %hi(12557312), %g1 srlx %g1, 8, %g1 lduw [%i3+%g1], %i5 .LVL605: .LDL37: 2120 type = t 2121 type = type&(\(7<<4)) %if type&(7<<4) >= 6<<4;!routine & pred 2122 op(',', type&2_1111111); ! type & form and %i5, 15, %i1 ldx [%i4], %g1 ldx [%g1+8], %g5 sra %i1, 0, %o1 call OP.6199, 0 mov 44, %o0 .LVL606: 2123 f = v_format sethi %hi(6278144), %g1 srlx %g1, 7, %g1 .LVL607: 2124 f = tag(f)_index %if t&16_70 = record<<4 andcc %i5, 1, %l0 bne,pt %icc, .L613 lduw [%i3+%g1], %o1 2125 f = v_index %if f < 0 ldx [%i4], %g1 ldx [%g1+8], %g2 sra %o1, 0, %o1 add %o1, %o1, %g1 add %g1, %o1, %o1 .LVL608: sllx %o1, 3, %o1 add %g2, %o1, %o1 mov 1533, %g1 sllx %g1, 5, %g1 lduw [%o1+%g1], %o1 .LVL609: .L613: cmp %o1, 0 bl,pn %icc, .L624 add %i0, %i0, %g1 .L614: 2126 op(',', f); ! format ldx [%i4], %g1 ldx [%g1+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 44, %o0 .LVL610: add %g1, %i0, %g1 sllx %g1, 3, %g1 add %i2, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 .LVL619: ba,pt %xcc, .L614 lduw [%g1+%g2], %o1 .L625: 2127 f = otype+t>>4&2_1111000 sethi %hi(OTYPE.6114), %g1 lduw [%g1+%lo(OTYPE.6114)], %i3 srl %i5, 4, %o1 and %o1, 120, %o1 add %o1, %i3, %o1 .LVL611: 2128 f = f!8 %if class = 125; ! add spec from %DUP lduw [%i4+28], %g2 2129 dim = v_app; ! dimension or %o1, 8, %g1 cmp %g2, 125 move %icc, %g1, %o1 .LVL612: .L615: add %i0, %i0, %g1 add %g1, %i0, %g1 sllx %g1, 3, %g1 add %i2, %g1, %g1 sethi %hi(12555264), %g2 srlx %g2, 8, %g2 lduw [%g1+%g2], %g1 ba,pt %xcc, .L617 st %g1, [%g2+%lo(DIM.6109)] .LVL620: .L626: 2130 dim = 0 %unless 0 < dim %and dim <= dim limit 2131 op(',', f+dim<<8); ! otype & spec & prot add %g1, -1, %g2 cmp %g2, 5 bleu,pn %icc, .L625 sethi %hi(DIM.6109), %g2 .L616: sethi %hi(DIM.6109), %g1 lduw [%g1+%lo(DIM.6109)], %i5 .LVL613: sll %i5, 8, %i5 add %i5, %o1, %o1 .LVL614: ldx [%i4], %g1 ldx [%g1+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 44, %o0 .LVL615: 2132 defs = 0 %if t¶meters = 0 cmp %l0, 0 be,a,pt %icc, .L618 st %g0, [%i4+20] .L618: .LVL616: 2133 f = t&15 sethi %hi(DIM.6109), %g1 st %g0, [%g1+%lo(DIM.6109)] .L617: 2134 %if v_flags&spec # 0 %start 2135 v_flags = v_flags&(\spec) %unless 3 <= f %and f <= 10 2136 ocount = -1; ! external specs have no constants add %i1, -3, %g1 cmp %g1, 7 bleu,pn %icc, .L619 add %i0, %i0, %g1 .L620: sethi %hi(OCOUNT.6141), %g1 mov -1, %g2 st %g2, [%g1+%lo(OCOUNT.6141)] .LDL38: 2137 %finish 2138 dimension = 0 add %g1, %i0, %g1 sllx %g1, 3, %g1 add %i2, %g1, %g1 sethi %hi(12557312), %g2 srlx %g2, 8, %g2 lduw [%g1+%g2], %g3 and %g3, -129, %g3 st %g3, [%g1+%g2] .L619: sethi %hi(DIMENSION.6151), %g1 2139 %if otype = 2 %and (f=2 %or f=12 %or f=14) %start cmp %i3, 2 be,pn %icc, .L626 st %g0, [%g1+%lo(DIMENSION.6151)] .L621: .LVL617: .L628: 2140 v_flags = v_flags-1; ! convert to simple xor %i1, 2, %g2 cmp %g0, %g2 subx %g0, -1, %g2 add %g1, %i0, %g2 sllx %g2, 3, %g2 add %i2, %g2, %g2 sethi %hi(12557312), %g3 srlx %g3, 8, %g3 lduw [%g2+%g3], %g1 add %g1, -1, %g1 st %g1, [%g2+%g3] return %i7+8 nop .LFE219: .section .rodata.str1.8 .align 8 .LC87: .asciz "Illegal cycle J = DICT[N - 1], 1, DICT[N + 1 - 1]" .align 8 .LC88: .asciz "->C(%d) out of bounds at %s line %d" .align 8 .LC89: .asciz "switch jump to undefined label C(%d): at %s line %d" .align 8 .LC90: .asciz "->LITOP(%d) out of bounds at %s line %d" .section ".rodata" .LC16: .byte 4 .asciz "ss =" .skip 250 .section ".text" .align 4 .proc 020 COMPILE.6318: .LFB213: 2141 %finish xor %i1, 12, %g1 cmp %g0, %g1 subx %g0, -1, %g1 or %g1, %g2, %g1 xor %g1, 1, %g1 2142 %end xor %i1, 14, %i1 .LVL621: cmp %g0, %i1 addx %g0, 0, %g2 andcc %g1, %g2, %g0 bne,pn %icc, .L628 add %i0, %i0, %g1 .L622: 2143 return %i7+8 nop .LVL618: .L624: 2144 %routine def s lab(%integer n) .LVL548: save %sp, -176, %sp .LVL549: mov %g5, %i5 2145 ! define a switch label, x defines the switch tag 2146 %integer p, l, b, w, bit 2147 p = tag(x)_format; ! pointer to table sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %i4 ldx [%g5], %g5 ldx [%g5+8], %g3 sra %i4, 0, %g2 add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g1 sethi %hi(6278144), %g2 srlx %g2, 7, %g2 lduw [%g1+%g2], %i3 .LVL550: sra %i3, 0, %g1 sllx %g1, 2, %g1 add %g3, %g1, %g1 2148 l = dict(p); ! lower bound mov 1565, %g4 sllx %g4, 4, %g4 lduw [%g1+%g4], %g2 .LVL551: 2149 %if l <= n %and n <= dict(p+1) %start cmp %g2, %i0 bg,pn %icc, .L575 sethi %hi(6411264), %g4 2150 b = n-l srlx %g4, 8, %g4 lduw [%g1+%g4], %g1 cmp %g1, %i0 bl,pt %icc, .L575 sub %i0, %g2, %g2 .LVL552: 2151 w = b>>4+p srl %g2, 4, %g2 .LVL554: add %g2, %i3, %g2 .LVL555: sra %g2, 0, %g2 sllx %g2, 2, %g2 .LVL556: add %g3, %g2, %g2 2152 bit = 1<<(b&15) and %g2, 15, %g4 mov 1, %g1 sll %g1, %g4, %g1 .LVL553: 2153 %if dict(w+2)&bit # 0 %start; ! already set mov 3131, %g3 .LVL557: sllx %g3, 3, %g3 lduw [%g2+%g3], %g3 cmp %g0, %g1 subx %g0, -1, %g4 andcc %g3, %g4, %g0 bne,a,pt %icc, .L576 lduw [%i5+24], %g4 2154 fault(4) %if pending # 0 lduw [%i5+24], %g1 .LVL558: cmp %g1, 0 be,pt %icc, .L582 nop 2155 %return call FAULT.6335, 0 mov 4, %o0 .LVL559: return %i7+8 nop .LVL560: .L576: 2156 %finish 2157 dict(w+2) = dict(w+2)!bit %if pending # 0 cmp %g4, 0 be,a,pt %icc, .L581 ldx [%i5], %g1 2158 set const(n) or %g3, %g1, %g1 .LVL561: mov 3131, %g3 sllx %g3, 3, %g3 st %g1, [%g2+%g3] .LVL562: .L578: ldx [%i5], %g1 .L581: ldx [%g1+8], %g5 call SETCONST.6202, 0 mov %i0, %o0 .LVL563: 2159 op('_', tag(x)_index) ldx [%i5], %g1 ldx [%g1+8], %g5 sra %i4, 0, %i4 add %i4, %i4, %g1 add %g1, %i4, %i4 sllx %i4, 3, %i4 add %g5, %i4, %i4 mov 1533, %g1 sllx %g1, 5, %g1 ldsw [%i4+%g1], %o1 call OP.6199, 0 mov 95, %o0 .LVL564: 2160 %finish %else %start ba,pt %xcc, .L580 ldx [%i5], %g1 .LVL565: .L575: 2161 fault(12) call FAULT.6335, 0 mov 12, %o0 .LVL566: .L579: 2162 %finish 2163 access = 1 ldx [%i5], %g1 .L580: mov 1, %g2 st %g2, [%g1+36] .L577: .L582: 2164 %end 2165 return %i7+8 nop .LFE220: .align 4 .proc 020 DELETENAMES.6314: .LFB201: 2166 %routine call 2167 %record(tagfm)%name T 2168 t == tag(x) sethi %hi(5120), %i2 .L1011: xor %i2, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g1 ldx [%g1+8], %i4 .LVL814: ba,pt %xcc, .L1011 sethi %hi(5120), %i2 .L823: ba,pt %xcc, .L1011 sethi %hi(5120), %i2 .L825: 2169 op('@', t_index) sethi %hi(X.6084), %g1 ldsw [%g1+%lo(X.6084)], %i3 add %i3, %i3, %i5 .LVL815: add %i5, %i3, %g1 sllx %g1, 3, %g1 add %i4, %g1, %g1 mov %i4, %g5 mov 1533, %g2 sllx %g2, 5, %g2 ldsw [%g1+%g2], %o1 call OP.6199, 0 mov 64, %o0 .LVL816: 2170 access = 0 %if t_flags&closed # 0; ! never comes back 2171 add char( 'E' ) %if t_app = 0; ! no parameters xor %i2, -672, %g1 add %fp, 2047, %g2 ldx [%g2+%g1], %g3 st %g0, [%g3+36] .LDL47: add %i5, %i3, %g1 sllx %g1, 3, %g1 add %i4, %g1, %g1 sethi %hi(12555264), %g2 srlx %g2, 8, %g2 lduw [%g1+%g2], %g1 cmp %g1, 0 bne,a,pt %icc, .L993 sethi %hi(4096), %g1 2172 %end ldx [%g3+8], %g5 call ADDCHAR.6195, 0 mov 69, %o0 .LVL817: .LBE667: .LBE666: 2173 2174 %routine pop def 2175 set const(pstack(pending)); pending = pending-1 add %g1, -1, %g1 sra %g1, 0, %g1 sllx %g1, 2, %g1 sethi %hi(5120), %g2 xor %g2, -672, %g2 add %fp, 2047, %g3 ldx [%g3+%g2], %g2 ldx [%g2+8], %g5 sethi %hi(PSTACK.7223), %g2 or %g2, %lo(PSTACK.7223), %g2 call SETCONST.6202, 0 ldsw [%g2+%g1], %o0 .LVL846: 2176 %end lduw [%i5+24], %g1 add %g1, -1, %g1 st %g1, [%i5+24] .L857: .LBE669: .LBE668: 2177 2178 %routine pop lit 2179 %if pending = 0 %then lit = 0 %else %start lduw [%g5+24], %g1 cmp %g1, 0 be,pn %icc, .L21 add %g1, -1, %g1 .L19: 2180 lit = pstack(pending); pending = pending-1 sra %g1, 0, %g2 sllx %g2, 2, %g2 sethi %hi(PSTACK.7223), %g3 or %g3, %lo(PSTACK.7223), %g3 lduw [%g3+%g2], %g3 sethi %hi(LIT.6159), %g2 st %g3, [%g2+%lo(LIT.6159)] .L20: sethi %hi(LIT.6159), %g1 2181 %finish jmp %o7+8 st %g0, [%g1+%lo(LIT.6159)] .LFE223: .align 4 .proc 020 PUSH.7325: .LFB224: 2182 %end 2183 jmp %o7+8 st %g1, [%g5+24] .L21: 2184 !conditions & jumps 2185 %routine push(%integer x) .LVL17: 2186 %if cnest(cp)&2 # x %start lduw [%g5+16], %g1 sra %g1, 0, %g3 sethi %hi(CNEST.7201), %g2 or %g2, %lo(CNEST.7201), %g2 ldub [%g2+%g3], %g2 xor %o0, 2, %g3 cmp %g0, %g3 subx %g0, -1, %g3 andcc %g2, %g3, %g0 bne,pn %icc, .L23 sra %g1, 0, %g3 2187 cnest(cp) = cnest(cp)!1; x = x+4 or %g2, 1, %g2 sethi %hi(CNEST.7201), %g4 or %g4, %lo(CNEST.7201), %g4 stb %g2, [%g4+%g3] 2188 %finish add %o0, 4, %o0 .LVL18: sra %o0, 0, %o0 .LVL19: .L23: 2189 clab = clab+1 %if cnest(cp)&1 # 0 2190 cnest(cp+1) = x; cp = cp+1 lduw [%g5+12], %g2 add %g2, 1, %g2 st %g2, [%g5+12] .LDL2: add %g1, 1, %g1 sra %g1, 0, %g3 sethi %hi(CNEST.7201), %g2 or %g2, %lo(CNEST.7201), %g2 stb %o0, [%g2+%g3] 2191 %end 2192 jmp %o7+8 st %g1, [%g5+16] .LFE224: .align 4 .proc 020 SHOW.6587: .LFB204: 2193 %routine pop label(%integer mode) .LVL541: save %sp, -176, %sp .LVL542: 2194 lmode = dict(dmin) ldx [%g5], %g2 ldx [%g2+8], %g3 lduw [%g2+52], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 mov 1565, %g4 sllx %g4, 2, %g4 add %g1, %g4, %g1 sllx %g1, 2, %g1 add %g3, %g1, %g1 lduw [%g1+4], %g1 2195 %if lmode < 0 %or lmode&1 # mode %start cmp %g1, 0 bl,pn %icc, .L565 st %g1, [%g5+8] 2196 fault(mode+8) xor %i0, 1, %g3 cmp %g0, %g3 subx %g0, -1, %g3 andcc %g1, %g3, %g0 be,a,pn %icc, .L568 add %i0, 8, %i0 .L566: add %i0, 8, %i0 .L568: mov %g2, %g5 call FAULT.6335, 0 sra %i0, 0, %o0 .LVL543: 2197 %finish %else %start return %i7+8 nop .LFE225: .align 4 .proc 020 SETBP.7259: .LFB217: 2198 dmin = dmin+1; label = label-3 lduw [%g2+52], %g1 add %g1, 1, %g1 st %g1, [%g2+52] 2199 %finish ldx [%g5], %g2 lduw [%g2+24], %g1 add %g1, -3, %g1 st %g1, [%g2+24] .L567: 2200 %end 2201 return %i7+8 nop .L565: 2202 %if sstype < 0 %start; ! executable statement sethi %hi(SSTYPE.6139), %g1 lduw [%g1+%lo(SSTYPE.6139)], %g1 cmp %g1, 0 bl,a,pn %icc, .L954 lduw [%g5+60], %g1 .L630: .L632: .L633: 2203 %if level = 0 %start; ! outermost level cmp %g1, 0 be,pn %icc, .L961 nop .L631: 2204 fault(13); ! *order call FAULT.6335, 0 mov 13, %o0 .LVL641: 2205 %finish %else %start 2206 %if access = 0 %start sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+36], %g1 cmp %g1, 0 bne,a,pt %icc, .L992 sethi %hi(SYM.6102), %g1 2207 access = 1; fault(-1); ! only a warning mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 st %g1, [%g2+36] 2208 %finish mov %g2, %g5 call FAULT.6335, 0 mov -1, %o0 .LVL640: 2209 %finish 2210 %finish 2211 2212 %if diag&2 # 0 %start 2213 newline %if sym # nl sethi %hi(SYM.6102), %g1 .L992: lduw [%g1+%lo(SYM.6102)], %g1 cmp %g1, 10 be,pn %icc, .L1030 mov 256, %o2 .LBB625: .LBB626: call _imp_newline, 0 nop .LVL622: .L634: .LBE626: .LBE625: .LBB627: ba,pt %xcc, .L992 sethi %hi(SYM.6102), %g1 .L961: ba,pt %xcc, .L992 sethi %hi(SYM.6102), %g1 .LVL642: .L955: 2214 printstring("ss =") mov 256, %o2 .L1030: sethi %hi(.LC16), %o1 or %o1, %lo(.LC16), %o1 call memcpy, 0 add %fp, 1743, %o0 .LVL623: sethi %hi(5120), %i5 xor %i5, -560, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, 1743, %o1 call memcpy, 0 mov %i4, %o0 .LVL624: mov 256, %o2 mov %i4, %o1 call memcpy, 0 add %fp, 1487, %o0 .LVL625: .LBE627: .LBB628: .LBB629: xor %i5, -928, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, 1487, %o1 call memcpy, 0 mov %i4, %o0 .LVL626: call _imp_printstring, 0 mov %i4, %o0 .LVL627: .LBE629: .LBE628: 2215 write(ss, 1) sethi %hi(SS.6132), %i4 mov 1, %o1 call _imp_writeint, 0 ldsw [%i4+%lo(SS.6132)], %o0 .LVL628: .LBB630: .LBB631: call _imp_newline, 0 nop .LVL629: .LBE631: .LBE630: 2216 newline 2217 count = 5 sethi %hi(COUNT.7225), %g1 mov 5, %g2 st %g2, [%g1+%lo(COUNT.7225)] .LVL630: 2218 name = "" 2219 %finish 2220 xor %i5, -304, %o1 mov 8, %o2 add %fp, 2047, %g1 add %g1, %o1, %o1 sethi %hi(NAME.7224), %o0 call _imp_strncpy, 0 or %o0, %lo(NAME.7224), %o0 .LVL631: .L635: 2221 next = ss xor %i5, -672, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 lduw [%i4+%lo(SS.6132)], %g2 st %g2, [%g1+36] 2222 pending = 0; lmode = 0 st %g0, [%g1+24] 2223 link = 0; decs = 0 st %g0, [%g1+8] st %g0, [%g1+32] .LVL632: 2224 defs = 0; resln = 0; done = 0 st %g0, [%g1+20] .LVL633: sethi %hi(4096), %g3 xor %g3, -181, %g2 add %g2, %fp, %g2 st %g0, [%g2] 2225 ord = level xor %g3, -189, %g2 add %g2, %fp, %g2 xor %g3, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+60], %g1 ba,pt %xcc, .L944 st %g1, [%g4] .L636: .L637: .L638: .L639: .L640: .L641: .LVL643: .L642: 2226 ord = 1 %if this >= 0; ! recordformat declarations sethi %hi(THIS.6126), %g1 lduw [%g1+%lo(THIS.6126)], %g1 cmp %g1, 0 bl,pn %icc, .L955 st %g0, [%g2] .L944: 2227 c(0): mov 1, %g2 xor %g3, -185, %g4 add %g4, %fp, %g4 st %g2, [%g4] 2228 top: %if next # link %start 2229 get next; ->c(class) add %fp, 2047, %g1 sethi %hi(5120), %g2 xor %g2, -672, %g2 add %g1, %g2, %g1 sethi %hi(4096), %g3 xor %g3, -177, %g2 add %g2, %fp, %g2 stx %g1, [%g2] sethi %hi(4096), %g1 .L993: xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+36], %g2 lduw [%g1+32], %g1 cmp %g2, %g1 bne,pn %icc, .L956 sethi %hi(COUNT.7225), %g1 .L644: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL644: .L956: sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 call GETNEXT.7230, 0 mov %i5, %g5 .LVL645: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L695: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L698: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L699: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL680: .L700: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L706: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L707: .L711: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L708: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L714: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L724: .L725: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L745: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L971: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L760: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L767: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L768: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L769: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L789: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL792: .L802: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L803: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L804: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL808: .L817: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL813: .L820: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL818: .L822: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L831: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L837: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L838: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L845: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L846: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L847: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL843: .L850: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL863: .L982: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L878: ba,pt %xcc, .L993 sethi %hi(4096), %g1 .LVL896: .L879: 2230 %finish lduw [%i5+28], %i5 .LVL646: .LDL41: cmp %i5, 180 bgu,pt %icc, .L646 sethi %hi(_imp_current_file), %g1 .LVL647: 2231 2232 !all done, tidy up declarations and jumps 2233 newline %if diag&2 # 0 %and count # 5 2234 lduw [%g1+%lo(COUNT.7225)], %g1 cmp %g1, 5 be,pn %icc, .L1031 sethi %hi(4096), %i3 .LBB636: .LBB637: call _imp_newline, 0 nop .LVL635: .L648: .L1031: .LBE637: .LBE636: 2235 %if lmode&(loop!then!else) # 0 %start; ! pending labels and jumps 2236 op('B', label-1) %if lmode&loop # 0; ! repeat 2237 def lab(label) %if lmode&then # 0; ! entry from then xor %i3, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i4 lduw [%i4+24], %o1 add %o1, -1, %o1 ldx [%i4+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 66, %o0 .LVL636: .L649: 2238 def lab(label-1) %if lmode&else # 0; ! entry from else sethi %hi(5120), %i5 xor %i5, -672, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov %i5, %g5 call DEFLAB.7227, 0 ldsw [%i4+24], %o0 .LVL637: .L650: 2239 %finish lduw [%i4+24], %o0 add %o0, -1, %o0 mov %i5, %g5 call DEFLAB.7227, 0 sra %o0, 0, %o0 .LVL638: .L651: .L652: 2240 2241 %return %if decs = 0 xor %i3, -181, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 cmp %g1, 0 be,pn %icc, .L629 sethi %hi(ATOM1.6085), %g1 .L654: 2242 atom1 = error %and %return %if atom1 # 0; ! %integerroutine lduw [%g1+%lo(ATOM1.6085)], %g1 cmp %g1, 0 bne,pn %icc, .L957 sethi %hi(ORDER.6144), %g1 .L655: 2243 order = ord sethi %hi(4096), %g5 xor %g5, -185, %g2 add %g2, %fp, %g2 lduw [%g2], %g2 st %g2, [%g1+%lo(ORDER.6144)] sethi %hi(ATOM1.6085), %g1 sethi %hi(32768), %g2 st %g2, [%g1+%lo(ATOM1.6085)] .LVL650: .L629: 2244 decl = decl&(\15)+decmap(decl&15); ! construct declarator flags sethi %hi(DECL.6108), %g4 lduw [%g4+%lo(DECL.6108)], %g1 and %g1, 15, %g2 sllx %g2, 2, %g2 add %fp, 2047, %g3 add %g3, %g2, %g2 and %g1, -16, %g1 sethi %hi(5120), %g3 xor %g3, -624, %g3 lduw [%g2+%g3], %g2 add %g1, %g2, %g1 st %g1, [%g4+%lo(DECL.6108)] 2245 atom1 = atoms(decl&15); ! generate class xor %g5, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldx [%g2+8], %g3 and %g1, 15, %g2 add %g3, %g2, %g3 sethi %hi(35677184), %g2 srlx %g2, 9, %g2 ldub [%g3+%g2], %g2 sethi %hi(ATOM1.6085), %g3 st %g2, [%g3+%lo(ATOM1.6085)] 2246 %if otype # 0 %start; ! own, const etc. sethi %hi(OTYPE.6114), %g3 lduw [%g3+%lo(OTYPE.6114)], %g3 cmp %g3, 0 be,a,pt %icc, .L1032 sethi %hi(SSTYPE.6139), %g1 2247 atom1 = atom1+1 %if atom1 # proc cmp %g2, 7 be,pn %icc, .L657 add %g2, 1, %g2 2248 %if otype = 2 %start; ! const sethi %hi(ATOM1.6085), %g4 st %g2, [%g4+%lo(ATOM1.6085)] .L657: cmp %g3, 2 be,pn %icc, .L958 sethi %hi(DECL.6108), %g2 .L658: 2249 n = decl&15 2250 %if n&1 # 0 %start 2251 decl = decl!prot or %g1, 256, %g1 .LVL652: sethi %hi(DECL.6108), %g2 .LVL653: ba,pt %xcc, .L662 st %g1, [%g2+%lo(DECL.6108)] .LVL654: .L659: 2252 decl = decl!const bit %if decl&2_1111111 = iform andcc %g1, 1, %g0 be,pt %xcc, .L659 sethi %hi(8192), %g2 2253 %finish or %g2, 256, %g2 or %g1, %g2, %g1 .LVL655: sethi %hi(DECL.6108), %g2 .LVL656: ba,pt %xcc, .L662 st %g1, [%g2+%lo(DECL.6108)] .L959: 2254 %else 2255 decl = decl!own bit or %g1, 512, %g1 st %g1, [%g2+%lo(DECL.6108)] .L656: .L660: .L661: .L662: 2256 %finish 2257 %finish 2258 sstype = 1 %if sstype = 0 %and atom1 = proc sethi %hi(SSTYPE.6139), %g1 .L1032: lduw [%g1+%lo(SSTYPE.6139)], %g1 cmp %g1, 0 bne,pt %icc, .L1033 sethi %hi(ATOM1.6085), %g2 2259 atom1 = atom1+1 %if decl&spec # 0; ! onto spec variant sethi %hi(ATOM1.6085), %g1 lduw [%g1+%lo(ATOM1.6085)], %g1 cmp %g1, 7 be,pn %icc, .L959 sethi %hi(SSTYPE.6139), %g1 .L663: .L1033: 2260 ocount = 0 %and cont = '+' %if atom1 = 5; ! own array lduw [%g2+%lo(ATOM1.6085)], %g1 add %g1, 1, %g1 .LDL39: cmp %g1, 5 be,pn %icc, .L960 st %g1, [%g2+%lo(ATOM1.6085)] .L664: mov 1, %g2 st %g2, [%g1+%lo(SSTYPE.6139)] sethi %hi(ATOM1.6085), %g1 mov 8, %g2 ba,pt %xcc, .L664 st %g2, [%g1+%lo(ATOM1.6085)] .L960: 2261 %if anyform(decl&15) = 0 %start; ! check meaningful sethi %hi(DECL.6108), %g1 lduw [%g1+%lo(DECL.6108)], %g2 and %g2, 15, %g1 add %fp, 2047, %g3 add %g3, %g1, %g1 ldub [%g1-24], %g1 cmp %g1, 0 bne,pn %icc, .L629 andcc %g2, 16, %g0 sethi %hi(OCOUNT.6141), %g1 st %g0, [%g1+%lo(OCOUNT.6141)] 2262 %if decl>>4&7 = record %start bne,pt %xcc, .L1034 sethi %hi(FDEF.6125), %g1 sethi %hi(CONT.6106), %g1 mov 43, %g2 ba,pt %xcc, .L664 st %g2, [%g1+%lo(CONT.6106)] .LVL657: .L669: .L670: 2263 this = fdef %if tag(fdef)_flags&spec # 0 2264 atom1 = error+21 %if fdef = this; ! *context for format lduw [%g1+%lo(FDEF.6125)], %g2 sethi %hi(THIS.6126), %g1 st %g2, [%g1+%lo(THIS.6126)] .LDL40: 2265 %finish sethi %hi(ATOM1.6085), %g2 sethi %hi(32768), %g1 or %g1, 21, %g1 st %g1, [%g2+%lo(ATOM1.6085)] .L665: .L666: 2266 atom1 = error+10 %if fdef = 0; ! *size sethi %hi(FDEF.6125), %g1 .L1034: lduw [%g1+%lo(FDEF.6125)], %g1 cmp %g1, 0 bne,pt %icc, .L629 sethi %hi(ATOM1.6085), %g2 2267 %finish sethi %hi(32768), %g1 or %g1, 10, %g1 ba,pt %xcc, .L629 st %g1, [%g2+%lo(ATOM1.6085)] .LVL639: .L954: 2268 %return 2269 2270 atop: access = 0; ->top 2271 ! declarators sethi %hi(4096), %g1 .L1004: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ba,pt %xcc, .L1004 sethi %hi(4096), %g1 .LVL740: .L766: 2272 c(88): ; ! rtype ba,pt %xcc, .L952 st %g0, [%g1+36] .LVL692: .L723: 2273 c(28): decl = x&(\7); ! stype 2274 fdef = x&7; ! precision sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 and %g1, -8, %g3 sethi %hi(DECL.6108), %g2 st %g3, [%g2+%lo(DECL.6108)] and %g1, 7, %g3 sethi %hi(FDEF.6125), %g2 st %g3, [%g2+%lo(FDEF.6125)] 2275 fdef = reals ln %if x&2_1110001 = real<<4+1; ! convert to long andcc %g1, 1, %g1 sethi %hi(4096), %g3 xor %g3, -181, %g2 add %g2, %fp, %g2 bne,pt %icc, .L952 st %g1, [%g2] 2276 decs = 1; ->top sethi %hi(REALSLN.6115), %g1 lduw [%g1+%lo(REALSLN.6115)], %g2 sethi %hi(FDEF.6125), %g1 st %g2, [%g1+%lo(FDEF.6125)] mov 1, %g1 xor %g3, -181, %g2 add %g2, %fp, %g2 ba,pt %xcc, .L952 st %g1, [%g2] .L671: .L672: 2277 c(34): ; ! own 2278 c(35): otype = x; ord = 1; ->top; ! external 2279 c(152): decl = decl+x<<1; ->top; ! xname sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g2 sethi %hi(OTYPE.6114), %g1 st %g2, [%g1+%lo(OTYPE.6114)] .LVL658: 2280 c(31): ; ! proc mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -185, %g2 add %g2, %fp, %g2 sethi %hi(DECL.6108), %g2 sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 add %g1, %g1, %g1 lduw [%g2+%lo(DECL.6108)], %g3 add %g1, %g3, %g1 2281 c(32): spec mode = level+1; ! fn/map ba,pt %xcc, .L952 st %g1, [%g2] .LVL659: .L673: ba,pt %xcc, .L952 st %g1, [%g2+%lo(DECL.6108)] .L674: .L675: 2282 decl = decl!prot %if x = 9; ! function sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+60], %g1 add %g1, 1, %g1 sethi %hi(SPECMODE.6140), %g2 st %g1, [%g2+%lo(SPECMODE.6140)] sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 cmp %g1, 9 be,pn %icc, .L963 sethi %hi(DECL.6108), %g2 .L676: .L677: .LVL660: 2283 c(29): ord = 1; ! array lduw [%g2+%lo(DECL.6108)], %g1 or %g1, 256, %g1 ba,pt %xcc, .L677 st %g1, [%g2+%lo(DECL.6108)] .L679: 2284 dim = 0 sethi %hi(DIM.6109), %g1 st %g0, [%g1+%lo(DIM.6109)] mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -185, %g2 add %g2, %fp, %g2 st %g1, [%g2] .LVL661: .L678: 2285 c(30): decl = decl+x; ! name 2286 decs = 1 sethi %hi(DECL.6108), %g2 lduw [%g2+%lo(DECL.6108)], %g1 sethi %hi(X.6084), %g3 lduw [%g3+%lo(X.6084)], %g3 add %g1, %g3, %g1 st %g1, [%g2+%lo(DECL.6108)] .LVL662: mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -181, %g2 add %g2, %fp, %g2 2287 ->top ba,pt %xcc, .L952 st %g1, [%g2] .LVL663: .L963: 2288 c(27): lit = 0; ! arrayd 2289 %if pending # 0 %start sethi %hi(LIT.6159), %g1 st %g0, [%g1+%lo(LIT.6159)] sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 cmp %g1, 0 bne,pn %icc, .L964 sethi %hi(4096), %g1 .L680: .L682: 2290 pop lit xor %g1, -177, %g1 add %g1, %fp, %g1 call POPLIT.7320, 0 ldx [%g1], %g5 .LVL666: 2291 %unless 0 top mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -181, %g2 add %g2, %fp, %g2 ba,pt %xcc, .L952 st %g1, [%g2] .LVL665: .L964: 2298 c(37): x = x!subname; ! record 2299 c(36): lit = 0; ! string sethi %hi(X.6084), %g2 lduw [%g2+%lo(X.6084)], %g1 or %g1, 2048, %g1 st %g1, [%g2+%lo(X.6084)] .L684: 2300 %if pending # 0 %start sethi %hi(LIT.6159), %g1 st %g0, [%g1+%lo(LIT.6159)] sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 cmp %g1, 0 bne,pn %icc, .L965 sethi %hi(4096), %g1 .L685: .L687: 2301 pop lit xor %g1, -177, %g1 add %g1, %fp, %g1 call POPLIT.7320, 0 ldx [%g1], %g5 .LVL669: 2302 %unless 0 < lit %and lit <= 255 %start; ! max length wrong sethi %hi(LIT.6159), %g1 2303 atom1 = error+10; %return lduw [%g1+%lo(LIT.6159)], %g1 add %g1, -1, %g1 cmp %g1, 254 bleu,pn %icc, .L687 sethi %hi(ATOM1.6085), %g2 .L686: sethi %hi(32768), %g1 or %g1, 10, %g1 2304 %finish ba,pt %xcc, .L629 st %g1, [%g2+%lo(ATOM1.6085)] .L689: 2305 %finish 2306 fdef = lit; ! format or length sethi %hi(LIT.6159), %g1 lduw [%g1+%lo(LIT.6159)], %g2 sethi %hi(FDEF.6125), %g1 st %g2, [%g1+%lo(FDEF.6125)] .L688: 2307 c(33): decl = x; ! switch 2308 decs = 1 sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g2 sethi %hi(DECL.6108), %g1 st %g2, [%g1+%lo(DECL.6108)] .LVL667: mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -181, %g2 add %g2, %fp, %g2 2309 ->top ba,pt %xcc, .L952 st %g1, [%g2] .LVL668: .L965: 2310 c(39): decl = decl!spec; ! spec 2311 ocount = -1; ! no initialisation sethi %hi(DECL.6108), %g2 lduw [%g2+%lo(DECL.6108)], %g1 or %g1, 128, %g1 st %g1, [%g2+%lo(DECL.6108)] mov -1, %g1 sethi %hi(OCOUNT.6141), %g2 st %g1, [%g2+%lo(OCOUNT.6141)] 2312 spec mode = -1 sethi %hi(SPECMODE.6140), %g2 2313 ->top ba,pt %xcc, .L952 st %g1, [%g2+%lo(SPECMODE.6140)] .L690: 2314 c(38): decl = 64+4; ! recordformat (spec) 2315 order = 1 sethi %hi(DECL.6108), %g1 mov 68, %g2 st %g2, [%g1+%lo(DECL.6108)] sethi %hi(ORDER.6144), %g1 mov 1, %g2 st %g2, [%g1+%lo(ORDER.6144)] 2316 atom1 = x sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 sethi %hi(ATOM1.6085), %g2 2317 decl = decl!spec %if atom1 = 12; ! formatspec cmp %g1, 12 be,pn %icc, .L966 st %g1, [%g2+%lo(ATOM1.6085)] .L691: 2318 fdef = tmax+1; ! format tag sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+64], %g1 add %g1, 1, %g1 sethi %hi(FDEF.6125), %g2 sethi %hi(DECL.6108), %g1 mov 196, %g2 ba,pt %xcc, .L691 st %g2, [%g1+%lo(DECL.6108)] .L692: 2319 %return ba,pt %xcc, .L629 st %g1, [%g2+%lo(FDEF.6125)] .L966: 2320 c(175): id = id+1; tag(x)_index = id; %return; ! FSID 2321 c(41): decs = 1; decl = x!spec!closed; ->top; ! label sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+56], %g2 add %g2, 1, %g2 st %g2, [%g1+56] 2322 c(133): recid = 0; rbase = tmin-1; ! fname ldx [%g1+8], %g3 sethi %hi(X.6084), %g1 ldsw [%g1+%lo(X.6084)], %g4 add %g4, %g4, %g1 add %g1, %g4, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g3 mov 1533, %g1 sllx %g1, 5, %g1 mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -181, %g2 add %g2, %fp, %g2 2323 this = x ba,pt %xcc, .L629 st %g2, [%g3+%g1] .L693: .LVL670: sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 sethi %hi(16384), %g2 or %g2, 128, %g2 or %g1, %g2, %g1 sethi %hi(DECL.6108), %g2 st %g1, [%g2+%lo(DECL.6108)] sethi %hi(4096), %g4 xor %g4, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g2 sethi %hi(4312064), %g1 srlx %g1, 8, %g1 st %g0, [%g2+%g1] sethi %hi(X.6084), %g2 lduw [%g2+%lo(X.6084)], %o0 sethi %hi(THIS.6126), %g2 st %o0, [%g2+%lo(THIS.6126)] 2324 fm base = fdef; format list = tmin ba,pt %xcc, .L952 st %g1, [%g2] .LVL671: .L694: sethi %hi(TMIN.6131), %g1 lduw [%g1+%lo(TMIN.6131)], %g1 add %g1, -1, %g3 sethi %hi(RBASE.6129), %g2 st %g3, [%g2+%lo(RBASE.6129)] sethi %hi(FDEF.6125), %g2 lduw [%g2+%lo(FDEF.6125)], %g3 sethi %hi(FMBASE.6153), %g2 st %g3, [%g2+%lo(FMBASE.6153)] 2325 def(this); ->top sethi %hi(FORMATLIST.6155), %g2 st %g1, [%g2+%lo(FORMATLIST.6155)] xor %g4, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call DEF.7277, 0 sra %o0, 0, %o0 .LVL672: 2326 c(148): fdef = 0 %and ->top %if next = 0; ! reclb 2327 get next; ! skip name sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+36], %g1 cmp %g1, 0 bne,pn %icc, .L696 sethi %hi(FDEF.6125), %g1 sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 call GETNEXT.7230, 0 ldx [%g1], %g5 .LVL673: 2328 fdef = x sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g2 sethi %hi(FDEF.6125), %g1 2329 ->top ba,pt %xcc, .L952 st %g0, [%g1+%lo(FDEF.6125)] .L696: ba,pt %xcc, .L952 st %g2, [%g1+%lo(FDEF.6125)] .L697: 2330 2331 c(127): add char( '}' ); ->top; ! %POUT 2332 c(126): add char( '{' ); ->top; ! %PIN sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 125, %o0 .LVL674: 2333 c(174): set bp; ! rangerb sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 123, %o0 .LVL675: 2334 c(171): ; ! fmlb sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 call SETBP.7259, 0 ldx [%g1], %g5 .LVL676: .L702: 2335 c(172): ; ! fmrb 2336 c(173): add char( '~' ) 2337 add char( class-171+'A' ); ->top; ! fmor sethi %hi(4096), %i4 .L994: xor %i4, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL677: ldx [%i5+8], %g5 call ADDCHAR.6195, 0 mov 126, %o0 .LVL678: xor %i4, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+28], %o0 add %o0, -106, %o0 ldx [%i5+8], %g5 call ADDCHAR.6195, 0 and %o0, 0xff, %o0 .LVL679: ba,pt %xcc, .L994 sethi %hi(4096), %i4 .L701: ba,pt %xcc, .L994 sethi %hi(4096), %i4 .L703: 2338 c(168): rbase = -rbase; ! orrb 2339 sstype = 0; spec mode = 0 sethi %hi(RBASE.6129), %g2 lduw [%g2+%lo(RBASE.6129)], %g1 sub %g0, %g1, %g1 st %g1, [%g2+%lo(RBASE.6129)] sethi %hi(SSTYPE.6139), %g1 st %g0, [%g1+%lo(SSTYPE.6139)] 2340 sethi %hi(SPECMODE.6140), %g1 st %g0, [%g1+%lo(SPECMODE.6140)] .L704: 2341 c(147): search base = 0; ! recrb 2342 tag(this)_app = tmin sethi %hi(SEARCHBASE.6154), %g1 st %g0, [%g1+%lo(SEARCHBASE.6154)] sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL681: ldx [%i5+8], %g4 sethi %hi(THIS.6126), %g1 ldsw [%g1+%lo(THIS.6126)], %g2 add %g2, %g2, %g1 add %g1, %g2, %g3 sllx %g3, 3, %g3 add %g4, %g3, %g4 sethi %hi(TMIN.6131), %g3 lduw [%g3+%lo(TMIN.6131)], %g5 sethi %hi(12555264), %g3 srlx %g3, 8, %g3 st %g5, [%g4+%g3] 2343 tag(this)_format = rbase ldx [%i5+8], %g3 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g2 sethi %hi(RBASE.6129), %g1 lduw [%g1+%lo(RBASE.6129)], %g3 sethi %hi(6278144), %g1 srlx %g1, 7, %g1 2344 ->top ba,pt %xcc, .L952 st %g3, [%g2+%g1] .LVL682: .L705: 2345 2346 c(45): add char( 'U' ) %if x = 36; ->top; ! sign 2347 c(46): add char( '\' ); ->top; ! uop sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 cmp %g1, 36 bne,pt %icc, .L993 sethi %hi(4096), %g1 2348 c(47):; ! mod xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 85, %o0 .LVL683: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 92, %o0 .LVL684: 2349 c(48):; ! dot 2350 c(42):; ! op1 2351 c(43):; ! op2 2352 c(44): add char( operator(x) ); ->top; ! op3 2353 c(56): ; ! and sethi %hi(X.6084), %g1 .L995: lduw [%g1+%lo(X.6084)], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 sethi %hi(4096), %g2 xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldx [%g2+8], %g5 call ADDCHAR.6195, 0 ldub [%g1-40], %o0 .LVL685: ba,pt %xcc, .L995 sethi %hi(X.6084), %g1 .L709: ba,pt %xcc, .L995 sethi %hi(X.6084), %g1 .L710: ba,pt %xcc, .L995 sethi %hi(X.6084), %g1 .L712: .L713: 2354 c(57): push(x); ->top; ! or 2355 c(58): cnest(cp) = cnest(cp)!!2; ->top; ! not sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 sethi %hi(X.6084), %g1 call PUSH.7325, 0 ldsw [%g1+%lo(X.6084)], %o0 .LVL686: 2356 c(138): x = 128+32+16+4; ! csep: treat like %while sethi %hi(CNEST.7201), %g1 or %g1, %lo(CNEST.7201), %g1 sethi %hi(4096), %g2 xor %g2, -177, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldsw [%g2+16], %g3 ldub [%g1+%g3], %g2 xor %g2, 2, %g2 2357 c(59): ; ! while ba,pt %xcc, .L952 stb %g2, [%g1+%g3] .L715: sethi %hi(X.6084), %g1 mov 180, %g2 st %g2, [%g1+%lo(X.6084)] .L717: 2358 c(60): %if class = 138 %then op('f', label-1) %else def lab(label-1); ! until 2359 c(166): ; ! runtil sethi %hi(4096), %g1 .L997: xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+28], %g1 cmp %g1, 138 be,pn %icc, .L967 sethi %hi(4096), %g2 .L718: ba,pt %xcc, .L997 sethi %hi(4096), %g1 .L967: 2360 c(62): lmode = (lmode&(else!loop)) !(x>>3); ! cword sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %o1 add %o1, -1, %o1 ldx [%g1+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 102, %o0 .LVL688: 2361 clab = label; cp = 1; cnest(1) = x&7 ba,pt %xcc, .L996 sethi %hi(X.6084), %g1 .L716: ba,pt %xcc, .L996 sethi %hi(X.6084), %g1 .L719: .L720: .L721: sethi %hi(X.6084), %g1 .L996: lduw [%g1+%lo(X.6084)], %g2 sethi %hi(4096), %g5 xor %g5, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g4 lduw [%g4+8], %g1 and %g1, 24, %g1 srl %g2, 3, %g3 or %g1, %g3, %g1 st %g1, [%g4+8] xor %g5, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 st %g1, [%g4+12] 2362 ->top mov 1, %g1 st %g1, [%g4+16] ba,pt %xcc, .L952 stb %g2, [%g1+%lo(CNEST.7201)+1] .L722: 2363 c(72): pop label(0); ! repeat xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %o0 add %o0, -1, %o0 xor %g2, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call DEFLAB.7227, 0 sra %o0, 0, %o0 .LVL687: and %g2, 7, %g2 sethi %hi(CNEST.7201), %g1 2364 def lab(label+1) %if lmode&32 # 0; ->atop sethi %hi(4096), %i4 xor %i4, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL689: mov %i5, %g5 call POPLABEL.7330, 0 mov 0, %o0 .LVL690: 2365 c(69): pop label(1); ->top; ! finish xor %i4, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %o0 add %o0, 1, %o0 mov %i5, %g5 call DEFLAB.7227, 0 sra %o0, 0, %o0 .LVL691: .L667: .L668: 2366 c(163): ; ! xelse sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call POPLABEL.7330, 0 mov 1, %o0 .LVL693: 2367 c(70): pop label(1); ! finish else ... 2368 fault(7) %if lmode&3 = 3; ! dangling else sethi %hi(4096), %i5 .LVL694: xor %i5, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call POPLABEL.7330, 0 mov 1, %o0 .LVL695: 2369 c(68): lmode = (lmode&else)!3; ! ...else... xor %i5, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 7, %o0 .LVL696: .L726: .L727: 2370 %if access # 0 %start sethi %hi(4096), %g2 xor %g2, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 lduw [%i5+8], %g1 and %g1, 8, %g1 or %g1, 3, %g1 st %g1, [%i5+8] xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g2 lduw [%g2+36], %g1 cmp %g1, 0 be,a,pt %icc, .L1035 sethi %hi(4096), %g2 2371 op('F', label-1); lmode = else!3 lduw [%g2+24], %o1 add %o1, -1, %o1 ldx [%g2+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 70, %o0 .LVL697: 2372 %finish mov 11, %g1 st %g1, [%i5+8] .L728: 2373 def lab(label) sethi %hi(4096), %g2 .L1035: xor %g2, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 mov %i5, %g5 xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 call DEFLAB.7227, 0 ldsw [%g1+24], %o0 .LVL698: 2374 ->top %if next # 0 lduw [%i5+36], %g1 cmp %g1, 0 bne,a,pt %icc, .L993 sethi %hi(4096), %g1 2375 c(120): ; ! %MSTART 2376 c(67): ; ! start 2377 c(71): ; ! cycle 2378 stcy: def lab(label-1) %and lmode = loop %if lmode = 0; ! cycle 2379 dmin = dmin-1; abandon(3) %if dmin <= dmax ba,pt %xcc, .L998 sethi %hi(5120), %g1 .L729: .LVL699: .L730: .L732: .L733: sethi %hi(5120), %g1 .L998: xor %g1, -672, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 lduw [%g1+8], %g1 cmp %g1, 0 be,pn %icc, .L968 sethi %hi(4096), %g1 .L734: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g2 lduw [%g2+52], %g1 add %g1, -1, %g1 st %g1, [%g2+52] ba,pt %xcc, .L998 sethi %hi(5120), %g1 .LVL701: .L968: 2380 dict(dmin) = lmode sethi %hi(DMAX.6130), %g2 lduw [%g2+%lo(DMAX.6130)], %g2 cmp %g2, %g1 bge,pn %icc, .L969 sethi %hi(4096), %g1 .L735: .L999: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g4 ldx [%g4+8], %g2 lduw [%g4+52], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 mov 1565, %g3 sllx %g3, 2, %g3 add %g1, %g3, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 sethi %hi(5120), %g2 xor %g2, -672, %g2 add %fp, 2047, %g3 add %g3, %g2, %g2 lduw [%g2+8], %g2 st %g2, [%g1+4] xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %o0 add %o0, -1, %o0 sethi %hi(5120), %i5 xor %i5, -672, %i5 add %g2, %i5, %i5 mov %i5, %g5 call DEFLAB.7227, 0 sra %o0, 0, %o0 .LVL702: ba,pt %xcc, .L999 sethi %hi(4096), %g1 .LVL704: .L736: 2381 label = label+3 lduw [%g4+24], %g1 add %g1, 3, %g1 mov 16, %g1 ba,pt %xcc, .L734 st %g1, [%i5+8] .L969: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 3, %o0 .LVL703: 2382 %return ba,pt %xcc, .L629 st %g1, [%g4+24] .LVL700: .L731: 2383 2384 c(64): fault(13) %if dict(dmin) >= 0 %or inhibit # 0; ! on event 2385 inhibit = 1 sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g4 ldx [%g4+8], %g2 lduw [%g4+52], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 mov 1565, %g3 sllx %g3, 2, %g3 add %g1, %g3, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 lduw [%g1+4], %g1 cmp %g1, 0 bge,pn %icc, .L1036 sethi %hi(4096), %g1 mov 1, %g1 .L1037: sethi %hi(4096), %g2 xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 st %g1, [%g2+20] .LVL706: 2386 n = 0 lduw [%g4+20], %g1 cmp %g1, 0 be,pt %icc, .L1037 mov 1, %g1 .L737: 2387 n = 16_FFFF %if pending = 0; ! * = all events sethi %hi(5120), %g1 xor %g1, -672, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 lduw [%g1+24], %g1 cmp %g1, 0 be,pt %icc, .L739 or %i5, 1023, %i5 2388 %while pending > 0 %cycle sethi %hi(4096), %g1 .L1036: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 13, %o0 .LVL705: .L738: sethi %hi(64512), %i5 .LVL707: 2389 pop lit; fault(10) %if lit&(\15) # 0; ! too big ble,pn %icc, .L739 mov 0, %i5 sethi %hi(5120), %i4 xor %i4, -672, %i4 add %g2, %i4, %i4 lduw [%i4+24], %g1 .LVL710: cmp %g1, 0 ble,pn %icc, .L1038 sethi %hi(4096), %g1 .LVL711: .L742: call POPLIT.7320, 0 mov %i4, %g5 .LVL712: 2390 j = 1<stcy ldx [%i4+8], %g5 ldsw [%i4+24], %o1 call OP.6199, 0 mov 44, %o0 .LVL717: sethi %hi(5120), %g1 xor %g1, -672, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 mov 5, %g2 ba,pt %xcc, .L734 st %g2, [%g1+8] .LVL718: .L743: 2396 2397 c(104): op('J', tag(x)_index); ! l 2398 inhibit = 1; ->atop sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL719: ldx [%i5+8], %g5 sethi %hi(X.6084), %g1 ldsw [%g1+%lo(X.6084)], %g2 add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 ldsw [%g1+%g2], %o1 call OP.6199, 0 mov 74, %o0 .LVL720: mov 1, %g1 2399 c(149): stats = stats-1; ! lab ba,pt %xcc, .L667 st %g1, [%i5+20] .LVL721: .L744: 2400 access = 1; inhibit = 1 sethi %hi(STATS.6100), %g2 lduw [%g2+%lo(STATS.6100)], %g1 add %g1, -1, %g1 st %g1, [%g2+%lo(STATS.6100)] mov 1, %g1 sethi %hi(4096), %g2 xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 st %g1, [%g2+36] 2401 op('L', tag(x)_index); ->top st %g1, [%g2+20] ldx [%g2+8], %g5 sethi %hi(X.6084), %g1 ldsw [%g1+%lo(X.6084)], %g2 add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 ldsw [%g1+%g2], %o1 call OP.6199, 0 mov 76, %o0 .LVL722: 2402 2403 c(63): j = dmin; l = label-3; ! exit, continue 2404 %cycle sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g2 lduw [%g2+52], %i5 .LVL723: 2405 fault(7) %and ->top %if dict(j) < 0 lduw [%g2+24], %g1 add %g1, -3, %g1 st %g1, [%g2+16] add %i5, -1, %g4 ldx [%g2+8], %g5 sra %g4, 0, %g1 mov 1565, %g2 sllx %g2, 2, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 add %g5, %g1, %g1 lduw [%g1+4], %g1 cmp %g1, 0 bl,pn %icc, .L746 andcc %g1, 1, %g0 sra %i5, 0, %g1 add %g1, %g3, %g1 sllx %g1, 2, %g1 add %g5, %g1, %g1 lduw [%g1+4], %g1 cmp %g1, 0 bl,pn %icc, .L746 add %i5, 1, %g2 .L749: mov %g4, %i5 .LVL726: .L748: 2406 %exit %if dict(j)&1 = 0 be,pn %xcc, .L970 mov %g2, %g3 .L747: .LVL724: andcc %g1, 1, %g0 be,pn %xcc, .L1039 sethi %hi(X.6084), %g1 sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 7, %o0 .LVL728: 2407 j = j+1; l = l-3 ba,pt %xcc, .L747 mov %g2, %i5 .LVL725: .L970: 2408 %repeat sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g4 lduw [%g4+16], %g1 add %g1, -3, %g1 st %g1, [%g4+16] .LDL42: 2409 l = l+1 %if x = 32; ! continue sethi %hi(X.6084), %g1 .L1039: lduw [%g1+%lo(X.6084)], %i4 cmp %i4, 32 be,pn %icc, .L971 sethi %hi(4096), %g1 .L750: 2410 op('F', l) sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i3 ldsw [%i3+16], %o1 call OP.6199, 0 mov 70, %o0 .LVL727: sra %i5, 0, %g1 sllx %g1, 2, %g1 ldx [%i3+8], %g2 add %g2, %g1, %g2 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g2 lduw [%g2+16], %g1 add %g1, 1, %g1 ba,pt %xcc, .L750 st %g1, [%g2+16] .LVL729: .L751: 2411 dict(j) = dict(j)!x; ! show given sethi %hi(6411264), %g1 srlx %g1, 8, %g1 lduw [%g2+%g1], %g3 or %g3, %i4, %g3 2412 ->atop ba,pt %xcc, .L667 st %g3, [%g2+%g1] .L746: 2413 2414 c(50): add char( 'C' ); ->cop; ! acomp 2415 c(49): sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 67, %o0 .LVL730: 2416 %if next # 0 %start; ! comparator sethi %hi(4096), %g2 xor %g2, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL731: lduw [%i5+36], %g1 cmp %g1, 0 be,a,pt %icc, .L754 sethi %hi(4096), %g1 2417 add char( '"' ) xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 34, %o0 .LVL732: 2418 push(0); ! double sided mov %i5, %g5 call PUSH.7325, 0 mov 0, %o0 .LVL733: 2419 %finish %else %start 2420 add char( '?' ) xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 63, %o0 .LVL734: 2421 %finish 2422 2423 cop: x = x!!1 %if cnest(cp)&2 # 0; ! invert the condition 2424 j = cp; l = clab sethi %hi(4096), %g5 xor %g5, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+16], %g2 .LVL935: 2425 %while cnest(j)&4 = 0 %cycle ba,pt %xcc, .L1001 sethi %hi(X.6084), %g1 .L753: ba,pt %xcc, .L1001 sethi %hi(X.6084), %g1 .L754: ba,pt %xcc, .L1001 sethi %hi(X.6084), %g1 .LVL735: .L759: .L761: sethi %hi(X.6084), %g1 .L1001: lduw [%g1+%lo(X.6084)], %g4 xor %g4, 1, %g4 st %g4, [%g1+%lo(X.6084)] .LDL49: lduw [%g1+12], %g3 xor %g5, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 st %g3, [%g1+16] 2426 j = j-1; l = l-cnest(j)&1 sra %g2, 0, %g5 sethi %hi(CNEST.7201), %g1 or %g1, %lo(CNEST.7201), %g1 ldub [%g1+%g5], %g1 andcc %g1, 1, %g0 bne,pn %xcc, .L756 sethi %hi(CNEST.7201), %g5 add %g2, -1, %g2 .LVL936: cmp %g1, 0 be,pt %icc, .L757 sub %g3, %g1, %g3 sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 st %g3, [%g1+16] .L756: 2427 %repeat or %g5, %lo(CNEST.7201), %g5 .L757: sra %g2, 0, %g1 ldub [%g5+%g1], %g1 and %g1, 1, %g1 .LDL50: 2428 op(cc(x), l) sra %g4, 0, %g1 add %fp, 2047, %g2 .LVL937: add %g2, %g1, %g1 sethi %hi(4096), %i5 xor %i5, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldx [%g2+8], %g5 ldsw [%g2+16], %o1 call OP.6199, 0 ldub [%g1-48], %o0 .LVL938: 2429 def lab(clab+1) %if cnest(cp)&1 # 0 2430 cp = cp-1 xor %i5, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 lduw [%i5+12], %o0 add %o0, 1, %o0 mov %i5, %g5 call DEFLAB.7227, 0 sra %o0, 0, %o0 .LVL939: .L758: lduw [%i5+16], %g1 add %g1, -1, %g1 st %g1, [%i5+16] 2431 clab = clab-cnest(cp)&1 sra %g1, 0, %g1 sethi %hi(CNEST.7201), %g2 or %g2, %lo(CNEST.7201), %g2 ldub [%g2+%g1], %g1 and %g1, 1, %g2 lduw [%i5+12], %g1 sub %g1, %g2, %g1 2432 ->top ba,pt %xcc, .L952 st %g1, [%i5+12] .LVL940: .L917: 2433 2434 c(78): ; ! fresult 2435 c(79): ; ! mresult 2436 c(80): open = 0; ! return, true, false 2437 c(82): access = 0; ! stop sethi %hi(4096), %g1 .L1002: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 st %g0, [%g1+32] .L762: ba,pt %xcc, .L1002 sethi %hi(4096), %g1 .L763: 2438 c(89): ; ! addop sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 st %g0, [%g1+36] .L764: 2439 c(81): add char( x ); ->top; ! monitor 2440 c(65): pop lit; op('e', lit); ->atop; ! signal sethi %hi(4096), %g1 .L1003: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sethi %hi(X.6084), %g1 call ADDCHAR.6195, 0 ldub [%g1+%lo(X.6084+3)], %o0 .LVL736: ba,pt %xcc, .L1003 sethi %hi(4096), %g1 .L765: 2441 c(51): add char( 'S' ); ->top; ! eq sethi %hi(4096), %i5 .LVL737: xor %i5, -177, %g1 add %g1, %fp, %g1 call POPLIT.7320, 0 ldx [%g1], %g5 .LVL738: 2442 c(53): add char( 'j' ); ->top; ! jam transfer xor %i5, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sethi %hi(LIT.6159), %g1 ldsw [%g1+%lo(LIT.6159)], %o1 call OP.6199, 0 mov 101, %o0 .LVL739: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 83, %o0 .LVL741: 2443 c(52): add char( 'Z' ); ->top; ! eqeq sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 106, %o0 .LVL742: 2444 c(74): %if level = 0 %start; ! begin sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 90, %o0 .LVL743: 2445 %if progmode <= 0 %then progmode = 1 %else fault(7) sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+60], %g1 cmp %g1, 0 bne,pn %icc, .L772 sethi %hi(PROGMODE.6138), %g1 lduw [%g1+%lo(PROGMODE.6138)], %g1 cmp %g1, 0 bg,pn %icc, .L771 mov 1, %g2 2446 !{Permit BEGIN after external defs} sethi %hi(PROGMODE.6138), %g1 st %g2, [%g1+%lo(PROGMODE.6138)] .L770: .L772: 2447 %finish 2448 spec mode = level+1 sethi %hi(4096), %g1 .L1005: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g3 lduw [%g3+60], %g1 add %g1, 1, %g1 sethi %hi(SPECMODE.6140), %g2 st %g1, [%g2+%lo(SPECMODE.6140)] ba,pt %xcc, .L1005 sethi %hi(4096), %g1 .L773: 2449 block x = 0 sethi %hi(BLOCKX.6161), %g1 st %g0, [%g1+%lo(BLOCKX.6161)] sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 7, %o0 .LVL745: 2450 add char( 'H' ) ldx [%g3+8], %g5 call ADDCHAR.6195, 0 mov 72, %o0 .LVL744: ba,pt %xcc, .L629 nop .L771: 2451 %return 2452 c(77): perm = 0; lines = 0; stats = 0; ! endofperm 2453 close input sethi %hi(PERM.6137), %g1 st %g0, [%g1+%lo(PERM.6137)] 2454 select input(source) sethi %hi(LINES.6094), %g1 st %g0, [%g1+%lo(LINES.6094)] 2455 list = list-1 sethi %hi(STATS.6100), %g1 .LBB639: .LBB640: call _imp_closeinput, 0 st %g0, [%g1+%lo(STATS.6100)] .LVL746: .LBE640: .LBE639: .LBB641: .LBB642: sethi %hi(_imp_InStream), %g1 mov 1, %g2 st %g2, [%g1+%lo(_imp_InStream)] sethi %hi(_imp_infile), %g1 ldx [%g1+%lo(_imp_infile)+296], %g2 sethi %hi(_imp_InFile), %g1 stx %g2, [%g1+%lo(_imp_InFile)] sethi %hi(__PRETTY_FUNCTION__.5656), %o0 call check_instream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5656), %o0 .LVL747: .LBE642: .LBE641: sethi %hi(LIST.6162), %g2 lduw [%g2+%lo(LIST.6162)], %g1 add %g1, -1, %g1 st %g1, [%g2+%lo(LIST.6162)] 2456 tbase = tmax; tstart = tmax sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g2 lduw [%g2+64], %g1 st %g1, [%g2+68] 2457 %return ba,pt %xcc, .L629 st %g1, [%g2+72] .L774: 2458 c(76): %if include # 0 %and x = 0 %start; ! end of ... 2459 lines = include; sstype = 0; ! include sethi %hi(INCLUDE.6136), %g1 lduw [%g1+%lo(INCLUDE.6136)], %g1 cmp %g1, 0 be,a,pt %icc, .L1040 sethi %hi(SS.6132), %g1 st %g1, [%g2+%lo(LINES.6094)] 2460 close input sethi %hi(X.6084), %g2 lduw [%g2+%lo(X.6084)], %g2 cmp %g2, 0 be,pn %icc, .L972 sethi %hi(LINES.6094), %g2 .L775: sethi %hi(SSTYPE.6139), %g1 .LBB650: .LBB651: call _imp_closeinput, 0 st %g0, [%g1+%lo(SSTYPE.6139)] .LVL753: .LBE651: .LBE650: 2461 list = include list sethi %hi(INCLUDELIST.6134), %g1 lduw [%g1+%lo(INCLUDELIST.6134)], %g2 sethi %hi(LIST.6162), %g1 st %g2, [%g1+%lo(LIST.6162)] 2462 include level = 0 sethi %hi(INCLUDELEVEL.6135), %g1 st %g0, [%g1+%lo(INCLUDELEVEL.6135)] 2463 include = 0; select input(source); %return sethi %hi(INCLUDE.6136), %g1 st %g0, [%g1+%lo(INCLUDE.6136)] .LVL754: .LBB652: .LBB653: sethi %hi(_imp_InStream), %g1 mov 1, %g2 st %g2, [%g1+%lo(_imp_InStream)] sethi %hi(_imp_infile), %g1 ldx [%g1+%lo(_imp_infile)+296], %g2 sethi %hi(_imp_InFile), %g1 stx %g2, [%g1+%lo(_imp_InFile)] sethi %hi(__PRETTY_FUNCTION__.5656), %o0 call check_instream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5656), %o0 .LVL755: ba,pt %xcc, .L629 nop .LVL756: .L777: .LBE653: .LBE652: .LBB654: .LBB645: 2464 %finish 2465 ss = -1; ! prog/file sethi %hi(SS.6132), %g1 .L1040: mov -1, %g2 st %g2, [%g1+%lo(SS.6132)] .L776: 2466 c(75): compile end(x); %return; ! %end 2467 sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %i5 .LVL748: .LBB643: .LBB644: 2468 c(85): %if x=0 %then control=lit %else %start; ! control 2469 diag = lit&16_3FFF %if lit>>14&3 = 1 2470 %finish 2471 op('z'-x, lit) sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 mov 122, %o0 sub %o0, %g1, %o0 sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sethi %hi(LIT.6159), %g1 ldsw [%g1+%lo(LIT.6159)], %o1 call OP.6199, 0 sra %o0, 0, %o0 .LVL762: 2472 ->top 2473 c(83): list = list+x-2; ->top; ! %LIST/%endoflist 2474 c(84): reals ln = x; ->top; ! %REALS long/normal sethi %hi(LIST.6162), %g2 lduw [%g2+%lo(LIST.6162)], %g1 sethi %hi(X.6084), %g3 lduw [%g3+%lo(X.6084)], %g3 add %g1, %g3, %g1 add %g1, -2, %g1 2475 c(86): %if include # 0 %start; ! include "file" ba,pt %xcc, .L952 st %g1, [%g2+%lo(LIST.6162)] .L790: sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g2 sethi %hi(REALSLN.6115), %g1 2476 fault(7); %return ba,pt %xcc, .L952 st %g2, [%g1+%lo(REALSLN.6115)] .L791: sethi %hi(INCLUDE.6136), %g1 lduw [%g1+%lo(INCLUDE.6136)], %g1 cmp %g1, 0 be,pt %icc, .L792 sethi %hi(4096), %i5 sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 7, %o0 .LVL763: ba,pt %xcc, .L629 nop .L792: .LVL764: 2477 %finish 2478 get next; ! sconst xor %i5, -177, %g1 add %g1, %fp, %g1 call GETNEXT.7230, 0 ldx [%g1], %g5 .LVL765: 2479 x = x-16_4000 sethi %hi(X.6084), %g2 lduw [%g2+%lo(X.6084)], %g1 sethi %hi(-16384), %g3 add %g1, %g3, %g1 st %g1, [%g2+%lo(X.6084)] .LVL766: 2480 j = glink(x) sra %g1, 0, %g1 .LVL767: add %g1, %g1, %g1 .LVL768: 2481 k = j&255 sethi %hi(GLINK.6179), %g2 .LVL769: or %g2, %lo(GLINK.6179), %g2 lduh [%g2+%g1], %i4 and %i4, 0xff, %i4 .LVL770: 2482 !ABD - another little copy loop because SKIMP can't do the string map 2483 include file = "" 2484 %cycle 2485 k = k-1; %exit %if k < 0 xor %i5, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %o0 .LVL771: sethi %hi(5120), %g1 xor %g1, -48, %o1 mov 63, %o2 add %fp, 2047, %g1 add %g1, %o1, %o1 sethi %hi(34636800), %g1 srlx %g1, 8, %g1 call _imp_strncpy, 0 add %o0, %g1, %o0 .LVL772: 2486 include file = include file.tostring(j>>8) addcc %i4, -1, %g0 .L1009: bneg,pn %icc, .L794 sethi %hi(4096), %g2 .L795: ba,pt %xcc, .L1009 addcc %i4, -1, %g0 .LVL781: .L794: 2487 x = x+1 sethi %hi(X.6084), %g2 lduw [%g2+%lo(X.6084)], %g1 add %g1, 1, %g1 .LVL777: 2488 j = glink(x) xor %g3, -560, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 xor %g3, -217, %g2 add %g2, %fp, %g2 stx %g1, [%g2] .LVL634: .L952: .LBE633: .LBE632: sethi %hi(34636800), %i3 srlx %i3, 8, %i3 .LBB658: .LBB634: xor %i5, -304, %i1 add %fp, 2047, %g2 add %g2, %i1, %i1 .LBE634: .LBE658: xor %i5, -816, %i2 add %g2, %i2, %i2 .L793: .LVL773: xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i0 ldx [%i0+8], %i5 add %i5, %i3, %i5 .LVL774: .LBB659: .LBB635: mov %i1, %o2 mov %i5, %o1 xor %g2, -217, %g1 add %g1, %fp, %g1 call _imp_join, 0 ldx [%g1], %o0 .LVL775: .LBE635: .LBE659: mov 63, %o2 mov %i2, %o1 call _imp_strncpy, 0 mov %i5, %o0 .LVL776: 2489 k = k-1; %exit %if k < 0 2490 include file = include file.tostring(j&255) addcc %i4, -2, %i4 .LVL778: bneg,pn %icc, .L794 st %g1, [%g2+%lo(X.6084)] .L796: 2491 %repeat 2492 ! include file = string(x-16_4000+stbase) ldx [%i0+8], %i5 add %i5, %i3, %i5 .LBB660: .LBB661: add %fp, -1585, %o2 mov %i5, %o1 call _imp_join, 0 add %fp, -1841, %o0 .LVL779: .LBE661: .LBE660: sethi %hi(4096), %g1 xor %g1, -48, %o1 mov 63, %o2 add %fp, 2047, %g1 add %g1, %o1, %o1 call _imp_strncpy, 0 mov %i5, %o0 .LVL780: 2493 ! remove this event block for SKIMP or pre-event IMP versions 2494 %begin 2495 %on 9 %start; Abandon(9); %finish mov 1, %o1 sethi %hi(_imp_event+544), %o0 call __sigsetjmp, 0 or %o0, %lo(_imp_event+544), %o0 .LVL782: cmp %o0, 0 bne,pn %icc, .L799 mov 512, %o1 .LVL783: sethi %hi(_imp_event), %o0 call _imp_on_event_enter, 0 or %o0, %lo(_imp_event), %o0 .LVL784: brnz,pt %o0, .L1044 mov 256, %o2 .LVL785: .L799: 2496 open input(3, include file) sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 9, %o0 .LVL786: .L800: mov 256, %o2 .L1044: add %fp, -1329, %o1 call memcpy, 0 add %fp, 1743, %o0 .LVL787: .LBB662: .LBB663: sethi %hi(5120), %g1 xor %g1, -928, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 256, %o2 add %fp, 1743, %o1 call memcpy, 0 mov %i5, %o0 .LVL788: mov %i5, %o1 call _imp_openinput, 0 mov 3, %o0 .LVL789: .L801: .LBE663: .LBE662: 2497 %end 2498 include = lines; lines = 0 sethi %hi(LINES.6094), %g1 lduw [%g1+%lo(LINES.6094)], %g3 sethi %hi(INCLUDE.6136), %g2 st %g3, [%g2+%lo(INCLUDE.6136)] 2499 include list = list; include level = level st %g0, [%g1+%lo(LINES.6094)] sethi %hi(LIST.6162), %g1 lduw [%g1+%lo(LIST.6162)], %g2 sethi %hi(INCLUDELIST.6134), %g1 st %g2, [%g1+%lo(INCLUDELIST.6134)] 2500 select input(3) sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+60], %g2 sethi %hi(INCLUDELEVEL.6135), %g1 st %g2, [%g1+%lo(INCLUDELEVEL.6135)] .LVL790: .LBB664: .LBB665: sethi %hi(_imp_InStream), %g1 mov 3, %g2 st %g2, [%g1+%lo(_imp_InStream)] sethi %hi(_imp_infile), %g1 ldx [%g1+%lo(_imp_infile)+872], %g2 sethi %hi(_imp_InFile), %g1 stx %g2, [%g1+%lo(_imp_InFile)] sethi %hi(__PRETTY_FUNCTION__.5656), %o0 call check_instream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5656), %o0 .LVL791: .LBE665: .LBE664: 2501 ->top 2502 2503 c(154): dimension = dimension+1; ! dbsep 2504 fault(11) %if dimension = dim limit+1 sethi %hi(DIMENSION.6151), %g2 lduw [%g2+%lo(DIMENSION.6151)], %g1 add %g1, 1, %g1 cmp %g1, 7 bne,pt %icc, .L952 st %g1, [%g2+%lo(DIMENSION.6151)] 2505 ->top sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 11, %o0 .LVL793: 2506 c(145): set bp; ->top; ! crb 2507 c(146): set bp; ! rcrb sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 call SETBP.7259, 0 ldx [%g1], %g5 .LVL794: 2508 c(142): ; ! bplrb sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 call SETBP.7259, 0 ldx [%g1], %g5 .LVL795: .L805: 2509 dimension = 1 %if dimension = 0 sethi %hi(DIMENSION.6151), %g1 lduw [%g1+%lo(DIMENSION.6151)], %g1 cmp %g1, 0 bne,pt %icc, .L1045 sethi %hi(4096), %i4 2510 op('d', dimension); op(',', defs) sethi %hi(DIMENSION.6151), %g1 mov 1, %g2 st %g2, [%g1+%lo(DIMENSION.6151)] .L806: .L1045: xor %i4, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL796: ldx [%i5+8], %g5 sethi %hi(DIMENSION.6151), %g1 ldsw [%g1+%lo(DIMENSION.6151)], %o1 call OP.6199, 0 mov 100, %o0 .LVL797: 2511 %if class # 146 %start ldx [%i5+8], %g5 xor %i4, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i4 ldsw [%i4+20], %o1 call OP.6199, 0 mov 44, %o0 .LVL798: lduw [%i4+28], %g1 cmp %g1, 146 bne,pn %icc, .L975 mov %i4, %g5 .L807: .L809: 2512 set subs(defs) call SETSUBS.7253, 0 ldsw [%i4+20], %o0 .LVL799: 2513 fault(13) %if dict(dmin) >= 0 %or inhibit # 0 %or level=0 ldx [%i5+8], %g2 lduw [%i5+52], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 mov 1565, %g3 sllx %g3, 2, %g3 add %g1, %g3, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 lduw [%g1+4], %g1 cmp %g1, 0 bge,pn %icc, .L1046 sethi %hi(4096), %g1 2514 %finish lduw [%i5+20], %g1 cmp %g1, 0 bne,pt %icc, .L1046 sethi %hi(4096), %g1 2515 dimension = 0; defs = 0 sethi %hi(DIMENSION.6151), %g1 .L1010: st %g0, [%g1+%lo(DIMENSION.6151)] lduw [%i5+60], %g1 cmp %g1, 0 bne,a,pt %icc, .L1010 sethi %hi(DIMENSION.6151), %g1 .L808: ba,pt %xcc, .L1010 sethi %hi(DIMENSION.6151), %g1 .LVL801: .L810: 2516 ->top sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ba,pt %xcc, .L952 st %g0, [%g1+20] .L975: 2517 c(128): id = dupid; ->top; ! EDUP sethi %hi(4096), %g1 .L1046: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 13, %o0 .LVL800: 2518 c(130): block x = x sethi %hi(4096), %g2 xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 xor %g2, -237, %g2 add %g2, %fp, %g2 lduw [%g2], %g2 2519 op('F', 0) %if decl&spec = 0 %and level # 0; ! jump round proc ba,pt %xcc, .L952 st %g2, [%g1+56] .L811: sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g2 sethi %hi(BLOCKX.6161), %g1 st %g2, [%g1+%lo(BLOCKX.6161)] sethi %hi(DECL.6108), %g1 lduw [%g1+%lo(DECL.6108)], %g1 andcc %g1, 1, %g0 bne,pt %xcc, .L1047 sethi %hi(4096), %g3 2520 c(125): dupid = id; ! %DUP sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+60], %g1 cmp %g1, 0 bne,pn %icc, .L976 sethi %hi(4096), %g2 2521 %return %if Level < 0; ! {spec about} xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+56], %g1 xor %g2, -237, %g2 add %g2, %fp, %g2 .LVL802: ba,pt %xcc, .L816 st %g1, [%g2] .LVL803: .L976: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 mov 0, %o1 call OP.6199, 0 mov 70, %o0 .LVL804: .L812: .L814: sethi %hi(4096), %g3 .L1047: xor %g3, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+56], %g2 xor %g3, -237, %g3 add %g3, %fp, %g3 st %g2, [%g3] .LVL805: lduw [%g1+60], %g1 cmp %g1, 0 bl,pn %icc, .L629 nop .L815: .LVL806: .L816: 2522 c(90): def(x); ->top; ! ident 2523 c(131): ; ! cident sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 sethi %hi(X.6084), %g1 call DEF.7277, 0 ldsw [%g1+%lo(X.6084)], %o0 .LVL807: 2524 %if tag(x)_flags&(2_1111111+const bit) = iform+const bit %start sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %i5 .LVL809: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sra %i5, 0, %g2 add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 sethi %hi(12557312), %g2 srlx %g2, 8, %g2 lduw [%g1+%g2], %g1 andcc %g1, 1, %g0 bne,pt %xcc, .L818 sethi %hi(4096), %g1 2525 tag(x)_format = lit sra %i5, 0, %i5 add %i5, %i5, %g1 add %g1, %i5, %i5 sllx %i5, 3, %g1 add %g5, %g1, %g5 sethi %hi(LIT.6159), %g1 lduw [%g1+%lo(LIT.6159)], %g2 sethi %hi(6278144), %g1 srlx %g1, 7, %g1 2526 %finish %else %start ba,pt %xcc, .L952 st %g2, [%g5+%g1] .L818: 2527 set const(lit) %if pending # 0 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 cmp %g1, 0 be,pt %icc, .L1048 sethi %hi(4096), %i4 2528 def(x) sethi %hi(LIT.6159), %g1 call SETCONST.6202, 0 ldsw [%g1+%lo(LIT.6159)], %o0 .LVL810: .L819: sethi %hi(4096), %i4 .L1048: xor %i4, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call DEF.7277, 0 sra %i5, 0, %o0 .LVL811: 2529 op('A', 1) xor %i4, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 mov 1, %o1 call OP.6199, 0 mov 65, %o0 .LVL812: 2530 %finish 2531 cident = x 2532 ->top 2533 c(124): dubious = 1 %if tag(cident)_flags&prot # 0; ! %DUBIOUS 2534 ->top ba,pt %xcc, .L952 st %g2, [%g1+%lo(DUBIOUS.6146)] .L821: .L824: .LBB666: .LBB667: 2535 c(97): ; ! f sethi %hi(DUBIOUS.6146), %g1 mov 1, %g2 .LDL46: 2536 c(98): ; ! m 2537 c(99): ; ! p 2538 c(96): call; ->top; ! r 2539 c(165): ; ! nlab 2540 c(100): ; ! rp 2541 c(101): ; ! fp 2542 c(102): ; ! mp 2543 c(103): ; ! pp 2544 c(91): ; ! v 2545 c(92): ; ! n 2546 c(106): ; ! a 2547 c(107): ; ! an 2548 c(108): ; ! na 2549 c(109): ; ! nan 2550 k = tag(x)_index ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L826: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L827: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L828: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L829: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L830: .L835: sethi %hi(4096), %g1 .L1012: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sethi %hi(X.6084), %g1 ldsw [%g1+%lo(X.6084)], %g2 add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 lduw [%g1+%g2], %o1 .LVL819: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L832: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L833: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .L834: ba,pt %xcc, .L1012 sethi %hi(4096), %g1 .LVL821: .L977: 2551 %if k < 0 %then op('n', -k) %else op('@', k) cmp %o1, 0 bl,a,pn %icc, .L977 sub %g0, %o1, %o1 .L836: 2552 ->top sra %o1, 0, %o1 call OP.6199, 0 mov 110, %o0 .LVL822: 2553 c(121): set const(0); ->top; ! special for zero 2554 c(167): add char( 'G' ); ->pstr; ! aconst (alias) sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call SETCONST.6202, 0 mov 0, %o0 .LVL823: 2555 c(const): ; ! const sra %o1, 0, %o1 call OP.6199, 0 mov 64, %o0 .LVL820: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 71, %o0 .LVL824: .L839: 2556 %if x < 0 %start; ! constinteger sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 cmp %g1, 0 bl,a,pn %icc, .L978 sethi %hi(4096), %g2 .L841: 2557 set const(tag(-x)_format); ->top xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldx [%g2+8], %g5 sub %g0, %g1, %g1 sra %g1, 0, %g1 add %g1, %g1, %g2 add %g2, %g1, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 sethi %hi(6278144), %g2 srlx %g2, 7, %g2 call SETCONST.6202, 0 ldsw [%g1+%g2], %o0 .LVL835: 2558 %finish 2559 %if x&16_4000 # 0 %start; ! strings 2560 add char( '''' ) sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 39, %o0 .LVL834: 2561 pstr: x = x-16_4000 2562 j = glink(x) sethi %hi(X.6084), %g2 .L1014: lduw [%g2+%lo(X.6084)], %g1 sethi %hi(-16384), %g3 add %g1, %g3, %g1 st %g1, [%g2+%lo(X.6084)] sethi %hi(GLINK.6179), %g2 or %g2, %lo(GLINK.6179), %g2 sra %g1, 0, %g1 add %g1, %g1, %g1 lduh [%g2+%g1], %o0 ldsh [%g2+%g1], %i4 .LVL825: ba,pt %xcc, .L1014 sethi %hi(X.6084), %g2 .L978: 2563 k = j&255 and %o0, 0xff, %i5 .LVL826: 2564 add char( k ) sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 and %o0, 0xff, %o0 .LVL827: 2565 %cycle 2566 k = k-1; ->top %if k < 0 2567 add char( j>>8 ); addcc %i5, -1, %g0 .L1013: bneg,pn %icc, .L952 sethi %hi(4096), %g1 .L843: srl %i4, 8, %o0 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i1 ldx [%i1+8], %g5 call ADDCHAR.6195, 0 and %o0, 0xff, %o0 .LVL829: ba,pt %xcc, .L1013 addcc %i5, -1, %g0 .LVL833: .L840: 2568 x = x+1 sethi %hi(X.6084), %i2 lduw [%i2+%lo(X.6084)], %g1 add %g1, 1, %g1 st %g1, [%i2+%lo(X.6084)] 2569 j = glink(x) sethi %hi(GLINK.6179), %i3 or %i3, %lo(GLINK.6179), %i3 .L842: .LVL828: sra %g1, 0, %g1 add %g1, %g1, %g1 lduh [%i3+%g1], %o0 .LVL830: 2570 k = k-1; ->top %if k < 0 2571 add char( j&255 ) addcc %i5, -2, %i5 .LVL831: bneg,pn %icc, .L952 ldsh [%i3+%g1], %i4 .L844: ldx [%i1+8], %g5 call ADDCHAR.6195, 0 and %o0, 0xff, %o0 .LVL832: 2572 %repeat 2573 %finish 2574 %if x&16_2000 # 0 %start; ! real - ABD also string-like, but NOT packed 2575 x = x-16_2000 2576 k = glink(x) 2577 op('D', k); add char( ',' ) 2578 %cycle 2579 ->top %if k = 0 2580 k = k-1 2581 x = x+1; j = glink(x) 2582 %if j = '@' %start 2583 op('@', litpool(glink(x+1))); ->top 2584 %finish 2585 add char( j ) 2586 %repeat 2587 %finish 2588 set const(lit pool(x)) 2589 ->top 2590 2591 c(137): add char( 'i' ); ->top; ! asep 2592 c(141): add char( 'a' ); ->top; ! arb sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 105, %o0 .LVL836: 2593 sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 97, %o0 .LVL837: 2594 !own arrays 2595 c(132): ocount = ub-lb+1 2596 def(x); ! oident sethi %hi(UB.7208), %g1 lduw [%g1+%lo(UB.7208)], %g1 sethi %hi(LB.7207), %g2 lduw [%g2+%lo(LB.7207)], %g2 sub %g1, %g2, %g1 add %g1, 1, %g1 sethi %hi(OCOUNT.6141), %g2 st %g1, [%g2+%lo(OCOUNT.6141)] sethi %hi(4096), %i4 xor %i4, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL838: mov %i5, %g5 sethi %hi(X.6084), %g1 call DEF.7277, 0 ldsw [%g1+%lo(X.6084)], %o0 .LVL839: 2597 dimension = 1; set subs(1) sethi %hi(DIMENSION.6151), %g1 mov 1, %g2 st %g2, [%g1+%lo(DIMENSION.6151)] 2598 %if next = 0 %start; ! no initialisation mov %i5, %g5 call SETSUBS.7253, 0 mov 1, %o0 .LVL840: lduw [%i5+36], %g1 cmp %g1, 0 bne,pn %icc, .L848 sethi %hi(4096), %g1 2599 op('A', ocount) %if ocount > 0 sethi %hi(OCOUNT.6141), %g1 lduw [%g1+%lo(OCOUNT.6141)], %o1 cmp %o1, 0 bg,a,pn %icc, .L979 xor %i4, -169, %g1 .L849: .L1015: 2600 ocount = -1 mov -1, %g2 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 65, %o0 .LVL841: ba,pt %xcc, .L1015 sethi %hi(OCOUNT.6141), %g1 .L848: 2601 %finish %else %start; ! initialisation given ba,pt %xcc, .L952 st %g2, [%g1+%lo(OCOUNT.6141)] .L979: 2602 get next xor %g1, -177, %g1 add %g1, %fp, %g1 call GETNEXT.7230, 0 ldx [%g1], %g5 .LVL842: 2603 %finish 2604 ->top 2605 c(162): lit = ocount; ->ins; ! indef 2606 c(143): pop lit; ! orb sethi %hi(OCOUNT.6141), %g1 lduw [%g1+%lo(OCOUNT.6141)], %g2 sethi %hi(LIT.6159), %g1 st %g2, [%g1+%lo(LIT.6159)] .L851: 2607 ins: fault(10) %and lit = 0 %if lit < 0 sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 call POPLIT.7320, 0 ldx [%g1], %g5 .LVL850: 2608 get next sethi %hi(LIT.6159), %g1 .L1016: lduw [%g1+%lo(LIT.6159)], %g1 cmp %g1, 0 bl,pn %icc, .L980 sethi %hi(4096), %g1 .L853: sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 call GETNEXT.7230, 0 ldx [%g1], %g5 .LVL844: .L854: ba,pt %xcc, .L1016 sethi %hi(LIT.6159), %g1 .L980: 2609 ->inst xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 10, %o0 .LVL851: 2610 c(139): ; ! osep (x=19) sethi %hi(LIT.6159), %g1 ba,pt %xcc, .L853 st %g0, [%g1+%lo(LIT.6159)] .L855: .L856: 2611 c(153): lit = 1 2612 inst: pop def %if pending # 0; ! ownt (x=0) sethi %hi(LIT.6159), %g1 mov 1, %g2 ba,pt %xcc, .L854 st %g2, [%g1+%lo(LIT.6159)] .LVL852: .L981: 2613 op('A', lit) sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL845: lduw [%i5+24], %g1 cmp %g1, 0 be,a,pt %icc, .L1049 sethi %hi(LIT.6159), %g1 .LBB668: .LBB669: sethi %hi(LIT.6159), %g1 .L1049: lduw [%g1+%lo(LIT.6159)], %i5 sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sra %i5, 0, %o1 call OP.6199, 0 mov 65, %o0 .LVL847: 2614 ocount = ocount-lit sethi %hi(OCOUNT.6141), %g2 lduw [%g2+%lo(OCOUNT.6141)], %g1 sub %g1, %i5, %g1 2615 %if ocount >= 0 %start cmp %g1, 0 bl,pn %icc, .L860 st %g1, [%g2+%lo(OCOUNT.6141)] 2616 ->top %if x # 0; ! more coming sethi %hi(X.6084), %g2 lduw [%g2+%lo(X.6084)], %g2 cmp %g2, 0 bne,a,pt %icc, .L993 sethi %hi(4096), %g1 .L859: 2617 ocount = -1 %and %return %if ocount = 0; ! all done cmp %g1, 0 be,pn %icc, .L981 sethi %hi(OCOUNT.6141), %g1 .L858: .L860: 2618 %finish mov -1, %g2 2619 fault(11); %return sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 11, %o0 .LVL848: ba,pt %xcc, .L629 nop .LVL849: .L852: ba,pt %xcc, .L629 st %g2, [%g1+%lo(OCOUNT.6141)] .LVL853: .L861: 2620 2621 c(swit): op('W', tag(x)_index); inhibit = 1; ->atop 2622 c(134): def(x); ! swid sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL854: ldx [%i5+8], %g5 sethi %hi(X.6084), %g1 ldsw [%g1+%lo(X.6084)], %g2 add %g2, %g2, %g1 add %g1, %g2, %g1 sllx %g1, 3, %g1 add %g5, %g1, %g1 mov 1533, %g2 sllx %g2, 5, %g2 ldsw [%g1+%g2], %o1 call OP.6199, 0 mov 87, %o0 .LVL855: 2623 n = ub-lb+1 mov 1, %g1 sethi %hi(4096), %i3 xor %i3, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 sethi %hi(X.6084), %g1 call DEF.7277, 0 ldsw [%g1+%lo(X.6084)], %o0 .LVL857: sethi %hi(UB.7208), %g1 lduw [%g1+%lo(UB.7208)], %g3 sethi %hi(LB.7207), %g1 lduw [%g1+%lo(LB.7207)], %g1 sub %g3, %g1, %g3 2624 n = (n+15)>>4; ! slots needed (includes zero) ba,pt %xcc, .L667 st %g1, [%i5+20] .LVL856: .L862: add %g3, 16, %g3 srl %g3, 4, %i4 .LVL858: 2625 j = dmax; dmax = dmax+n+2 sethi %hi(DMAX.6130), %g2 lduw [%g2+%lo(DMAX.6130)], %i5 .LVL859: 2626 abandon(1) %if dmax >= dmin add %i4, %i5, %g1 add %g1, 2, %g1 st %g1, [%g2+%lo(DMAX.6130)] xor %i3, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 lduw [%g2+52], %g2 cmp %g1, %g2 bge,pn %icc, .L982 xor %i3, -169, %g1 .L863: 2627 tag(x)_format = j sethi %hi(4096), %g1 .L1017: xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g4 ldx [%g4+8], %g2 sethi %hi(X.6084), %g1 ldsw [%g1+%lo(X.6084)], %g3 add %g3, %g3, %g1 add %g1, %g3, %g1 sllx %g1, 3, %g1 add %g2, %g1, %g2 sethi %hi(6278144), %g1 srlx %g1, 7, %g1 st %i5, [%g2+%g1] add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ABANDON.6232, 0 mov 1, %o0 .LVL864: ba,pt %xcc, .L1017 sethi %hi(4096), %g1 .LVL865: .L865: 2628 dict(j) = lb; dict(j+1) = ub ldx [%g4+8], %g3 add %i5, -1, %g1 sra %g1, 0, %g1 mov 1565, %g2 sllx %g2, 2, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 add %g3, %g1, %g1 sethi %hi(LB.7207), %g3 lduw [%g3+%lo(LB.7207)], %g3 st %g3, [%g1+4] 2629 %cycle ldx [%g4+8], %g3 sra %i5, 0, %g1 add %g1, %g2, %g1 sllx %g1, 2, %g1 add %g3, %g1, %g1 sethi %hi(UB.7208), %g2 lduw [%g2+%lo(UB.7208)], %g2 .LVL860: 2630 n = n-1 2631 ->top %if n < 0 addcc %i4, -1, %g0 bneg,pn %icc, .L952 st %g2, [%g1+4] add %i5, %i4, %g3 cmp %i5, %g3 bne,pt %icc, .L864 st %g0, [%g1+4] 2632 j = j+1; dict(j+1) = 0 add %i5, 1, %i5 .LVL862: 2633 %repeat mov 1565, %g4 sllx %g4, 2, %g4 .LVL861: .L864: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g2 sra %i5, 0, %g1 add %g1, %g4, %g1 sllx %g1, 2, %g1 add %g2, %g1, %g1 .LDL48: 2634 c(151): stats = stats-1; ! slab 2635 fault(7) %and %return %if x < tbase sethi %hi(STATS.6100), %g2 lduw [%g2+%lo(STATS.6100)], %g1 add %g1, -1, %g1 st %g1, [%g2+%lo(STATS.6100)] sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 sethi %hi(4096), %g2 xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 lduw [%g2+68], %g2 cmp %g1, %g2 bl,pn %icc, .L983 sethi %hi(5120), %g2 .L866: 2636 %if pending # 0 %start; ! explicit label xor %g2, -672, %g2 add %fp, 2047, %g3 add %g3, %g2, %g2 lduw [%g2+24], %g2 cmp %g2, 0 bne,pn %icc, .L984 sethi %hi(4096), %g2 .L867: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 7, %o0 .LVL878: ba,pt %xcc, .L629 nop .L984: 2637 def s lab(pstack(1)) sethi %hi(5120), %g5 xor %g5, -672, %g5 add %g3, %g5, %g5 sethi %hi(PSTACK.7223), %g1 call DEFSLAB.7298, 0 ldsw [%g1+%lo(PSTACK.7223)], %o0 .LVL879: 2638 %finish %else %start 2639 fault(4) %and %return %if tag(x)_app # 0 xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldx [%g2+8], %g3 sra %g1, 0, %g4 add %g4, %g4, %g2 add %g2, %g4, %g2 sllx %g2, 3, %g2 add %g3, %g2, %g2 sethi %hi(12555264), %g4 srlx %g4, 8, %g4 lduw [%g2+%g4], %g2 cmp %g2, 0 bne,pn %icc, .L985 sra %g1, 0, %g1 .L869: 2640 tag(x)_app = 1 add %g1, %g1, %g2 add %g2, %g1, %g4 sllx %g4, 3, %g4 add %g3, %g4, %g3 sethi %hi(12555264), %g4 srlx %g4, 8, %g4 mov 1, %g5 st %g5, [%g3+%g4] sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 4, %o0 .LVL880: ba,pt %xcc, .L629 nop .LVL881: .L986: .LBB672: 2641 n = tag(x)_format sethi %hi(4096), %g3 xor %g3, -169, %g3 add %g3, %fp, %g3 ldx [%g3], %g3 ldx [%g3+8], %g3 .LVL866: add %g2, %g1, %g1 .LVL867: sllx %g1, 3, %g1 add %g3, %g1, %g1 sethi %hi(6278144), %g2 srlx %g2, 7, %g2 ldsw [%g1+%g2], %g1 sllx %g1, 2, %g1 add %g3, %g1, %g1 .LBB670: 2642 %for j = dict(n), 1, dict(n+1) %cycle 2643 def s lab(j) mov 1565, %g2 sllx %g2, 4, %g2 lduw [%g1+%g2], %i5 .LVL868: sethi %hi(6411264), %g2 srlx %g2, 8, %g2 lduw [%g1+%g2], %i3 .LVL869: sethi %hi(5120), %i4 xor %i4, -672, %i4 add %g1, %i4, %i4 .LVL872: mov %i4, %g5 call DEFSLAB.7298, 0 sra %i5, 0, %o0 .LVL874: 2644 flush buffer( 128 ); ! flush if bp >= 128 subcc %i3, %i5, %g0 bneg,pn %icc, .L986 sethi %hi(_imp_current_file), %g1 .LVL870: sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call FLUSHBUFFER.6182, 0 mov 128, %o0 .LVL875: .L875: ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L871 mov 256, %o2 call _imp_c2istr, 0 add %fp, 207, %o0 .LVL882: sethi %hi(_imp_current_line), %g1 .L1020: lduw [%g1+%lo(_imp_current_line)], %i1 cmp %i1, 0 be,a,pt %icc, .L873 mov 2644, %i1 .L873: sethi %hi(.LC87), %o1 or %o1, %lo(.LC87), %o1 call _imp_c2istr, 0 add %fp, 463, %o0 .LVL883: sethi %hi(5120), %i4 xor %i4, -928, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 add %fp, 207, %o1 call memcpy, 0 mov %i4, %o0 .LVL884: sethi %hi(6144), %i2 xor %i2, -160, %i2 add %fp, 2047, %g1 add %g1, %i2, %i2 mov 256, %o2 add %fp, 463, %o1 call memcpy, 0 mov %i2, %o0 .LVL885: mov 0, %o5 mov 1, %o4 mov 5, %o3 mov %i2, %o2 sra %i1, 0, %o1 call _signal_event, 0 mov %i4, %o0 .LVL886: .LBE672: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, -305, %o0 .LVL888: mov 256, %o2 add %fp, -305, %o1 call memcpy, 0 add %fp, -1073, %o0 .LVL889: .LBE671: mov 256, %o2 add %fp, -1073, %o1 call memcpy, 0 add %fp, 207, %o0 .LVL890: .LBE673: ba,pt %xcc, .L1020 sethi %hi(_imp_current_line), %g1 .LVL891: .L877: 2645 %repeat add %i5, -1, %i5 .LVL871: .L1019: ba,pt %xcc, .L1019 add %i5, -1, %i5 .LVL887: .L871: .LBB673: .LBB671: 2646 %finish 2647 inhibit = 1 cmp %i3, %i5 be,pn %icc, .L876 add %fp, 2047, %g1 cmp %i3, %i5 bne,a,pt %icc, .L1050 add %i5, 1, %i5 .L868: .LVL876: .L876: .LBE670: mov 1, %g1 .L1018: sethi %hi(4096), %g2 xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ba,pt %xcc, .L1018 mov 1, %g1 .L985: 2648 %return add %i5, 1, %i5 .LVL873: .L1050: ba,pt %xcc, .L629 st %g1, [%g2+20] .LVL877: .L983: 2649 2650 c(140): add char( 'p' ); ->top; ! psep 2651 c(144): ; ! prb sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 call ADDCHAR.6195, 0 mov 112, %o0 .LVL892: 2652 add char( 'p' ); sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL893: ldx [%i5+8], %g5 call ADDCHAR.6195, 0 mov 112, %o0 .LVL894: 2653 add char( 'E' ); ->top ldx [%i5+8], %g5 call ADDCHAR.6195, 0 mov 69, %o0 .LVL895: 2654 2655 !constant expressions 2656 c(155): ; ! pconst 2657 %if x < 0 %then lit = tag(-x)_format %else lit = lit pool(x) sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 cmp %g1, 0 bl,pn %icc, .L987 sethi %hi(4096), %g2 .L880: 2658 pending = pending+1; pstack(pending) = lit; ->top sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g3 lduw [%g3+24], %g1 add %g1, 1, %g2 st %g2, [%g3+24] xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldx [%g2+8], %g3 sub %g0, %g1, %g1 sra %g1, 0, %g1 add %g1, %g1, %g2 add %g2, %g1, %g1 sllx %g1, 3, %g1 add %g3, %g1, %g2 sethi %hi(6278144), %g1 srlx %g1, 7, %g1 lduw [%g2+%g1], %g2 sethi %hi(LIT.6159), %g1 2659 c(156): lit = pstack(pending); lit = -lit %if lit < 0 sra %g1, 0, %g1 sllx %g1, 2, %g1 sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g3 sethi %hi(PSTACK.7223), %g2 or %g2, %lo(PSTACK.7223), %g2 ba,pt %xcc, .L881 st %g2, [%g1+%lo(LIT.6159)] .L882: 2660 pstack(pending) = lit; ->top; !cmod ba,pt %xcc, .L952 st %g3, [%g2+%g1] .L987: sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 add %g1, -1, %g1 sra %g1, 0, %g2 sllx %g2, 2, %g2 sethi %hi(PSTACK.7223), %g3 or %g3, %lo(PSTACK.7223), %g3 lduw [%g3+%g2], %g2 sethi %hi(LIT.6159), %g3 sra %g1, 0, %g1 sllx %g1, 2, %g1 sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g3 sethi %hi(PSTACK.7223), %g2 or %g2, %lo(PSTACK.7223), %g2 2661 c(157): lit = -pstack(pending); pstack(pending) = lit; ->top; ! csign xor %g2, -169, %g2 add %g2, %fp, %g2 ldx [%g2], %g2 ldx [%g2+8], %g3 sra %g1, 0, %g1 mov 65, %g2 sllx %g2, 6, %g2 add %g1, %g2, %g1 sllx %g1, 2, %g1 lduw [%g3+%g1], %g2 sethi %hi(LIT.6159), %g1 st %g2, [%g1+%lo(LIT.6159)] .L881: cmp %g2, 0 bl,pn %icc, .L988 st %g2, [%g3+%lo(LIT.6159)] .L883: ba,pt %xcc, .L952 st %g3, [%g2+%g1] .L988: 2662 c(158): lit = \pstack(pending); pstack(pending) = lit; ->top; ! cuop sub %g0, %g2, %g2 ba,pt %xcc, .L883 st %g2, [%g3+%lo(LIT.6159)] .L884: sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 add %g1, -1, %g1 sethi %hi(PSTACK.7223), %g2 or %g2, %lo(PSTACK.7223), %g2 sra %g1, 0, %g1 sllx %g1, 2, %g1 lduw [%g2+%g1], %g3 sub %g0, %g3, %g3 sethi %hi(LIT.6159), %g4 st %g3, [%g4+%lo(LIT.6159)] 2663 c(159): ; ! cop1 sethi %hi(4096), %g1 xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 add %g1, -1, %g1 sethi %hi(PSTACK.7223), %g2 or %g2, %lo(PSTACK.7223), %g2 sra %g1, 0, %g1 sllx %g1, 2, %g1 lduw [%g2+%g1], %g3 xnor %g0, %g3, %g3 sethi %hi(LIT.6159), %g4 st %g3, [%g4+%lo(LIT.6159)] 2664 c(160): ; ! cop2 ba,pt %xcc, .L952 st %g3, [%g2+%g1] .L885: 2665 c(161): pending = pending-1; ! cop3 ba,pt %xcc, .L952 st %g3, [%g2+%g1] .L886: .L888: 2666 lit2 = pstack(pending+1); lit = pstack(pending) sethi %hi(4096), %g4 .L1021: xor %g4, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g3 lduw [%g3+24], %g1 add %g1, -1, %g2 st %g2, [%g3+24] sethi %hi(PSTACK.7223), %g3 or %g3, %lo(PSTACK.7223), %g3 sra %g2, 0, %g2 sllx %g2, 2, %g2 lduw [%g3+%g2], %g2 xor %g4, -193, %g5 add %g5, %fp, %g5 st %g2, [%g5] .LVL897: ba,pt %xcc, .L1021 sethi %hi(4096), %g4 .L890: 2667 ->litop(x>>2) add %g1, -2, %g1 sra %g1, 0, %g1 sllx %g1, 2, %g1 lduw [%g3+%g1], %g2 sethi %hi(LIT.6159), %g1 st %g2, [%g1+%lo(LIT.6159)] .LVL898: sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 srl %g1, 2, %g1 xor %g4, -221, %g2 add %g2, %fp, %g2 st %g1, [%g2] .LVL899: xor %g4, -201, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 xor %g4, -233, %g2 add %g2, %fp, %g2 stx %g1, [%g2] mov 2667, %g1 xor %g4, -225, %g2 add %g2, %fp, %g2 st %g1, [%g2] .LVL900: .L889: 2668 2669 litop(1): lit = lit<setl 2670 litop(2): lit = lit>>lit2; ->setl sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 sll %g1, %g3, %g1 st %g1, [%g2+%lo(LIT.6159)] .L891: .LVL906: .L910: 2671 litop(3): n = 1; ! lit = lit\\lit2 sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 srl %g1, %g3, %g1 2672 fault(10) %if lit2 < 0 ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L893: .LVL907: sethi %hi(4096), %g1 xor %g1, -193, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 cmp %g1, 0 bl,a,pn %icc, .L989 sethi %hi(4096), %g1 2673 %while lit2 > 0 %cycle xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 10, %o0 .LVL913: 2674 lit2 = lit2-1 sethi %hi(4096), %g2 .L1022: xor %g2, -193, %g2 add %g2, %fp, %g2 lduw [%g2], %g2 cmp %g2, 0 ble,pn %icc, .L895 mov 1, %g1 sethi %hi(4096), %g4 xor %g4, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 addcc %g3, -1, %g3 xor %g4, -193, %g4 add %g4, %fp, %g4 .LVL910: bne,pt %icc, .L896 st %g3, [%g4] .LVL911: .L895: ba,pt %xcc, .L1022 sethi %hi(4096), %g2 .LVL914: .L897: 2675 n = n*lit sethi %hi(LIT.6159), %g1 lduw [%g1+%lo(LIT.6159)], %g2 mov 1, %g1 .LVL908: .L896: mulx %g1, %g2, %g1 .LVL909: 2676 %repeat 2677 lit = n; ->setl sethi %hi(LIT.6159), %g2 2678 litop(4): %if lit2 = 0 %then fault(10) %else lit = lit//lit2 ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .LVL912: .L989: 2679 ->setl sethi %hi(4096), %g1 xor %g1, -193, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 cmp %g1, 0 be,pn %icc, .L990 sethi %hi(LIT.6159), %g2 .L898: 2680 litop(5): lit = lit&lit2; ->setl sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 10, %o0 .LVL915: 2681 litop(6): lit = lit!lit2; ->setl sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 and %g1, %g3, %g1 2682 litop(7): lit = lit!!lit2; ->setl ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L900: sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 or %g1, %g3, %g1 2683 litop(8): lit = lit+lit2; ->setl ldsw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 ldsw [%g3], %g3 sdivx %g1, %g3, %g1 ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L990: ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L901: sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 xor %g1, %g3, %g1 2684 litop(9): lit = lit-lit2; ->setl ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L902: sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 add %g1, %g3, %g1 2685 litop(10): lit = lit*lit2; ->setl ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L903: sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 sub %g1, %g3, %g1 2686 litop(11): lit = lit+lit2; ->setl ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L904: sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 mulx %g1, %g3, %g1 2687 litop(12): n = 1; ! lit = lit\\lit2 ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L905: sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g1 sethi %hi(4096), %g3 xor %g3, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 add %g1, %g3, %g1 2688 fault(10) %if lit2 < 0 ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .L906: .LVL916: sethi %hi(4096), %g1 xor %g1, -193, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 cmp %g1, 0 bl,a,pn %icc, .L991 sethi %hi(4096), %g1 2689 %while lit2 > 0 %cycle xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g5 call FAULT.6335, 0 mov 10, %o0 .LVL922: 2690 lit2 = lit2-1 sethi %hi(4096), %g2 .L1024: xor %g2, -193, %g2 add %g2, %fp, %g2 lduw [%g2], %g2 cmp %g2, 0 ble,pn %icc, .L908 mov 1, %g1 sethi %hi(4096), %g4 xor %g4, -193, %g3 add %g3, %fp, %g3 lduw [%g3], %g3 addcc %g3, -1, %g3 xor %g4, -193, %g4 add %g4, %fp, %g4 .LVL919: bne,pt %icc, .L909 st %g3, [%g4] .LVL920: .L908: ba,pt %xcc, .L1024 sethi %hi(4096), %g2 .LVL923: .L911: 2691 n = n*lit sethi %hi(LIT.6159), %g1 lduw [%g1+%lo(LIT.6159)], %g2 mov 1, %g1 .LVL917: .L909: mulx %g1, %g2, %g1 .LVL918: 2692 %repeat 2693 lit = n; ->setl sethi %hi(LIT.6159), %g2 2694 setl: pstack(pending) = lit; ->top ba,pt %xcc, .L910 st %g1, [%g2+%lo(LIT.6159)] .LVL921: .L991: 2695 sethi %hi(4096), %g1 .L1023: xor %g1, -177, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 lduw [%g1+24], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 sllx %g1, 2, %g1 sethi %hi(LIT.6159), %g2 lduw [%g2+%lo(LIT.6159)], %g3 sethi %hi(PSTACK.7223), %g2 or %g2, %lo(PSTACK.7223), %g2 ba,pt %xcc, .L1023 sethi %hi(4096), %g1 .L899: 2696 c(170): ; ba,pt %xcc, .L952 st %g3, [%g2+%g1] .L892: 2697 !Fault(4) %if IMPCOM_Option # "" 2698 !IMPCOM_Option = String(x-x'4000'+Stbase); ! Option string 2699 ->Top ba,pt %xcc, .L993 sethi %hi(4096), %g1 .L912: .LVL924: 2700 2701 !string resolution 2702 c(135): resln = 2; ->top; ! dotl 2703 c(136): resln = resln+1; ->top; ! dotr mov 2, %g1 sethi %hi(4096), %g2 xor %g2, -189, %g2 add %g2, %fp, %g2 2704 c(55): op('r', resln); resln = 0; ->top; ! resop ba,pt %xcc, .L952 st %g1, [%g2] .LVL925: .L913: sethi %hi(4096), %g2 xor %g2, -189, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 add %g1, 1, %g1 xor %g2, -189, %g2 add %g2, %fp, %g2 .LVL926: 2705 c(164): op('r', resln+4); resln = 0; ! cresop ba,pt %xcc, .L952 st %g1, [%g2] .LVL927: .L914: sethi %hi(4096), %g2 xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 mov %g2, %i5 .LVL928: xor %g2, -189, %g1 add %g1, %fp, %g1 ldsw [%g1], %o1 call OP.6199, 0 mov 114, %o0 .LVL929: 2706 c(122): x = 6; ->cop; ! %PRED xor %i5, -189, %g1 add %g1, %fp, %g1 ba,pt %xcc, .L952 st %g0, [%g1] .LVL930: .L915: sethi %hi(4096), %g2 xor %g2, -189, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 add %g1, 4, %o1 mov %g2, %i5 .LVL931: xor %g2, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 ldx [%g1+8], %g5 sra %o1, 0, %o1 call OP.6199, 0 mov 114, %o0 .LVL932: 2707 c(87): set const(pstack(1)); ! mass xor %i5, -189, %g1 add %g1, %fp, %g1 st %g0, [%g1] .L916: .LVL933: sethi %hi(X.6084), %g1 mov 6, %g2 st %g2, [%g1+%lo(X.6084)] .L752: .LVL934: .L755: 2708 bp=bp+1 %and buff(bp)='P'; ->top sethi %hi(4096), %g1 xor %g1, -169, %g1 add %g1, %fp, %g1 ldx [%g1], %i5 .LVL941: ldx [%i5+8], %g5 sethi %hi(PSTACK.7223), %g1 call SETCONST.6202, 0 ldsw [%g1+%lo(PSTACK.7223)], %o0 .LVL942: sethi %hi(BP.6169), %g2 lduw [%g2+%lo(BP.6169)], %g1 add %g1, 1, %g3 st %g3, [%g2+%lo(BP.6169)] 2709 %end ldx [%i5+8], %g2 sra %g1, 0, %g1 add %g2, %g1, %g2 sethi %hi(34702336), %g1 srlx %g1, 8, %g1 mov 80, %g3 .L643: 2710 ba,pt %xcc, .L952 stb %g3, [%g2+%g1] .LVL943: .L646: 2711 %end; ! of compile block sethi %hi(6144), %g1 xor %g1, -160, %g1 add %fp, 2047, %g2 add %g2, %g1, %g1 xor %g3, -209, %g2 add %g2, %fp, %g2 stx %g1, [%g2] sethi %hi(.LC79), %g1 or %g1, %lo(.LC79), %g1 xor %g3, -201, %g2 add %g2, %fp, %g2 stx %g1, [%g2] .LBB632: .LBB633: ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L918 mov 256, %o2 call _imp_c2istr, 0 add %fp, 719, %o0 .LVL944: sethi %hi(_imp_current_line), %g1 .L1026: lduw [%g1+%lo(_imp_current_line)], %i4 cmp %i4, 0 mov 2711, %g1 move %icc, %g1, %i4 mov 256, %o2 add %fp, 719, %o1 sethi %hi(4096), %i2 xor %i2, -209, %g1 add %g1, %fp, %g1 ldx [%g1], %i3 call memcpy, 0 mov %i3, %o0 .LVL945: sra %i5, 0, %o4 mov 2230, %g1 stx %g1, [%sp+2239] .LVL946: xor %i2, -201, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 stx %g1, [%sp+2231] stx %o4, [%sp+2223] sethi %hi(.LC88), %o5 or %o5, %lo(.LC88), %o5 mov 3, %o3 mov 6, %o2 sra %i4, 0, %o1 call _signal_eventf, 0 mov %i3, %o0 .LVL947: sethi %hi(.LC17), %o1 or %o1, %lo(.LC17), %o1 call memcpy, 0 add %fp, -305, %o0 .LVL949: mov 256, %o2 add %fp, -305, %o1 call memcpy, 0 add %fp, -817, %o0 .LVL950: .LBE674: mov 256, %o2 add %fp, -817, %o1 call memcpy, 0 add %fp, 719, %o0 .LVL951: ba,pt %xcc, .L1026 sethi %hi(_imp_current_line), %g1 .LVL952: .L922: 2712 sra %i5, 0, %g1 .L1025: sllx %g1, 3, %g1 sethi %hi(C.7050), %g2 or %g2, %lo(C.7050), %g2 ldx [%g2+%g1], %g1 .LBB638: ba,pt %xcc, .L1025 sra %i5, 0, %g1 .LVL948: .L918: .LBB674: ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L1097 nop return %i7+8 nop .L1096: call __stack_chk_fail, 0 nop .LVL1028: nop .LFE195: .section ".rodata" .align 8 .LC91: .asciz "Z" .skip 6 .align 8 .LC92: .asciz "VDEC" .skip 3 .section .rodata.str1.8 .align 8 .LC93: .asciz "OWNVDEC" .section ".rodata" .align 8 .LC94: .asciz "EXTVSPEC" .align 8 .LC95: .asciz "ADEC" .skip 3 .section .rodata.str1.8 .align 8 .LC96: .asciz "OWNADEC" .section ".rodata" .align 8 .LC97: .asciz "EXTASPEC" .align 8 .LC98: .asciz "PROC" .skip 3 .align 8 .LC99: .asciz "PROCSPEC" .section .rodata.str1.8 .align 8 .LC100: .asciz "FORMDEC" .section ".rodata" .align 8 .LC101: .asciz "SWDEC" .skip 2 .align 8 .LC102: .asciz "LDEC" .skip 3 .align 8 .LC103: .asciz "FORMSPEC" .align 8 .LC104: .asciz "OPTION" .skip 1 .align 8 .LC105: .asciz "COMMA" .skip 2 .align 8 .LC106: .asciz "T" .skip 6 .align 8 .LC107: .asciz "COLON" .skip 2 .section .rodata.str1.8 .align 8 .LC108: .asciz "COMMENT" .section ".rodata" .align 8 .LC109: .asciz "LB" .skip 5 .align 8 .LC110: .asciz "ALIAS" .skip 2 .align 8 .LC111: .asciz "RB" .skip 5 .align 8 .LC112: .asciz "SUB" .skip 4 .align 8 .LC113: .asciz "ARRAYD" .skip 1 .align 8 .LC114: .asciz "STYPE" .skip 2 .align 8 .LC115: .asciz "ARRAY" .skip 2 .align 8 .LC116: .asciz "NAME" .skip 3 .align 8 .LC117: .asciz "PROCD" .skip 2 .align 8 .LC118: .asciz "FNMAP" .skip 2 .align 8 .LC119: .asciz "SWITCH" .skip 1 .align 8 .LC120: .asciz "OWN" .skip 4 .align 8 .LC121: .asciz "EXTERNAL" .align 8 .LC122: .asciz "STRING" .skip 1 .align 8 .LC123: .asciz "RECORD" .skip 1 .align 8 .LC124: .asciz "FORMAT" .skip 1 .align 8 .LC125: .asciz "SPEC" .skip 3 .align 8 .LC126: .asciz "MCODE" .skip 2 .align 8 .LC127: .asciz "LABEL" .skip 2 .align 8 .LC128: .asciz "OP1" .skip 4 .align 8 .LC129: .asciz "OP2" .skip 4 .align 8 .LC130: .asciz "OP3" .skip 4 .align 8 .LC131: .asciz "SIGN" .skip 3 .align 8 .LC132: .asciz "UOP" .skip 4 .align 8 .LC133: .asciz "MOD" .skip 4 .align 8 .LC134: .asciz "DOT" .skip 4 .align 8 .LC135: .asciz "COMP" .skip 3 .align 8 .LC136: .asciz "ACOMP" .skip 2 .align 8 .LC137: .asciz "EQ" .skip 5 .align 8 .LC138: .asciz "EQEQ" .skip 3 .align 8 .LC139: .asciz "JAM" .skip 4 .align 8 .LC140: .asciz "JUMP" .skip 3 .align 8 .LC141: .asciz "RESOP" .skip 2 .align 8 .LC142: .asciz "AND" .skip 4 .align 8 .LC143: .asciz "OR" .skip 5 .align 8 .LC144: .asciz "NOT" .skip 4 .align 8 .LC145: .asciz "WHILE" .skip 2 .align 8 .LC146: .asciz "UNTIL" .skip 2 .align 8 .LC147: .asciz "FOR" .skip 4 .align 8 .LC148: .asciz "CWORD" .skip 2 .align 8 .LC149: .asciz "EXIT" .skip 3 .align 8 .LC150: .asciz "ON" .skip 5 .align 8 .LC151: .asciz "SIGNAL" .skip 1 .align 8 .LC152: .asciz "THEN" .skip 3 .align 8 .LC153: .asciz "START" .skip 2 .align 8 .LC154: .asciz "ELSE" .skip 3 .align 8 .LC155: .asciz "FINISH" .skip 1 .align 8 .LC156: .asciz "FELSE" .skip 2 .align 8 .LC157: .asciz "CYCLE" .skip 2 .align 8 .LC158: .asciz "REPEAT" .skip 1 .section .rodata.str1.8 .align 8 .LC159: .asciz "PROGRAM" .section ".rodata" .align 8 .LC160: .asciz "BEGIN" .skip 2 .align 8 .LC161: .asciz "END" .skip 4 .section .rodata.str1.8 .align 8 .LC162: .asciz "ENDPROG" .align 8 .LC163: .asciz "ENDPERM" .align 8 .LC164: .asciz "FRESULT" .align 8 .LC165: .asciz "MRESULT" .section ".rodata" .align 8 .LC166: .asciz "BACK" .skip 3 .section .rodata.str1.8 .align 8 .LC167: .asciz "MONITOR" .section ".rodata" .align 8 .LC168: .asciz "STOP" .skip 3 .align 8 .LC169: .asciz "LIST" .skip 3 .section .rodata.str1.8 .align 8 .LC170: .asciz "REALSLN" .align 8 .LC171: .asciz "CONTROL" .align 8 .LC172: .asciz "INCLUDE" .section ".rodata" .align 8 .LC173: .asciz "MASS" .skip 3 .align 8 .LC174: .asciz "RTYPE" .skip 2 .align 8 .LC175: .asciz "ADDOP" .skip 2 .align 8 .LC176: .asciz "IDENT" .skip 2 .align 8 .LC177: .asciz "V" .skip 6 .align 8 .LC178: .asciz "N" .skip 6 .align 8 .LC179: .asciz "CONST" .skip 2 .align 8 .LC180: .asciz "FM" .skip 5 .align 8 .LC181: .asciz "R" .skip 6 .align 8 .LC182: .asciz "F" .skip 6 .align 8 .LC183: .asciz "M" .skip 6 .align 8 .LC184: .asciz "P" .skip 6 .align 8 .LC185: .asciz "RP" .skip 5 .align 8 .LC186: .asciz "FP" .skip 5 .align 8 .LC187: .asciz "MP" .skip 5 .align 8 .LC188: .asciz "PP" .skip 5 .align 8 .LC189: .asciz "L" .skip 6 .align 8 .LC190: .asciz "S" .skip 6 .align 8 .LC191: .asciz "A" .skip 6 .align 8 .LC192: .asciz "AN" .skip 5 .align 8 .LC193: .asciz "NA" .skip 5 .align 8 .LC194: .asciz "NAN" .skip 4 .section .rodata.str1.8 .align 8 .LC195: .asciz "%MSTART" .section ".rodata" .align 8 .LC196: .asciz "%CLEAR" .skip 1 .align 8 .LC197: .asciz "%PRED" .skip 2 .align 8 .LC198: .asciz "%DUBIOUS" .align 8 .LC199: .asciz "%DUP" .skip 3 .align 8 .LC200: .asciz "%PIN" .skip 3 .align 8 .LC201: .asciz "%POUT" .skip 2 .align 8 .LC202: .asciz "%EDUP" .skip 2 .align 8 .LC203: .asciz "PIDENT" .skip 1 .align 8 .LC204: .asciz "CIDENT" .skip 1 .align 8 .LC205: .asciz "OIDENT" .skip 1 .align 8 .LC206: .asciz "FNAME" .skip 2 .align 8 .LC207: .asciz "SWID" .skip 3 .align 8 .LC208: .asciz "DOTL" .skip 3 .align 8 .LC209: .asciz "DOTR" .skip 3 .align 8 .LC210: .asciz "ASEP" .skip 3 .align 8 .LC211: .asciz "CSEP" .skip 3 .align 8 .LC212: .asciz "OSEP" .skip 3 .align 8 .LC213: .asciz "PSEP" .skip 3 .align 8 .LC214: .asciz "ARB" .skip 4 .align 8 .LC215: .asciz "BPLRB" .skip 2 .align 8 .LC216: .asciz "ORB" .skip 4 .align 8 .LC217: .asciz "PRB" .skip 4 .align 8 .LC218: .asciz "CRB" .skip 4 .align 8 .LC219: .asciz "RCRB" .skip 3 .align 8 .LC220: .asciz "RECRB" .skip 2 .align 8 .LC221: .asciz "RECLB" .skip 2 .align 8 .LC222: .asciz "LAB" .skip 4 .align 8 .LC223: .asciz "MLAB" .skip 3 .align 8 .LC224: .asciz "SLAB" .skip 3 .align 8 .LC225: .asciz "XNAME" .skip 2 .align 8 .LC226: .asciz "OWNT" .skip 3 .align 8 .LC227: .asciz "DBSEP" .skip 2 .align 8 .LC228: .asciz "PCONST" .skip 1 .align 8 .LC229: .asciz "CMOD" .skip 3 .align 8 .LC230: .asciz "CSIGN" .skip 2 .align 8 .LC231: .asciz "CUOP" .skip 3 .align 8 .LC232: .asciz "COP1" .skip 3 .align 8 .LC233: .asciz "COP2" .skip 3 .align 8 .LC234: .asciz "COP3" .skip 3 .align 8 .LC235: .asciz "INDEF" .skip 2 .align 8 .LC236: .asciz "XELSE" .skip 2 .align 8 .LC237: .asciz "CRESOP" .skip 1 .align 8 .LC238: .asciz "NLAB" .skip 3 .align 8 .LC239: .asciz "RUNTIL" .skip 1 .align 8 .LC240: .asciz "ACONST" .skip 1 .align 8 .LC241: .asciz "ORRB" .skip 3 .align 8 .LC242: .asciz "FMANY" .skip 2 .section .rodata.str1.8 .align 8 .LC243: .asciz "OSTRING" .section ".rodata" .align 8 .LC244: .asciz "FMLB" .skip 3 .align 8 .LC245: .asciz "FMRB" .skip 3 .align 8 .LC246: .asciz "FMOR" .skip 3 .section .rodata.str1.8 .align 8 .LC247: .asciz "RANGERB" .section ".rodata" .align 8 .LC248: .asciz "FSID" .skip 3 .align 8 .LC249: .asciz "%DUMMY" .skip 1 .align 8 .LC250: .asciz "%DECL" .skip 2 .align 8 .LC251: .asciz "%TYPE" .skip 2 .align 8 .LC252: .asciz "%ZERO" .skip 2 .align 8 .LC253: .asciz "%APPLY" .skip 1 .align 8 .LC254: .asciz "%PROT" .skip 2 .align 8 .LC255: .asciz "%SETPROT" .align 8 .LC256: .asciz "%PTYPE" .skip 1 .align 8 .LC257: .asciz "%GAPP" .skip 2 .align 8 .LC258: .asciz "%LOCAL" .skip 1 .align 8 .LC259: .asciz "%GUARD" .skip 1 .align 8 .LC260: .asciz "%MCODE" .skip 1 .section .rodata.str1.8 .align 8 .LC261: .asciz "%CDUMMY" .section ".rodata" .align 8 .LC262: .asciz "%SETTYPE" .align 8 .LC263: .asciz "%OPER" .skip 2 .align 8 .LC264: .asciz "%PARAM" .skip 1 .align 8 .LC265: .asciz "%BLOCK" .skip 1 .align 8 .LC266: .asciz "%OTHER" .skip 1 .align 8 .LC267: .asciz "%COMPILE" .align 8 .LC268: .asciz "APP" .skip 4 .section .rodata.str1.8 .align 8 .LC269: .asciz "BASEAPP" .section ".rodata" .align 8 .LC270: .asciz "APP2" .skip 3 .align 8 .LC271: .asciz "APP3" .skip 3 .align 8 .LC272: .asciz "APP4" .skip 3 .align 8 .LC273: .asciz "APP5" .skip 3 .align 8 .LC274: .asciz "APP6" .skip 3 .align 8 .LC275: .asciz "ADEFN" .skip 2 .align 8 .LC276: .asciz "NPARM" .skip 2 .align 8 .LC277: .asciz "SWDEF" .skip 2 .align 8 .LC278: .asciz "SWIDS" .skip 2 .align 8 .LC279: .asciz "CIEXP" .skip 2 .align 8 .LC280: .asciz "RCONST" .skip 1 .align 8 .LC281: .asciz "SCONST" .skip 1 .align 8 .LC282: .asciz "ARRAYP" .skip 1 .align 8 .LC283: .asciz "XIMP" .skip 3 .align 8 .LC284: .asciz "IMP" .skip 4 .align 8 .LC285: .asciz "COND" .skip 3 .align 8 .LC286: .asciz "SCOND" .skip 2 .align 8 .LC287: .asciz "EXP1" .skip 3 .align 8 .LC288: .asciz "EXP2" .skip 3 .align 8 .LC289: .asciz "SEXP" .skip 3 .align 8 .LC290: .asciz "IEXP" .skip 3 .align 8 .LC291: .asciz "IEXP1" .skip 2 .align 8 .LC292: .asciz "IEXP2" .skip 2 .align 8 .LC293: .asciz "ISEXP" .skip 2 .align 8 .LC294: .asciz "SEQ" .skip 4 .align 8 .LC295: .asciz "FDEF" .skip 3 .align 8 .LC296: .asciz "EXP" .skip 4 .section .rodata.str1.8 .align 8 .LC297: .asciz "NARRAYP" .section ".rodata" .align 8 .LC298: .asciz "STRUCT" .skip 1 .align 8 .LC299: .asciz "RESEXP" .skip 1 .align 8 .LC300: .asciz "BPL" .skip 4 .align 8 .LC301: .asciz "CONSTB" .skip 1 .align 8 .LC302: .asciz "FITEM" .skip 2 .align 8 .LC303: .asciz "MOREA" .skip 2 .align 8 .LC304: .asciz "CLIST" .skip 2 .align 8 .LC305: .asciz "FPP" .skip 4 .align 8 .LC306: .asciz "FPP0" .skip 3 .align 8 .LC307: .asciz "FPP1" .skip 3 .align 8 .LC308: .asciz "FPP2" .skip 3 .section .rodata.str1.8 .align 8 .LC309: .asciz "INITVAR" .section ".rodata" .align 8 .LC310: .asciz "RECEXP" .skip 1 .align 8 .LC311: .asciz "EIMP" .skip 3 .align 8 .LC312: .asciz "IDENTS" .skip 1 .align 8 .LC313: .asciz "RANGE" .skip 2 .section .rodata.str1.8 .align 8 .LC314: .asciz "RCONSTB" .section ".rodata" .align 8 .LC315: .asciz "VARP" .skip 3 .section .rodata.str1.8 .align 8 .LC316: .asciz "INITDEC" .section ".rodata" .align 8 .LC317: .asciz "ESCDEC" .skip 1 .section .rodata.str1.8 .align 8 .LC318: .asciz "ESCPROC" .section ".rodata" .align 8 .LC319: .asciz "ESCARRAY" .align 8 .LC320: .asciz "ESCREC" .skip 1 .align 2 .LC2: .half 24 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 23 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 20 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half -32551 .half 0 .half 0 .half 0 .half 0 .half 13 .half 0 .half 14 .half 4 .half -32557 .half 16 .half -32550 .half 0 .half 0 .half 5 .half 6 .half 3 .half 12 .half 15 .half 8 .half 7 .half 9 .half 10 .half 11 .half -32558 .half -32554 .half -32559 .half -32552 .half -32553 .half 18 .half 22 .half 17 .half 21 .half 19 .half 0 .half 0 .half 0 .half -32562 .half -32560 .half 0 .half 0 .half 0 .half -32561 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 1 .half 2 .half 0 .half -32556 .half 0 .half -32555 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .align 2 .LC4: .half 0 .half 511 .half 131 .half 531 .half 131 .half 551 .half 559 .half 131 .half 567 .half 575 .half 583 .half 603 .half 623 .half 631 .half 663 .half 671 .half 129 .half 129 .half 129 .half 129 .half 129 .half 129 .half 129 .half 129 .half 129 .half 129 .half 691 .half 698 .half 707 .half 751 .half 795 .half 131 .half 131 .half 824 .half 900 .half 960 .half 1076 .half 1120 .half 1280 .half 128 .half 128 .half 1392 .half 128 .half 128 .half 1460 .half 1600 .half 1636 .half 1704 .half 1792 .half 128 .half 1872 .half 2088 .half 2284 .half 2316 .half 128 .half 2356 .half 128 .half 128 .half 128 .half 2375 .half 2383 .half 2415 .half 2423 .half 2443 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 131 .half 2451 .half 131 .half 2459 .half -32351 .half 16428 .half 25 .half 16428 .half 29 .half -32349 .half 16433 .half 1 .half 16434 .half 1 .half -16127 .half 0 .half 16427 .half 21 .half 16407 .half 0 .half 16409 .half 0 .half -32323 .half -10840 .half 40 .half 16471 .half 0 .half -32341 .half -10580 .half 32 .half 16473 .half 117 .half 16384 .half 19 .half -31955 .half -32322 .half -10580 .half 36 .half -9290 .half 0 .half 16473 .half 113 .half 16432 .half 13 .half -32337 .half 16427 .half 46 .half 16427 .half 17 .half 16405 .half 0 .half 16404 .half 0 .half -31556 .half -31939 .half -32322 .half -9551 .half 2 .half 16433 .half 1 .half 16433 .half 5 .half 16426 .half 5 .half -31606 .half -32323 .half -9807 .half 0 .half -32374 .half -9678 .half 0 .half 16436 .half 0 .half 16435 .half 0 .half -31939 .half -32322 .half 16433 .half 4 .half 16426 .half 9 .half 16433 .half 3 .half -30772 .half -31666 .half 10578 .half 11457 .half -32344 .half 16413 .half 2 .half 16411 .half 2 .half 68 .half -32374 .half 16440 .half 0 .half 16440 .half 0 .half 8393 .half 83 .half 16408 .half 0 .half -31291 .half 10841 .half 69 .half -32311 .half 16412 .half 18 .half 10830 .half 9157 .half 10565 .half 16412 .half 18 .half 9415 .half 78 .half 16458 .half 0 .half -32049 .half 8665 .half 8908 .half 16455 .half 0 .half -30131 .half 78 .half -31277 .half 84 .half -32055 .half 10194 .half 76 .half 16469 .half 0 .half 10958 .half 69 .half 16447 .half 32 .half 84 .half -32319 .half 16418 .half 2 .half 10830 .half 16418 .half 2 .half 8909 .half 10830 .half 16406 .half 0 .half -31927 .half 10073 .half 9921 .half 8649 .half 16419 .half 5 .half 9153 .half 10190 .half 8915 .half 16469 .half 1 .half -27956 .half -31282 .half 88 .half -31927 .half 8916 .half 10066 .half 9793 .half 16419 .half 3 .half 84 .half 16447 .half 4 .half 68 .half -32305 .half 16459 .half 2 .half 70 .half -30650 .half -31284 .half 80 .half -31931 .half 10194 .half 10567 .half 9921 .half 16460 .half 1 .half 9938 .half 16461 .half 0 .half 10697 .half 84 .half 16467 .half 3 .half 9801 .half 69 .half 16460 .half 0 .half 8915 .half 16452 .half 0 .half -29631 .half -30903 .half -31282 .half -31793 .half 10069 .half 10819 .half 10185 .half 78 .half 16416 .half 9 .half 82 .half 16445 .half 0 .half 16416 .half 9 .half 9422 .half 9299 .half -32315 .half 16453 .half 0 .half 10700 .half 69 .half 16454 .half 0 .half 10700 .half 69 .half 16464 .half 1210 .half -30778 .half 78 .half -31549 .half 8916 .half 8903 .half 82 .half -32344 .half 16412 .half 17 .half 16472 .half 17 .half 10956 .half 8900 .half 16470 .half 0 .half 16446 .half 44 .half -28735 .half -29239 .half 10063 .half 71 .half -30263 .half -31668 .half -32302 .half 16412 .half 20 .half 8389 .half 76 .half 16412 .half 36 .half 10063 .half 71 .half -32311 .half 16412 .half 21 .half 10830 .half 9157 .half 10565 .half 16412 .half 21 .half 10830 .half 9157 .half 10565 .half 16412 .half 20 .half 10835 .half 16467 .half 1 .half 8898 .half 76 .half 16425 .half 6 .half -31935 .half 10063 .half 10825 .half 10575 .half 16465 .half 109 .half 80 .half 16416 .half 10 .half -32191 .half 10831 .half 16442 .half 0 .half 8909 .half -32314 .half 16414 .half 1 .half -31794 .half 10069 .half 10819 .half 10185 .half 78 .half 16416 .half 10 .half 16416 .half 10 .half -30770 .half -31408 .half -32174 .half 10071 .half 16418 .half 1 .half -32374 .half 16441 .half 2 .half 16441 .half 2 .half 9428 .half 10063 .half 16402 .half 0 .half -32315 .half 16448 .half 0 .half 8918 .half 10830 .half 16448 .half 0 .half -30523 .half 82 .half -31419 .half -31927 .half 9167 .half 8402 .half 77 .half 16457 .half 0 .half 77 .half 16419 .half 6 .half 9412 .half 8387 .half 8916 .half 16415 .half 123 .half 9938 .half 16419 .half 7 .half -31931 .half 10959 .half 9428 .half 8910 .half 16415 .half 104 .half -28351 .half -30397 .half -31024 .half -32045 .half 10964 .half 10066 .half 16464 .half 1319 .half 9813 .half 7892 .half -32323 .half 16462 .half 1384 .half 16463 .half 1241 .half 8389 .half 84 .half 16456 .half 0 .half 10575 .half 68 .half -32314 .half 16421 .half 64 .half 10575 .half 8397 .half 84 .half -32301 .half 16422 .half 9 .half 8912 .half 67 .half 16422 .half 12 .half 76 .half -32301 .half 16412 .half 33 .half -31924 .half 10190 .half 9938 .half 9793 .half 16468 .half 1 .half 10063 .half 71 .half 16468 .half 4 .half -27704 .half -28983 .half -29488 .half -31276 .half -31913 .half 10713 .half 8916 .half 77 .half 16419 .half 4 .half 10825 .half 9283 .half 16417 .half 12 .half -31423 .half -31921 .half 9426 .half 9166 .half 40 .half 16420 .half 48 .half 80 .half 16466 .half 115 .half 10834 .half 16451 .half 0 .half 8645 .half 16423 .half 0 .half 10055 .half 9793 .half -32315 .half 16449 .half 0 .half 8918 .half 10830 .half 16449 .half 0 .half 10575 .half 84 .half -32311 .half 16412 .half 19 .half 10830 .half 9157 .half 10565 .half 16412 .half 19 .half -32056 .half 10962 .half 69 .half 16464 .half 1354 .half 10053 .half 16450 .half 0 .half 78 .half -32052 .half 9428 .half 76 .half 16444 .half 182 .half 10693 .half 83 .half 16446 .half 46 .half 9416 .half 8908 .half 16443 .half 180 .half 16407 .half 0 .half -31939 .half -32292 .half -10454 .half 51 .half 16426 .half 13 .half 16433 .half 1 .half 16409 .half 0 .half -32290 .half -10454 .half 51 .half 16426 .half 13 .half 16410 .half 0 .half 16431 .half 14 .half -32323 .half 16430 .half 51 .half 16433 .half 1 .LC5: .byte 44 .asciz " Edinburgh IMP77 Compiler - Version " .skip 210 .LC6: .byte 20 .asciz " Statements compiled" .skip 234 .LC7: .byte 18 .asciz " Program contains " .skip 236 .LC8: .byte 6 .asciz " fault" .skip 248 .section ".text" .align 4 .global main .proc 04 main: .LFB185: 2713 %on 9 %start mov 1, %o1 sethi %hi(_imp_event+544), %o0 call __sigsetjmp, 0 or %o0, %lo(_imp_event+544), %o0 .LVL1361: cmp %o0, 0 bne,pn %icc, .L1109 mov 512, %o1 .LVL1362: sethi %hi(_imp_event), %o0 call _imp_on_event_enter, 0 or %o0, %lo(_imp_event), %o0 .LVL1363: brz,pn %o0, .L1123 sethi %hi(135168), %g5 .LVL1364: .L1110: .LBB732: .LBB733: mov 2, %i5 .L1122: sethi %hi(_imp_InStream), %g1 st %i5, [%g1+%lo(_imp_InStream)] sethi %hi(_imp_infile), %g1 ldx [%g1+%lo(_imp_infile)+584], %g2 sethi %hi(_imp_InFile), %g1 stx %g2, [%g1+%lo(_imp_InFile)] sethi %hi(__PRETTY_FUNCTION__.5656), %o0 call check_instream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5656), %o0 .LVL1365: .LBE733: .LBE732: .LBB734: .LBB735: sethi %hi(_imp_OutStream), %g1 st %i5, [%g1+%lo(_imp_OutStream)] sethi %hi(_imp_outfile), %g1 ldx [%g1+%lo(_imp_outfile)+584], %g2 sethi %hi(_imp_OutFile), %g1 stx %g2, [%g1+%lo(_imp_OutFile)] sethi %hi(__PRETTY_FUNCTION__.5660), %o0 call check_outstream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5660), %o0 .LVL1366: .LBE735: .LBE734: 2714 abandon(5) sethi %hi(.LC17), %g2 or %g2, %lo(.LC17), %i4 .L921: .LVL648: jmp %g1 nop .LVL649: .L957: .LBE638: sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L923 mov 256, %o2 call _imp_c2istr, 0 add %fp, 975, %o0 .LVL953: sethi %hi(_imp_current_line), %g1 .L1028: lduw [%g1+%lo(_imp_current_line)], %i3 cmp %i3, 0 mov 2714, %g1 move %icc, %g1, %i3 mov 256, %o2 add %fp, 975, %o1 sethi %hi(4096), %i1 xor %i1, -209, %g1 add %g1, %fp, %g1 ldx [%g1], %i2 call memcpy, 0 mov %i2, %o0 .LVL954: sra %i5, 0, %o4 mov 2230, %g1 stx %g1, [%sp+2239] .LVL955: xor %i1, -201, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 stx %g1, [%sp+2231] stx %o4, [%sp+2223] sethi %hi(.LC89), %o5 or %o5, %lo(.LC89), %o5 mov 2, %o3 mov 8, %o2 sra %i3, 0, %o1 call _signal_eventf, 0 mov %i2, %o0 .LVL956: mov %i4, %o1 call memcpy, 0 add %fp, -305, %o0 .LVL958: mov 256, %o2 add %fp, -305, %o1 call memcpy, 0 add %fp, -561, %o0 .LVL959: .LBE675: mov 256, %o2 add %fp, -561, %o1 call memcpy, 0 add %fp, 975, %o0 .LVL960: ba,pt %xcc, .L1028 sethi %hi(_imp_current_line), %g1 .L927: .LBB676: sethi %hi(135168), %g5 .L1123: xor %g5, -920, %g5 add %fp, 2047, %g1 add %g1, %g5, %g5 call ABANDON.6232, 0 mov 5, %o0 .LVL1393: ba,pt %xcc, .L1122 mov 2, %i5 .LVL1394: .L1113: .LBB756: 2715 %finish 2716 2717 selectinput(2); selectoutput(listing) sethi %hi(4096), %g1 .L1027: xor %g1, -221, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 add %g1, -1, %g1 cmp %g1, 11 bleu,pt %icc, .L1051 sethi %hi(4096), %g1 sethi %hi(_imp_current_file), %g1 ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L927 mov 256, %o2 call _imp_c2istr, 0 add %fp, 1231, %o0 .LVL901: sethi %hi(_imp_current_line), %g1 .L1029: lduw [%g1+%lo(_imp_current_line)], %i3 cmp %i3, 0 mov 2717, %g1 move %icc, %g1, %i3 mov 256, %o2 add %fp, 1231, %o1 sethi %hi(4096), %i1 xor %i1, -209, %g1 add %g1, %fp, %g1 ldx [%g1], %i2 call memcpy, 0 mov %i2, %o0 .LVL902: xor %i1, -221, %g1 add %g1, %fp, %g1 ldsw [%g1], %o4 xor %i1, -225, %g1 add %g1, %fp, %g1 ldsw [%g1], %g1 stx %g1, [%sp+2239] .LVL903: xor %i1, -233, %g1 add %g1, %fp, %g1 ldx [%g1], %g1 stx %g1, [%sp+2231] stx %o4, [%sp+2223] sethi %hi(.LC90), %o5 or %o5, %lo(.LC90), %o5 mov 3, %o3 mov 6, %o2 sra %i3, 0, %o1 call _signal_eventf, 0 mov %i2, %o0 .LVL904: ba,pt %xcc, .L1027 sethi %hi(4096), %g1 .LVL957: .L923: .LBB675: mov %i4, %o1 call memcpy, 0 add %fp, -305, %o0 .LVL961: mov 256, %o2 add %fp, -305, %o1 call memcpy, 0 add %fp, -49, %o0 .LVL962: .LBE676: mov 256, %o2 add %fp, -49, %o1 call memcpy, 0 add %fp, 1231, %o0 .LVL963: ba,pt %xcc, .L1029 sethi %hi(_imp_current_line), %g1 .L653: .L930: .LVL964: .L783: .LBB677: .LBB649: 2718 tag(max tag) = 0; ! %begin defn sethi %hi(4096), %g1 .L1051: xor %g1, -221, %g1 add %g1, %fp, %g1 lduw [%g1], %g1 add %g1, -1, %g1 sra %g1, 0, %g1 sllx %g1, 3, %g1 sethi %hi(LITOP.7184), %g2 or %g2, %lo(LITOP.7184), %g2 ba,pt %xcc, .L921 ldx [%g2+%g1], %g1 .LVL905: .L887: sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 24, %o2 mov 0, %o1 sethi %hi(17470464), %o0 srlx %o0, 8, %o0 call memset, 0 add %i5, %o0, %o0 .LVL1367: mov 24, %o2 mov 0, %o1 sethi %hi(12555264), %o0 srlx %o0, 8, %o0 call memset, 0 add %i5, %o0, %o0 .LVL1368: 2719 tag(0) = 0; tag(0)_flags = 7; ! %begin tag! ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L962 nop return %i7+8 nop .LVL651: .L958: 2720 Hash(x) = 0 %for x = 0, 1, max names sethi %hi(12557312), %g1 srlx %g1, 8, %g1 mov 7, %g2 st %g2, [%i5+%g1] mov 0, %g2 2721 printstring(" Edinburgh IMP77 Compiler - Version ") sethi %hi(137216), %i4 xor %i4, -664, %i1 add %g5, %i1, %i1 mov 256, %o2 sethi %hi(.LC5), %o1 or %o1, %lo(.LC5), %o1 call memcpy, 0 mov %i1, %o0 .LVL1369: sethi %hi(138240), %i5 xor %i5, -408, %i3 add %fp, 2047, %g1 add %g1, %i3, %i3 mov 256, %o2 mov %i1, %o1 call memcpy, 0 mov %i3, %o0 .LVL1370: xor %i4, -152, %i4 add %fp, 2047, %g1 add %g1, %i4, %i4 mov 256, %o2 mov %i3, %o1 call memcpy, 0 mov %i4, %o0 .LVL1371: .LBE736: .LBB737: .LBB738: xor %i5, -672, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov 256, %o2 mov %i4, %o1 call memcpy, 0 mov %i5, %o0 .LVL1372: call _imp_printstring, 0 mov %i5, %o0 .LVL1373: sethi %hi(136192), %o1 xor %o1, -920, %o1 .LVL1374: add %fp, 2047, %g1 stb %g0, [%g1+%o1] .LBE738: .LBE737: .LBB739: .LBB740: mov 256, %o2 add %g1, %o1, %o1 call memcpy, 0 mov %i5, %o0 .LVL1375: call _imp_printstring, 0 mov %i5, %o0 .LVL1376: .LBE740: .LBE739: .LBB741: .LBB742: call _imp_newlines, 0 mov 2, %o0 .LVL1377: .LBE742: .LBE741: 2722 ! printstring(" Preston IMP2020 Compiler - Version ") 2723 printstring(version); newlines(2) cmp %g2, 2048 bne,pt %icc, .L1111 st %g0, [%g1+%g4] .LDL53: sethi %hi(X.6084), %i2 mov 2047, %g1 st %g1, [%i2+%lo(X.6084)] .LBB736: 2724 op('l', 0) sethi %hi(135168), %i5 xor %i5, -920, %i5 add %fp, 2047, %g1 add %g1, %i5, %i5 mov %i5, %g5 mov 0, %o1 call OP.6199, 0 mov 108, %o0 .LVL1378: mov %i5, %g5 mov 0, %o4 mov 0, %o3 mov 375, %o2 sllx %o2, 4, %o2 mov 0, %o1 call COMPILEBLOCK.6309, 0 mov 0, %o0 .LVL1379: 2725 compile block(0, 0, max dict, 0, 0) sethi %hi(135168), %g1 xor %g1, -920, %g4 mov 1053, %g1 sllx %g1, 2, %g3 .L1111: sra %g2, 0, %g1 add %g1, %g3, %g1 sllx %g1, 2, %g1 add %fp, 2047, %g5 add %g5, %g1, %g1 .LDL52: add %g2, 1, %g2 2726 add char( nl ); ! {for bouncing off} mov %i5, %g5 call ADDCHAR.6195, 0 mov 10, %o0 .LVL1380: 2727 flush buffer( 0 ); ! flush if bp >= 0 mov %i5, %g5 call FLUSHBUFFER.6182, 0 mov 0, %o0 .LVL1381: 2728 2729 x = listing mov 2, %g1 .LBB743: .LBB744: call _imp_newline, 0 st %g1, [%i2+%lo(X.6084)] .LVL1382: .LBE744: .LBE743: .LBB745: 2730 newline 2731 %cycle 2732 %if faulty = 0 %start sethi %hi(FAULTY.6092), %g1 .L1121: lduw [%g1+%lo(FAULTY.6092)], %g1 cmp %g1, 0 bne,pt %icc, .L1113 mov 256, %o2 ba,pt %xcc, .L1121 sethi %hi(FAULTY.6092), %g1 .LVL1392: .L1109: 2733 write(stats, 5) mov 5, %o1 sethi %hi(STATS.6100), %g1 call _imp_writeint, 0 ldsw [%g1+%lo(STATS.6100)], %o0 .LVL1383: .LBB749: 2734 printstring(" Statements compiled") mov 256, %o2 sethi %hi(.LC6), %o1 or %o1, %lo(.LC6), %o1 call memcpy, 0 mov %i4, %o0 .LVL1384: xor %i3, -152, %l2 add %fp, 2047, %g1 add %g1, %l2, %l2 mov 256, %o2 mov %i4, %o1 call memcpy, 0 mov %l2, %o0 .LVL1385: xor %i1, -664, %l1 add %fp, 2047, %g1 add %g1, %l1, %l1 mov 256, %o2 mov %l2, %o1 call memcpy, 0 mov %l1, %o0 .LVL1386: .LBE749: .LBB750: .LBB751: mov 256, %o2 mov %l1, %o1 call memcpy, 0 mov %i5, %o0 .LVL1387: call _imp_printstring, 0 mov %i5, %o0 .LVL1388: .L1114: .L1115: .LBE751: .LBE750: .LBB752: .LBB753: call _imp_newline, 0 nop .LVL1389: .LBE753: .LBE752: 2735 %else 2736 printstring(" Program contains ") sethi %hi(137216), %i0 mov %i1, %i4 xor %i0, -920, %l0 sethi %hi(136192), %i1 xor %i1, -408, %g1 add %fp, 2047, %g2 add %g2, %g1, %i2 .LBE745: .LBB746: .LBB747: sethi %hi(138240), %i3 xor %i3, -672, %i5 add %g2, %i5, %i5 .L1112: .LBE747: .LBE746: sethi %hi(.LC7), %o1 or %o1, %lo(.LC7), %o1 call memcpy, 0 mov %i4, %o0 .LVL1395: add %fp, 2047, %g1 add %g1, %l0, %l1 mov 256, %o2 mov %i4, %o1 call memcpy, 0 mov %l1, %o0 .LVL1396: mov 256, %o2 mov %l1, %o1 call memcpy, 0 mov %i2, %o0 .LVL1397: .LBE756: .LBB757: .LBB748: mov 256, %o2 mov %i2, %o1 call memcpy, 0 mov %i5, %o0 .LVL1398: call _imp_printstring, 0 mov %i5, %o0 .LVL1399: .LBE748: .LBE757: 2737 write(faulty, 1) sethi %hi(FAULTY.6092), %l3 mov 1, %o1 call _imp_writeint, 0 ldsw [%l3+%lo(FAULTY.6092)], %o0 .LVL1400: .LBB758: 2738 printstring(" fault") mov 256, %o2 sethi %hi(.LC8), %o1 or %o1, %lo(.LC8), %o1 call memcpy, 0 mov %i4, %o0 .LVL1401: xor %i0, -408, %l2 add %fp, 2047, %g1 add %g1, %l2, %l2 mov 256, %o2 mov %i4, %o1 call memcpy, 0 mov %l2, %o0 .LVL1402: xor %i1, -152, %l1 add %fp, 2047, %g1 add %g1, %l1, %l1 mov 256, %o2 mov %l2, %o1 call memcpy, 0 mov %l1, %o0 .LVL1403: .LBE758: .LBB759: .LBB760: mov 256, %o2 mov %l1, %o1 call memcpy, 0 mov %i5, %o0 .LVL1404: call _imp_printstring, 0 mov %i5, %o0 .LVL1405: .LBE760: .LBE759: 2739 printsymbol('s') %unless faulty = 1 lduw [%l3+%lo(FAULTY.6092)], %g1 cmp %g1, 1 be,pt %icc, .L1115 nop .LVL1406: .LBB761: .LBB762: call _imp_printsymbol, 0 mov 115, %o0 .LVL1407: ba,pt %xcc, .L1115 nop .LVL1408: .L1116: .LBE762: .LBE761: 2740 %finish 2741 newline 2742 %exit %if x = report sethi %hi(X.6084), %g1 lduw [%g1+%lo(X.6084)], %g1 cmp %g1, 0 be,pn %icc, .L1116 sethi %hi(X.6084), %g1 .L1117: 2743 x = report st %g0, [%g1+%lo(X.6084)] .LVL1390: .LBB754: .LBB755: sethi %hi(_imp_OutStream), %g1 st %g0, [%g1+%lo(_imp_OutStream)] sethi %hi(_imp_outfile), %g1 ldx [%g1+%lo(_imp_outfile)+8], %g2 sethi %hi(_imp_OutFile), %g1 stx %g2, [%g1+%lo(_imp_OutFile)] sethi %hi(__PRETTY_FUNCTION__.5660), %o0 call check_outstream, 0 or %o0, %lo(__PRETTY_FUNCTION__.5660), %o0 .LVL1391: .LBE755: .LBE754: 2744 selectoutput(report) 2745 %repeat 2746 2747 %if faulty # 0 %then %stop; ! try to flag to shell that we failed sethi %hi(FAULTY.6092), %g1 lduw [%g1+%lo(FAULTY.6092)], %g1 cmp %g1, 0 be,pt %icc, .L1118 nop .LVL1409: .LBB763: .LBB764: call exit, 0 mov 0, %o0 .LVL1410: .L1118: .LBE764: .LBE763: .LBB765: .LBB766: call exit, 0 mov 0, %o0 .LVL1411: .LBE766: .LBE765: nop .LFE185: .section ".rodata" .align 8 __PRETTY_FUNCTION__.5660: .asciz "_imp_SELECTOUTPUT" .align 8 FM.6340: .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .xword .L408 .align 8 LITOP.7184: .xword .L890 .xword .L892 .xword .L893 .xword .L897 .xword .L899 .xword .L900 .xword .L901 .xword .L902 .xword .L903 .xword .L904 .xword .L905 .xword .L906 .align 8 C.7050: .xword .L642 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L679 .xword .L670 .xword .L677 .xword .L678 .xword .L674 .xword .L675 .xword .L688 .xword .L671 .xword .L672 .xword .L684 .xword .L683 .xword .L690 .xword .L689 .xword .L922 .xword .L693 .xword .L709 .xword .L710 .xword .L711 .xword .L705 .xword .L706 .xword .L707 .xword .L708 .xword .L753 .xword .L751 .xword .L766 .xword .L768 .xword .L767 .xword .L922 .xword .L914 .xword .L712 .xword .L713 .xword .L714 .xword .L716 .xword .L717 .xword .L922 .xword .L721 .xword .L745 .xword .L736 .xword .L765 .xword .L922 .xword .L731 .xword .L727 .xword .L723 .xword .L725 .xword .L732 .xword .L722 .xword .L922 .xword .L769 .xword .L776 .xword .L774 .xword .L773 .xword .L759 .xword .L760 .xword .L761 .xword .L764 .xword .L762 .xword .L789 .xword .L790 .xword .L788 .xword .L791 .xword .L917 .xword .L669 .xword .L763 .xword .L816 .xword .L830 .xword .L831 .xword .L840 .xword .L922 .xword .L922 .xword .L824 .xword .L821 .xword .L822 .xword .L823 .xword .L826 .xword .L827 .xword .L828 .xword .L829 .xword .L743 .xword .L861 .xword .L832 .xword .L833 .xword .L834 .xword .L835 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L730 .xword .L837 .xword .L916 .xword .L922 .xword .L820 .xword .L814 .xword .L698 .xword .L697 .xword .L810 .xword .L922 .xword .L811 .xword .L817 .xword .L847 .xword .L694 .xword .L862 .xword .L912 .xword .L913 .xword .L845 .xword .L715 .xword .L855 .xword .L877 .xword .L846 .xword .L805 .xword .L852 .xword .L878 .xword .L803 .xword .L804 .xword .L704 .xword .L695 .xword .L744 .xword .L922 .xword .L865 .xword .L673 .xword .L856 .xword .L802 .xword .L879 .xword .L882 .xword .L884 .xword .L885 .xword .L886 .xword .L887 .xword .L888 .xword .L850 .xword .L724 .xword .L915 .xword .L825 .xword .L720 .xword .L838 .xword .L703 .xword .L922 .xword .L911 .xword .L700 .xword .L701 .xword .L702 .xword .L699 .xword .L692 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .xword .L922 .common PSTACK.7223,160,4 .common LB.7207,4,4 .common UB.7208,4,4 .common CNEST.7201,16,8 .common NAME.7224,256,1 .common COUNT.7225,4,4 .common LAST.6615,4,4 .common LT.6596,4,4 .common LSA.6595,4,4 .common LA2.6594,4,4 .common LA1.6593,4,4 .common KEY.6568,4,4 .align 8 PACTION.6580: .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .xword .L508 .align 8 ACT.6575: .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .xword .L499 .align 8 __PRETTY_FUNCTION__.5656: .asciz "_imp_SELECTINPUT" .align 8 REASON.6237: .xword .L49 .xword .L49 .xword .L49 .xword .L49 .xword .L49 .xword .L49 .xword .L49 .xword .L49 .xword .L49 .xword .L49 .section ".data" .align 4 SPARENAMES.6057: .long 2047 .common CLASS.6083,4,4 .common ATOM1.6085,4,4 .common ATOM2.6086,4,4 .common SUBATOM.6087,4,4 .common TYPE.6088,4,4 .common APP.6089,4,4 .common FORMAT.6090,4,4 .common FAULTRATE.6093,4,4 .common LINES.6094,4,4 .common TEXTLINE.6095,4,4 .common MARGIN.6096,4,4 .common ERRORMARGIN.6097,4,4 .common ERRORSYM.6098,4,4 .common COLUMN.6099,4,4 .common MONPOS.6101,4,4 .align 4 SYM.6102: .long 10 .common SYMTYPE.6103,4,4 .common QUOTE.6104,4,4 .common ENDMARK.6105,4,4 .align 4 CONT.6106: .long 32 .align 4 CSYM.6107: .long 32 .common DECL.6108,4,4 .common DIM.6109,4,4 .common SPECGIVEN.6110,4,4 .common ESCAPECLASS.6111,4,4 .common ATOMFLAGS.6113,4,4 .common OTYPE.6114,4,4 .align 4 REALSLN.6115: .long 1 .common LAST1.6116,4,4 .common GENTYPE.6117,4,4 .common PTYPE.6118,4,4 .common PAPP.6119,4,4 .common PFORMAT.6120,4,4 .common FORCE.6121,4,4 .common G.6122,4,4 .common GG.6123,4,4 .common MAPGG.6124,4,4 .common FDEF.6125,4,4 .align 4 THIS.6126: .long -1 .common NMIN.6127,4,4 .common NMAX.6128,4,4 .common RBASE.6129,4,4 .align 4 DMAX.6130: .long 1 .align 4 TMIN.6131: .long 800 .common SS.6132,4,4 .common INCLUDELIST.6134,4,4 .common INCLUDELEVEL.6135,4,4 .common INCLUDE.6136,4,4 .align 4 PERM.6137: .long 1 .common PROGMODE.6138,4,4 .common SSTYPE.6139,4,4 .common SPECMODE.6140,4,4 .align 4 OCOUNT.6141: .long -1 .common LIMIT.6142,4,4 .common COPY.6143,4,4 .common ORDER.6144,4,4 .common DUBIOUS.6146,4,4 .align 4 DP.6147: .long 1 .common POS1.6148,4,4 .common POS2.6149,4,4 .common POS.6150,4,4 .common DIMENSION.6151,4,4 .common LOCAL.6152,4,4 .common FMBASE.6153,4,4 .common SEARCHBASE.6154,4,4 .common FORMATLIST.6155,4,4 .align 8 CHAR.6157: .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .byte 10 .common LIT.6159,4,4 .common LP.6160,4,4 .common BLOCKX.6161,4,4 .align 4 LIST.6162: .long 1 .common BP.6169,4,4 .align 4 GMIN.6170: .long 1720 .align 4 GMAX.6174: .long 719 .align 2 PHRASE.6177: .half 0 .half 564 .half 565 .half 567 .half 569 .half 571 .half 573 .half 562 .half 614 .half 203 .half 200 .half 602 .half 478 .half 480 .half 624 .half 298 .half 206 .half 308 .half 318 .half 433 .half 426 .half 437 .half 444 .half 458 .half 453 .half 461 .half 467 .half 482 .half 402 .half 627 .half 629 .half 603 .half 521 .half 511 .half 486 .half 502 .half 575 .half 527 .half 528 .half 543 .half 550 .half 578 .half 397 .half 287 .half 197 .half 636 .half 516 .half 621 .half 167 .half 0 .half 0 .half 0 .half 640 .half 693 .half 701 .half 709 .align 2 GRAM.6178: .half 0 .half -28523 .half -28521 .half -28602 .half -32706 .half -28509 .half -28603 .half -24502 .half -24503 .half -20405 .half -20404 .half -28595 .half -32697 .half -32709 .half -16323 .half -28600 .half -32704 .half -28587 .half -28589 .half -32681 .half -16344 .half -28586 .half -28588 .half -12270 .half -32586 .half 216 .half -12287 .half -16380 .half -8185 .half -8184 .half -12285 .half -12286 .half -12283 .half -12282 .half -12279 .half -12276 .half -16373 .half 20490 .half -32706 .half -32701 .half 216 .half -16364 .half -28610 .half -28613 .half -28612 .half 16445 .half 217 .half -16364 .half 62 .half -32701 .half 16450 .half -16364 .half 5346 .half -16364 .half 166 .half -16344 .half 4332 .half 130 .half -16360 .half -16361 .half 126 .half 217 .half -32701 .half 216 .half -16364 .half 16450 .half -32700 .half 16404 .half -32701 .half -32706 .half 216 .half 16405 .half 16407 .half -16222 .half 8414 .half 130 .half 217 .half -32697 .half 16450 .half 1250 .half 4307 .half 4318 .half 192 .half 93 .half 170 .half 90 .half 207 .half -16365 .half 16404 .half 90 .half -16360 .half -16365 .half 16404 .half 241 .half -16365 .half 16404 .half 132 .half 132 .half -16360 .half 4329 .half -16365 .half 16404 .half 133 .half 175 .half 90 .half -16365 .half 16404 .half 209 .half -16365 .half 16404 .half 4313 .half 217 .half 16451 .half 4263 .half 16384 .half 16384 .half 120 .half 216 .half -32700 .half 16404 .half -32706 .half 16404 .half 243 .half 16409 .half 454 .half -32685 .half 16404 .half 454 .half 248 .half -16365 .half 16404 .half 4263 .half 194 .half -16360 .half 4329 .half -32717 .half 16404 .half 4263 .half 16407 .half 454 .half 237 .half 127 .half 215 .half 454 .half 4263 .half 16384 .half -16364 .half 1502 .half -32629 .half -16361 .half 153 .half -32606 .half 222 .half 143 .half -32629 .half 153 .half 454 .half 126 .half 16409 .half 454 .half 16384 .half 234 .half -16365 .half -32595 .half 147 .half -32678 .half 234 .half 193 .half -32677 .half -32676 .half -32661 .half 109 .half -32717 .half 53 .half 52 .half 52 .half 52 .half 194 .half 194 .half 194 .half -28581 .half 4188 .half 194 .half -28566 .half 4203 .half 194 .half -28564 .half 4205 .half 4580 .half 16429 .half 183 .half 183 .half 186 .half 186 .half -28583 .half 0 .half 9437 .half 90 .half -16365 .half 0 .half 134 .half -16365 .half 0 .half 210 .half 4329 .half 199 .half -32677 .half -32672 .half -32676 .half -32688 .half -32690 .half -32705 .half -32661 .half -32659 .half -32689 .half -32686 .half -32687 .half -16330 .half 65 .half -32716 .half 186 .half -28583 .half -32717 .half -32715 .half -32713 .half 52 .half -32664 .half 4201 .half 186 .half -32717 .half -32715 .half 55 .half -16328 .half 0 .half 197 .half 197 .half 52 .half 52 .half 197 .half -28581 .half -28580 .half 186 .half -28581 .half 4188 .half 4318 .half 194 .half -28581 .half 4188 .half 9437 .half 194 .half 194 .half 454 .half 16407 .half 216 .half 194 .half -28566 .half -28565 .half 186 .half -28566 .half 4203 .half 194 .half -28564 .half -28563 .half 186 .half -28564 .half 4205 .half 183 .half 183 .half 186 .half 183 .half -16365 .half 0 .half 183 .half 4580 .half 16429 .half 5095 .half 9444 .half 5348 .half 186 .half -28583 .half -16328 .half 0 .half 16409 .half -16365 .half 0 .half 9437 .half 5348 .half 217 .half -32701 .half 16450 .half -32701 .half 216 .half -32700 .half 0 .half -32701 .half -32706 .half 216 .half 243 .half 217 .half -16318 .half 0 .half -32552 .half 0 .half -32700 .half 0 .half -32706 .half 0 .half 215 .half -32550 .half 228 .half -28616 .half -28615 .half 0 .half 4096 .half 218 .half 218 .half -28616 .half 0 .half -32677 .half -32676 .half -16361 .half -32710 .half -32669 .half -32662 .half -32661 .half -32660 .half -32659 .half 740 .half -32039 .half 740 .half -32719 .half 4096 .half 194 .half -32719 .half -32718 .half -32604 .half -32726 .half -32725 .half -32724 .half -32720 .half 4096 .half 710 .half 6116 .half -32719 .half 0 .half 710 .half 6116 .half -28581 .half 4188 .half 218 .half 122 .half 50 .half 16409 .half -32726 .half -32725 .half -32724 .half -32719 .half 4096 .half 710 .half 454 .half 195 .half 195 .half 195 .half 454 .half -28581 .half 4188 .half 194 .half -28566 .half -28565 .half -28564 .half 4205 .half 195 .half 195 .half 195 .half 710 .half 4836 .half 5095 .half 4829 .half -32726 .half -32725 .half -32724 .half -32719 .half 4096 .half 4827 .half 4828 .half 454 .half -32720 .half -32719 .half 4096 .half 4829 .half 4827 .half 4828 .half 194 .half -32719 .half 0 .half 710 .half 4836 .half -16291 .half -32677 .half 92 .half 184 .half 121 .half -28581 .half -28580 .half -32722 .half -32723 .half 4317 .half -32726 .half -32725 .half -32724 .half 0 .half 183 .half -32726 .half -32725 .half -32724 .half -32720 .half 0 .half 4316 .half 195 .half 195 .half 195 .half 454 .half -28581 .half 4188 .half 4315 .half 183 .half 4317 .half -32726 .half -32725 .half 0 .half 195 .half 195 .half 4315 .half 4317 .half -32726 .half 0 .half 195 .half -32677 .half -32676 .half -16361 .half 16431 .half 228 .half 228 .half 47 .half -32610 .half -32611 .half 5345 .half -32609 .half -32608 .half -32607 .half 0 .half 4320 .half 4319 .half 5345 .half -32609 .half -32608 .half 0 .half 4319 .half 5345 .half -32609 .half 0 .half -32613 .half -16361 .half 16431 .half 222 .half 222 .half 156 .half -32677 .half 92 .half 183 .half 186 .half 1222 .half 16435 .half 228 .half 16403 .half 4324 .half 138 .half 8420 .half -32723 .half 4189 .half 93 .half 454 .half 148 .half -32674 .half 16546 .half 16409 .half -32597 .half 182 .half -16383 .half 16388 .half 234 .half -16365 .half -32595 .half 172 .half -32678 .half 234 .half 90 .half 244 .half 246 .half -16365 .half 0 .half 235 .half -32678 .half 234 .half -16365 .half 246 .half -16365 .half 0 .half -32678 .half 234 .half 90 .half 16407 .half 222 .half 16405 .half 222 .half 145 .half 16407 .half 222 .half 16405 .half 222 .half 146 .half 16407 .half 1252 .half 154 .half 5348 .half -16365 .half 142 .half 126 .half 182 .half -16383 .half 16391 .half 90 .half -16365 .half 127 .half -32678 .half 238 .half 90 .half 125 .half 239 .half -16365 .half 8319 .half 8430 .half 128 .half 126 .half -16361 .half 127 .half 190 .half 240 .half 189 .half 16409 .half 182 .half -16383 .half 16391 .half 90 .half -16365 .half 0 .half -32678 .half 240 .half 90 .half 16623 .half -16365 .half 0 .half 244 .half 232 .half 1252 .half 1252 .half 137 .half 1252 .half 137 .half 1252 .half 137 .half 1252 .half 137 .half 1252 .half 137 .half 222 .half -16365 .half 0 .half 131 .half 194 .half -16360 .half -16333 .half -16332 .half 124 .half 181 .half -16292 .half -16277 .half 16493 .half -31802 .half 5342 .half -28581 .half 4188 .half 4263 .half 181 .half 186 .half 454 .half 16475 .half 183 .half -28583 .half 199 .half 5598 .half 9438 .half 222 .half -32677 .half -32676 .half 16407 .half 186 .half 228 .half 135 .half 16409 .half -32632 .half 0 .half -32677 .half 92 .half -32677 .half -32676 .half -32662 .half -32661 .half -32660 .half -32659 .half 165 .half -32677 .half 92 .half 188 .half -32662 .half 107 .half 188 .half -32660 .half 109 .half -32732 .half 37 .half -16344 .half 4318 .half 148 .half -32674 .half 16424 .half 222 .half 16405 .half 222 .half 174 .half -28644 .half -32734 .half -32680 .half -28641 .half -32733 .half -32730 .half -32735 .half -32727 .half -32738 .half 4326 .half -32738 .half -32739 .half -32741 .half -32736 .half 199 .half -28644 .half -32680 .half -28641 .half 4326 .half -32739 .half -32741 .half 199 .half -32738 .half -32739 .half -32741 .half -32736 .half -32729 .half 199 .half -32616 .half 199 .half -32739 .half -32741 .half -32729 .half 199 .half -32616 .half -32729 .half 199 .half -28644 .half -32680 .half 4326 .half -32738 .half -32739 .half -32741 .half 199 .half 245 .half 4318 .half 245 .half 16409 .half 152 .half 4318 .half 16409 .half 152 .half 245 .half -32672 .half -32671 .half -32670 .half 99 .half 16407 .half 200 .half 144 .half 185 .half -32677 .half 92 .half 16407 .half -32582 .half 200 .half 200 .half 187 .half 141 .half -32677 .half 92 .half 16410 .half 191 .half -32677 .half -32676 .half -32662 .half -32661 .half -32660 .half 109 .half 198 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .align 2 GLINK.6179: .half -1 .half 71 .half 72 .half 38 .half 46 .half 47 .half 67 .half 67 .half 75 .half 67 .half 0 .half 67 .half 51 .half 76 .half 79 .half 53 .half 55 .half 80 .half 67 .half 81 .half 82 .half 83 .half 67 .half 84 .half 26 .half 41 .half 85 .half 86 .half 57 .half 57 .half 89 .half 93 .half 96 .half 97 .half 102 .half 103 .half 104 .half 107 .half 46 .half 67 .half 67 .half 0 .half 110 .half 110 .half 111 .half 52 .half 49 .half 0 .half 61 .half 67 .half 62 .half 0 .half 67 .half 0 .half 111 .half 112 .half 112 .half 58 .half 113 .half 114 .half 115 .half 64 .half 67 .half 66 .half 116 .half 117 .half 68 .half 0 .half 67 .half 122 .half 67 .half 0 .half 73 .half 123 .half 123 .half 67 .half 77 .half 67 .half 40 .half 77 .half 67 .half 67 .half 0 .half 124 .half 127 .half 128 .half 87 .half 86 .half 0 .half 90 .half 131 .half 89 .half 0 .half 94 .half 93 .half 0 .half 132 .half 98 .half 137 .half 100 .half 97 .half 0 .half 138 .half 67 .half 105 .half 104 .half 0 .half 108 .half 107 .half 0 .half 67 .half 67 .half 67 .half 139 .half 140 .half 141 .half 0 .half 118 .half 120 .half 116 .half 142 .half 116 .half 67 .half 71 .half 125 .half 67 .half 0 .half 67 .half 129 .half 85 .half 0 .half 143 .half 133 .half 144 .half 135 .half 145 .half 0 .half 156 .half 157 .half 59 .half 158 .half 67 .half 119 .half 91 .half 159 .half 146 .half 145 .half 148 .half 146 .half 151 .half 0 .half 153 .half 153 .half 154 .half 146 .half 0 .half 99 .half 160 .half 67 .half 134 .half 161 .half 162 .half 165 .half 161 .half 141 .half 162 .half 162 .half 168 .half 172 .half 174 .half 175 .half 176 .half 177 .half 178 .half 179 .half 182 .half 185 .half 188 .half 189 .half 180 .half 190 .half 190 .half 183 .half 191 .half 191 .half 186 .half 191 .half 191 .half 0 .half 188 .half 192 .half 193 .half 194 .half 0 .half 196 .half 0 .half 0 .half 198 .half 197 .half 0 .half 201 .half 200 .half 0 .half 204 .half 205 .half 0 .half 228 .half 232 .half 219 .half 234 .half 235 .half 0 .half 236 .half 237 .half 238 .half 0 .half 232 .half 226 .half 244 .half 245 .half 221 .half 248 .half 249 .half 250 .half 251 .half 245 .half 0 .half 252 .half 229 .half 249 .half 250 .half 251 .half 253 .half 0 .half 0 .half 188 .half 254 .half 260 .half 239 .half 269 .half 269 .half 242 .half 191 .half 191 .half 270 .half 246 .half 272 .half 272 .half 229 .half 273 .half 274 .half 275 .half 276 .half 0 .half 255 .half 266 .half 266 .half 258 .half 267 .half 267 .half 261 .half 266 .half 266 .half 264 .half 267 .half 267 .half 232 .half 268 .half 232 .half 0 .half 277 .half 0 .half 278 .half 232 .half 273 .half 232 .half 282 .half 283 .half 279 .half 285 .half 253 .half 0 .half 0 .half 286 .half 0 .half 232 .half 0 .half 288 .half 0 .half 290 .half 0 .half 292 .half 294 .half 0 .half 0 .half 297 .half 0 .half 0 .half 299 .half 301 .half 0 .half 303 .half 0 .half 305 .half 0 .half 307 .half 0 .half 0 .half 310 .half 313 .half 314 .half 315 .half 0 .half 0 .half 316 .half 311 .half 314 .half 0 .half 332 .half 332 .half 328 .half 349 .half 350 .half 351 .half 351 .half 351 .half 351 .half 330 .half 282 .half 352 .half 358 .half 0 .half 333 .half 341 .half 347 .half 359 .half 360 .half 361 .half 362 .half 363 .half 0 .half 342 .half 343 .half 345 .half 0 .half 346 .half 0 .half 269 .half 269 .half 0 .half 0 .half 366 .half 353 .half 371 .half 372 .half 373 .half 374 .half 0 .half 375 .half 376 .half 377 .half 383 .half 384 .half 364 .half 385 .half 385 .half 367 .half 269 .half 269 .half 269 .half 269 .half 389 .half 390 .half 391 .half 392 .half 393 .half 0 .half 378 .half 360 .half 361 .half 362 .half 341 .half 0 .half 379 .half 380 .half 386 .half 363 .half 341 .half 0 .half 353 .half 354 .half 355 .half 375 .half 395 .half 0 .half 396 .half 0 .half 400 .half 269 .half 269 .half 401 .half 0 .half 411 .half 411 .half 406 .half 417 .half 407 .half 418 .half 419 .half 420 .half 0 .half 412 .half 418 .half 419 .half 420 .half 421 .half 0 .half 409 .half 406 .half 424 .half 417 .half 422 .half 425 .half 425 .half 408 .half 415 .half 427 .half 430 .half 431 .half 0 .half 426 .half 432 .half 428 .half 434 .half 436 .half 0 .half 433 .half 269 .half 269 .half 441 .half 442 .half 282 .half 443 .half 0 .half 446 .half 451 .half 447 .half 446 .half 452 .half 451 .half 0 .half 449 .half 448 .half 454 .half 453 .half 457 .half 0 .half 455 .half 459 .half 458 .half 0 .half 269 .half 464 .half 465 .half 282 .half 466 .half 0 .half 469 .half 469 .half 470 .half 471 .half 472 .half 473 .half 474 .half 475 .half 476 .half 477 .half 0 .half 479 .half 269 .half 481 .half 0 .half 483 .half 485 .half 485 .half 205 .half 490 .half 488 .half 496 .half 497 .half 491 .half 494 .half 490 .half 0 .half 491 .half 491 .half 0 .half 498 .half 499 .half 501 .half 0 .half 0 .half 504 .half 506 .half 510 .half 499 .half 508 .half 0 .half 506 .half 506 .half 504 .half 512 .half 513 .half 514 .half 515 .half 0 .half 517 .half 518 .half 519 .half 520 .half 0 .half 522 .half 523 .half 524 .half 525 .half 522 .half 0 .half 528 .half 529 .half 531 .half 536 .half 532 .half 534 .half 0 .half 532 .half 0 .half 537 .half 538 .half 539 .half 541 .half 542 .half 542 .half 0 .half 544 .half 546 .half 0 .half 547 .half 548 .half 549 .half 533 .half 551 .half 553 .half 558 .half 554 .half 556 .half 0 .half 554 .half 0 .half 559 .half 560 .half 557 .half 0 .half 563 .half 205 .half 0 .half 566 .half 564 .half 568 .half 565 .half 570 .half 567 .half 572 .half 569 .half 574 .half 571 .half 576 .half 575 .half 0 .half 579 .half 580 .half 592 .half 593 .half 584 .half 205 .half 585 .half 588 .half 588 .half 588 .half 590 .half 205 .half 594 .half 594 .half 595 .half 596 .half 597 .half 581 .half 600 .half 598 .half 601 .half 0 .half 205 .half 205 .half 205 .half 606 .half 606 .half 607 .half 608 .half 609 .half 605 .half 610 .half 612 .half 0 .half 193 .half 193 .half 193 .half 193 .half 193 .half 193 .half 193 .half 193 .half 0 .half 623 .half 623 .half 192 .half 626 .half 626 .half 0 .half 626 .half 626 .half 631 .half 633 .half 282 .half 282 .half 634 .half 282 .half 282 .half 637 .half 638 .half 639 .half 0 .half 650 .half 677 .half 684 .half 666 .half 655 .half 205 .half 205 .half 205 .half 205 .half 650 .half 659 .half 668 .half 685 .half 666 .half 0 .half 662 .half 686 .half 666 .half 662 .half 668 .half 685 .half 0 .half 670 .half 674 .half 689 .half 666 .half 205 .half 0 .half 205 .half 0 .half 674 .half 689 .half 205 .half 0 .half 666 .half 205 .half 0 .half 680 .half 692 .half 680 .half 659 .half 668 .half 685 .half 0 .half 650 .half 687 .half 662 .half 688 .half 205 .half 690 .half 691 .half 666 .half 680 .half 697 .half 697 .half 697 .half 697 .half 698 .half 699 .half 700 .half 0 .half 703 .half 703 .half 704 .half 706 .half 707 .half 708 .half 708 .half 700 .half 711 .half 711 .half 712 .half 713 .half 719 .half 719 .half 719 .half 719 .half 719 .half 719 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .half 0 .common STATS.6100,4,4 .common FAULTY.6092,4,4 .common X.6084,4,4 .section ".text" .Letext0: 2748 2749 %endofprogram 2404 Statements compiled