Edinburgh IMP77 Compiler - Version 8.4 1 %external %real %function S To R (%string (255) Input) .section ".text" .Ltext0: .align 4 .proc 020 NEXT.6061: .LFB186: .register %g7, #ignore save %sp, -2032, %sp ldx [%g7+40], %g1 stx %g1, [%fp+2039] mov 0, %g1 add %fp, 2047, %g1 stx %g1, [%fp+751] stx %i0, [%fp+735] .LVL0: 2 %integer Sign = 0, 3 Sym, 4 Pos = 1 5 %long %real Value, 6 Exp mov 1, %g1 st %g1, [%fp+747] 7 8 %routine Next .register %g2, #scratch .register %g3, #scratch 9 Pos = Pos + 1 lduw [%g5+12], %g1 add %g1, 1, %g1 st %g1, [%g5+12] 10 %if Pos > Length (Input) %start ldx [%g5], %g2 ldub [%g2], %g3 cmp %g3, %g1 bl,pn %icc, .L4 sra %g1, 0, %g1 .L2: 11 Sym = 0 12 %else jmp %o7+8 st %g0, [%g5+8] .LFE186: .section .rodata.str1.8,"aMS",@progbits,1 .align 8 .LC4: .asciz "" .section ".rodata" .LC0: .byte 20 .asciz "test-new/test153.imp" .skip 234 .section .rodata.cst8,"aM",@progbits,8 .align 8 .LC2: .long 1076101120 .long 0 .align 8 .LC3: .long 1079574528 .long 0 .align 8 .LC5: .long 1073741824 .long 0 .section ".text" .align 4 .global STOR .proc 06 STOR: .LFB185: 13 Sym = Char No (Input, Pos) ldub [%g2+%g1], %g1 .L3: 14 %finish 15 %end 16 jmp %o7+8 st %g1, [%g5+8] .L4: 17 Sym = Char No (Input, Pos) ldub [%i0+1], %g1 st %g1, [%fp+743] 18 %if Sym = '-' %start cmp %g1, 45 be,pn %icc, .L30 mov 0, %i4 .LVL1: .L6: 19 Sign = 1 ba,pt %xcc, .L6 mov 1, %i4 .LVL20: .L10: .LBB23: 20 Next call NEXT.6061, 0 add %fp, 735, %g5 .LVL19: 21 %finish 22 Value = 0 stx %g0, [%fp+215] .LVL24: .L7: 23 %if Sym # '.' %start lduw [%fp+743], %g1 cmp %g1, 46 be,pn %icc, .L26 add %g1, -48, %g1 .LVL2: .LBB21: 24 %signal 6, 5, Pos %unless '0' <= Sym <= '9' {Char No out of range} 25 %cycle 26 Value = Value*10.0 + (Sym - '0') sethi %hi(.LC2), %g1 .L36: ldd [%fp+215], %f8 ldd [%g1+%lo(.LC2)], %f10 fmuld %f8, %f10, %f10 lduw [%fp+743], %g1 add %g1, -48, %g1 st %g1, [%fp+215] .LVL10: ld [%fp+215], %f8 .LVL11: fitod %f8, %f8 faddd %f8, %f10, %f8 std %f8, [%fp+215] .LVL12: 27 Next call NEXT.6061, 0 add %fp, 735, %g5 .LVL13: .LBB22: 28 %repeat %until %not '0' <= Sym <= '9' 29 %finish cmp %g1, 9 bleu,pn %icc, .L8 sethi %hi(_imp_current_file), %g1 .L9: .LVL3: .LBE21: 30 %if Sym = '.' %start cmp %g1, 46 be,pn %icc, .L37 sethi %hi(4203520), %g1 .L16: .L19: .LVL15: .L20: 31 Exp = 10.0 lduw [%fp+743], %g1 .LVL14: 32 %cycle ldx [%g1+%lo(_imp_current_file)], %o1 brz,pn %o1, .L10 mov 256, %o2 call _imp_c2istr, 0 add %fp, 1271, %o0 .LVL4: sethi %hi(_imp_current_line), %g1 .L34: lduw [%g1+%lo(_imp_current_line)], %i5 cmp %i5, 0 move %icc, 32, %i5 sethi %hi(.LC4), %o1 or %o1, %lo(.LC4), %o1 call _imp_c2istr, 0 add %fp, 1527, %o0 .LVL5: mov 256, %o2 add %fp, 1271, %o1 call memcpy, 0 add %fp, 479, %o0 .LVL6: mov 256, %o2 add %fp, 1527, %o1 call memcpy, 0 add %fp, 223, %o0 .LVL7: ldsw [%fp+747], %o5 mov 5, %o4 mov 6, %o3 add %fp, 223, %o2 sra %i5, 0, %o1 call _signal_event, 0 add %fp, 479, %o0 .LVL8: .L8: stx %g0, [%fp+215] .LVL9: sethi %hi(.LC0), %o1 or %o1, %lo(.LC0), %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL21: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 759, %o0 .LVL22: .LBE23: mov 256, %o2 add %fp, 759, %o1 call memcpy, 0 add %fp, 1271, %o0 .LVL23: ba,pt %xcc, .L34 sethi %hi(_imp_current_line), %g1 .L26: sethi %hi(4203520), %g1 .L37: sllx %g1, 40, %g1 stx %g1, [%fp+207] .L18: .LVL25: 33 Next add %g1, -48, %g2 cmp %g2, 9 bleu,a,pt %icc, .L36 sethi %hi(.LC2), %g1 .L14: .L15: .LBE22: call NEXT.6061, 0 add %fp, 735, %g5 .LVL26: .LBB24: 34 %exit %unless '0' <= Sym <= '9' 35 Value = Value + (Sym - '0')/Exp st %g2, [%fp+203] ld [%fp+203], %f8 fitod %f8, %f8 ldd [%fp+207], %f10 fdivd %f8, %f10, %f8 ldd [%fp+215], %f12 faddd %f12, %f8, %f8 std %f8, [%fp+215] .LVL28: 36 Exp = Exp * 10.0 ldd [%g1+%lo(.LC2)], %f8 .LVL29: fmuld %f10, %f8, %f8 .LVL30: 37 %repeat lduw [%fp+743], %g1 .LVL27: ba,pt %xcc, .L18 std %f8, [%fp+207] .LVL31: .L31: .LBB25: 38 %finish 39 %if Sym = '@' %start lduw [%fp+743], %g1 cmp %g1, 64 be,pn %icc, .L31 lduw [%fp+747], %o2 .LVL16: .L21: add %g1, -48, %g2 cmp %g2, 9 bgu,pn %icc, .L20 sethi %hi(.LC2), %g1 .L17: .LBE24: 40 Sym = S To I (Sub String (Input, Pos + 1, Length (Input))) st %o0, [%fp+743] 41 Value = Value * 10.0\Sym stx %o0, [%fp+207] ldd [%fp+207], %f8 fitod %f9, %f2 .LVL36: .LBB30: .LBB31: sethi %hi(.LC3), %g1 ldd [%g1+%lo(.LC3)], %f0 sethi %hi(.LC5), %g1 ldd [%g1+%lo(.LC5)], %f8 fcmpd %fcc0, %f2, %f8 fbne,pn %fcc0, .L33 sethi %hi(.LC2), %g1 .LVL37: .LBE31: .LBE30: ldd [%fp+215], %f8 .L35: fmuld %f8, %f0, %f8 .LVL38: ba,pt %xcc, .L21 std %f8, [%fp+215] .LVL39: .L33: .LBB33: .LBB32: call pow, 0 ldd [%g1+%lo(.LC2)], %f0 .LVL40: .LBE32: .LBE33: ba,pt %xcc, .L35 ldd [%fp+215], %f8 .LVL41: .L32: call __stack_chk_fail, 0 nop .LVL42: nop .LFE185: .Letext0: 42 %finish add %o2, 1, %o2 .LBB26: .LBB27: ldub [%i0], %o3 sra %o2, 0, %o2 mov %i0, %o1 call _imp_substring, 0 add %fp, 1015, %o0 .LVL32: mov 256, %o2 add %fp, 1015, %o1 call memcpy, 0 add %fp, 1783, %o0 .LVL33: .LBE27: .LBE26: .LBE25: .LBB28: .LBB29: mov 256, %o2 add %fp, 1783, %o1 call memcpy, 0 add %fp, 223, %o0 .LVL34: call _imp_stoi, 0 add %fp, 223, %o0 .LVL35: .LBE29: .LBE28: 43 Value = -Value %if Sign # 0 44 %result = Value ldd [%fp+215], %f10 fnegd %f10, %f8 cmp %i4, 0 fmovdne %icc, %f8, %f10 .L23: .LVL17: 45 %end {S To R} fdtos %f10, %f0 ldx [%fp+2039], %g1 ldx [%g7+40], %g2 xor %g1, %g2, %g1 mov 0, %g2 brnz,pn %g1, .L32 nop return %i7+8 nop .LVL18: .L30: 46 47 %endoffile 41 Statements compiled