Edinburgh IMP77 Compiler - Version 8.4 1 %recordformat Stack Fm ( %byte Form ) .Ltext0: .section .rodata .align 32 .LC0: .byte 6 .string "Fail: " .zero 248 FAIL: .LFB189: 2 3 %routine Fail ( %string(255) S ) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $796, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax .LBB10: 4 Print String("Fail: ") leal -284(%ebp), %eax leal .LC0@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -796(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE10: .LBB11: .LBB12: 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 _imp_printstring@PLT addl $256, %esp .LBE12: .LBE11: .LBB13: 5 Print String(S) leal -540(%ebp), %eax leal 8(%ebp), %esi movl $64, %edx movl %eax, %edi movl %edx, %ecx rep movsl leal -540(%ebp), %edx leal -540(%ebp), %eax movl %edx, %esi movl $64, %edx movl %eax, %edi movl %edx, %ecx rep movsl .LBE13: .LBB14: .LBB15: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -540(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp movl $0, -800(%ebp) .LBE15: .LBE14: .LBB16: .LBB17: subl $12, %esp pushl -800(%ebp) call exit@PLT .LBE17: .LBE16: .LFE189: .section .rodata .align 32 .LC1: .byte 1 .string "-" .zero 253 .align 32 .LC2: .byte 1 .string "|" .zero 253 .align 32 .LC3: .byte 8 .string "Unary Op" .zero 246 UNARY.6038: .LFB192: 6 %stop 7 %end 8 9 %externalroutine Pass2 pushl %ebp movl %esp, %ebp subl $24, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %gs:20, %eax movl %eax, -12(%ebp) xorl %eax, %eax leal 8(%ebp), %eax movl %eax, -16(%ebp) 10 %ownrecord(Stack Fm) %name Stack == 0 11 %routine Assemble pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $556, %esp call __x86.get_pc_thunk.ax addl $_GLOBAL_OFFSET_TABLE_, %eax movl %ecx, -556(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax leal 8(%ebp), %eax movl %eax, -544(%ebp) .LBB24: 12 %routine Unary ( %string(2) Op ) pushl %ebp movl %esp, %ebp pushl %edi pushl %esi pushl %ebx subl $556, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, -556(%ebp) movl %gs:20, %eax movl %eax, -28(%ebp) xorl %eax, %eax 13 %record(Stack Fm) %name X == Stack movl STACK.6033@GOTOFF(%ebx), %eax movl %eax, -548(%ebp) .LBB18: 14 Fail("Unary Op") %if "-" # Op # "" %and Op # "|" leal 8(%ebp), %eax movl %eax, -544(%ebp) .LBB19: leal -284(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax .LBE19: subl $8, %esp pushl -544(%ebp) pushl %eax call _imp_strcmp@PLT addl $16, %esp testl %eax, %eax je .L10 .LBB20: movb $0, -284(%ebp) movl $0, -283(%ebp) leal -279(%ebp), %edx movl $0, %eax movb %al, (%edx) addl $1, %edx movw %ax, (%edx) addl $2, %edx movl $62, %ecx movl %edx, %edi rep stosl leal -284(%ebp), %eax .LBE20: subl $8, %esp pushl %eax pushl -544(%ebp) call _imp_strcmp@PLT addl $16, %esp testl %eax, %eax je .L11 .LBE18: .LBB21: leal -284(%ebp), %eax leal .LC2@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax .LBE21: subl $8, %esp pushl %eax leal 8(%ebp), %eax pushl %eax call _imp_strcmp@PLT addl $16, %esp testl %eax, %eax je .L12 .LBB22: leal -540(%ebp), %eax leal .LC3@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -540(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE22: subl $256, %esp movl %esp, %eax movl %eax, %ebx leal -284(%ebp), %eax movl $64, %edx movl %ebx, %edi movl %eax, %esi movl %edx, %ecx rep movsl call FAIL addl $256, %esp nop jmp .L5 .L11: nop jmp .L5 .L12: .LBE23: nop .L5: nop movl -28(%ebp), %eax xorl %gs:20, %eax je .L9 call __stack_chk_fail_local .L9: leal -12(%ebp), %esp popl %ebx popl %esi popl %edi popl %ebp ret .LFE192: ASSEMBLE.6035: .LFB191: 15 %end jmp .L5 .L10: .LBB23: ?X unused 16 Unary("~") leal -540(%ebp), %edx movl $0, %eax movl $64, %ecx movl %edx, %edi rep stosl movb $1, -540(%ebp) movw $126, -539(%ebp) leal -284(%ebp), %eax leal -540(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE24: leal -544(%ebp), %eax movl %eax, -560(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %ebx leal -284(%ebp), %eax movl $64, %edx movl %ebx, %edi movl %eax, %esi movl %edx, %ecx rep movsl movl -560(%ebp), %ecx call UNARY.6038 addl $256, %esp 17 %end nop movl -28(%ebp), %eax xorl %gs:20, %eax je .L15 call __stack_chk_fail_local .L15: leal -12(%ebp), %esp popl %ebx popl %esi popl %edi popl %ebp ret .LFE191: .globl PASS2 PASS2: .LFB190: 18 Assemble leal -16(%ebp), %eax movl %eax, %ecx call ASSEMBLE.6035 19 %end nop movl -12(%ebp), %eax xorl %gs:20, %eax je .L18 call __stack_chk_fail_local .L18: leave ret .LFE190: .comm STACK.6033,4,4 .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: .LFB193: movl (%esp), %eax ret .LFE193: .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: .LFB194: movl (%esp), %ebx ret .LFE194: .Letext0: 20 21 %endoffile 18 Statements compiled