Edinburgh IMP77 Compiler - Version 8.4 1 %begin .Ltext0: .globl next_free_bound_index .bss .align 4 next_free_bound_index: .zero 4 .comm _lb,384,32 .comm _ub,384,32 _imp_IEXP: .LFB60: pushl %ebp movl %esp, %ebp subl $16, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl $1, -8(%ebp) movl 12(%ebp), %eax movl %eax, -4(%ebp) jmp .L2 .L3: movl -8(%ebp), %eax imull 8(%ebp), %eax movl %eax, -8(%ebp) .L2: movl -4(%ebp), %eax leal -1(%eax), %edx movl %edx, -4(%ebp) testl %eax, %eax jg .L3 movl -8(%ebp), %eax cltd leave ret .LFE60: .section .rodata .LC7: .string "string resolution fails" .align 32 .LC0: .byte 11 .string "hello world" .zero 243 .align 32 .LC1: .byte 1 .string " " .zero 253 .align 32 .LC2: .byte 19 .string "test-in/test89a.imp" .zero 235 .align 32 .LC3: .byte 4 .string "left" .zero 250 .align 32 .LC4: .byte 5 .string "right" .zero 249 .globl main main: .LFB189: leal 4(%esp), %ecx andl $-16, %esp pushl -4(%ecx) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx pushl %ecx subl $2600, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %eax movl 4(%eax), %edx movl %edx, -2604(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi subl $8, %esp pushl -2604(%ebp) pushl (%eax) call _imp_initialise@PLT addl $16, %esp 2 %integer I 3 %real R 4 %string(255) S, T, U 5 I = 123 movl $123, -2600(%ebp) 6 I = 123 ^^ 2 subl $8, %esp pushl $2 pushl $123 call _imp_IEXP addl $16, %esp movl %eax, -2600(%ebp) 7 R = 3.141592653589793 flds .LC5@GOTOFF(%ebx) fstps -2596(%ebp) 8 R = 2 / 3.141592653589793 flds .LC6@GOTOFF(%ebx) fstps -2596(%ebp) .LBB20: .LBB21: 9 S = "hello world" leal -284(%ebp), %eax leal .LC0@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1820(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE21: leal -284(%ebp), %eax leal -1820(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax .LBE20: subl $4, %esp pushl $255 pushl %eax leal -2588(%ebp), %eax pushl %eax call _imp_strncpy@PLT addl $16, %esp .LBB22: .LBB23: 10 S -> T.(" ").U leal -284(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1564(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE23: leal -284(%ebp), %eax leal -1564(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax movl %eax, -2608(%ebp) .LBE22: .LBB24: leal -284(%ebp), %eax leal -2588(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %edi movl %edi, -2612(%ebp) .LBE24: subl $8, %esp leal -2076(%ebp), %eax pushl %eax subl $256, %esp movl %esp, %eax movl %eax, %edx movl -2608(%ebp), %esi movl $64, %eax movl %edx, %edi movl %eax, %ecx rep movsl leal -2332(%ebp), %eax pushl %eax subl $256, %esp movl %esp, %eax movl %eax, %edx movl -2612(%ebp), %esi movl $64, %eax movl %edx, %edi movl %eax, %ecx rep movsl call _imp_resolve@PLT addl $528, %esp testl %eax, %eax jne .L6 leal -540(%ebp), %eax subl $8, %esp leal .LC7@GOTOFF(%ebx), %edx pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L7 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -2608(%ebp) jmp .L8 .L7: movl $10, -2608(%ebp) .L8: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L9 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -284(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L10 .L9: .LBB25: leal -284(%ebp), %eax leal .LC2@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1308(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE25: leal -284(%ebp), %eax leal -1308(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L10: pushl $0 pushl $1 pushl $7 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -540(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -2608(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -284(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L6: .LBB26: .LBB27: 11 ! S." OK" -> T.(" ").U 12 S = "left"." "."right" leal -796(%ebp), %eax leal .LC3@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1052(%ebp), %eax leal -796(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE27: leal -796(%ebp), %eax leal -1052(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax .LBE26: subl $4, %esp pushl $255 pushl %eax leal -2588(%ebp), %eax pushl %eax call _imp_strncpy@PLT addl $16, %esp .LBB28: .LBB29: .LBB30: 13 S <- "left"." "."right".T leal -796(%ebp), %eax leal .LC3@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %edx .LBE30: leal -796(%ebp), %eax subl $4, %esp leal -2332(%ebp), %ecx pushl %ecx pushl %edx pushl %eax call _imp_join@PLT addl $12, %esp leal -796(%ebp), %edx .LBE29: leal -796(%ebp), %eax movl %edx, %esi movl $64, %edx movl %eax, %edi movl %edx, %ecx rep movsl leal -796(%ebp), %eax .LBE28: subl $4, %esp pushl $255 pushl %eax leal -2588(%ebp), %eax pushl %eax call _imp_strncpy@PLT addl $16, %esp .LBB31: .LBB32: .LBB33: 14 S = T."right" leal -796(%ebp), %eax leal .LC4@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %edx .LBE33: leal -796(%ebp), %eax subl $4, %esp pushl %edx leal -2332(%ebp), %edx pushl %edx pushl %eax call _imp_join@PLT addl $12, %esp leal -796(%ebp), %edx .LBE32: leal -796(%ebp), %eax movl %edx, %esi movl $64, %edx movl %eax, %edi movl %edx, %ecx rep movsl leal -796(%ebp), %eax .LBE31: subl $4, %esp pushl $255 pushl %eax leal -2588(%ebp), %eax pushl %eax call _imp_strncpy@PLT addl $16, %esp .LBB34: .LBB35: 15 S = T.U leal -796(%ebp), %eax subl $4, %esp leal -2076(%ebp), %edx pushl %edx leal -2332(%ebp), %edx pushl %edx pushl %eax call _imp_join@PLT addl $12, %esp leal -796(%ebp), %edx .LBE35: leal -796(%ebp), %eax movl %edx, %esi movl $64, %edx movl %eax, %edi movl %edx, %ecx rep movsl leal -796(%ebp), %eax .LBE34: subl $4, %esp pushl $255 pushl %eax leal -2588(%ebp), %eax pushl %eax call _imp_strncpy@PLT addl $16, %esp movl $0, -2592(%ebp) .LBB36: .LBB37: subl $12, %esp pushl -2592(%ebp) call exit@PLT .LBE37: .LBE36: .LFE189: .section .rodata .align 4 .LC5: .long 1078530011 .align 4 .LC6: .long 1059256707 .section .text.__x86.get_pc_thunk.ax,"axG",@progbits,__x86.get_pc_thunk.ax,comdat .globl __x86.get_pc_thunk.ax .hidden __x86.get_pc_thunk.ax __x86.get_pc_thunk.ax: .LFB190: movl (%esp), %eax ret .LFE190: .section .text.__x86.get_pc_thunk.bx,"axG",@progbits,__x86.get_pc_thunk.bx,comdat .globl __x86.get_pc_thunk.bx .hidden __x86.get_pc_thunk.bx __x86.get_pc_thunk.bx: .LFB191: movl (%esp), %ebx ret .LFE191: .Letext0: 16 %endofprogram 15 Statements compiled