Edinburgh IMP77 Compiler - Version 8.4 1 %begin .Ltext0: .section .rodata .LC5: .string "Illegal cycle I = 1, 1, 3 * 2" .align 32 .LC0: .byte 17 .string "test-in/major.imp" .zero 237 .align 32 .LC1: .byte 2 .string "A(" .zero 252 .align 32 .LC2: .byte 2 .string ", " .zero 252 .align 32 .LC3: .byte 4 .string ") = " .zero 250 .align 32 .LC4: .byte 4 .string ", " .zero 250 .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 $3240, %esp call __x86.get_pc_thunk.bx addl $_GLOBAL_OFFSET_TABLE_, %ebx movl %ecx, %eax movl 4(%eax), %edx movl %edx, -3244(%ebp) movl %gs:20, %esi movl %esi, -28(%ebp) xorl %esi, %esi subl $8, %esp pushl -3244(%ebp) pushl (%eax) call _imp_initialise@PLT addl $16, %esp 2 3 %integer first subscript, second subscript 4 %integername element 5 %integer i 6 7 ! imp77 doesn't allow initialised multi-dimensional arrays. (Imp80 would!) 8 ! So I'll initialise these explicitly: 9 %integerarray A(1:3, 1:2) leal -3168(%ebp), %edx movl $0, %eax movl $17, %ecx movl %edx, %edi rep stosl leal -3192(%ebp), %eax movl %eax, -3168(%ebp) movl $4, -3164(%ebp) 10 11 12 { EMAS IMP80 and IMP77: in a two-dimensional array whose first element was (1,1), } 13 { the order would be (1,1), (2,1), (3,1), i.e. first subscript changing fastest. } 14 element == A(1,1); element = i %and element == INTEGER(ADDR(element)+4) %for i = 1, 1, 3*2 leal -3192(%ebp), %eax movl %eax, -3220(%ebp) .LBB27: movl $6, -3212(%ebp) .LBB28: movl -3212(%ebp), %eax subl $1, %eax movl %eax, -3208(%ebp) movl -3208(%ebp), %eax xorl $1, %eax shrl $31, %eax movzbl %al, %eax .LBE28: testl %eax, %eax je .L2 leal -1564(%ebp), %eax subl $8, %esp leal .LC5@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 .L3 movl _imp_current_line@GOT(%ebx), %eax movl (%eax), %eax movl %eax, -3248(%ebp) jmp .L4 .L3: movl $14, -3248(%ebp) .L4: movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %eax testl %eax, %eax je .L5 movl _imp_current_file@GOT(%ebx), %eax movl (%eax), %edx leal -1308(%ebp), %eax subl $8, %esp pushl %edx pushl %eax call _imp_c2istr@PLT addl $12, %esp jmp .L6 .L5: .LBB29: leal -284(%ebp), %eax leal .LC0@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -3100(%ebp), %eax leal -284(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE29: leal -1308(%ebp), %eax leal -3100(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .L6: pushl $0 pushl $1 pushl $5 subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1564(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl pushl -3248(%ebp) subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1308(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _signal_event@PLT addl $528, %esp .L2: movl $0, -3216(%ebp) .L7: movl -3216(%ebp), %eax cmpl -3212(%ebp), %eax je .L22 addl $1, -3216(%ebp) movl -3220(%ebp), %eax movl -3216(%ebp), %edx movl %edx, (%eax) movl -3220(%ebp), %eax movl %eax, -3200(%ebp) .LBB30: .LBB31: movl -3200(%ebp), %eax .LBE31: .LBE30: addl $4, %eax movl %eax, -3204(%ebp) .LBB32: .LBB33: movl -3204(%ebp), %eax .LBE33: .LBE32: movl %eax, -3220(%ebp) jmp .L7 .L22: nop .L9: .LBE27: 15 16 %for second subscript = 1,1,2 %cycle movl $0, -3224(%ebp) .L12: cmpl $2, -3224(%ebp) je .L23 addl $1, -3224(%ebp) nop .L14: .LBB48: .LBB49: call _imp_newline@PLT movl $0, -3196(%ebp) .LBE49: .LBE48: .LBB50: .LBB51: subl $12, %esp pushl -3196(%ebp) call exit@PLT .LBE51: .LBE50: .LFE189: .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: .LFB190: movl (%esp), %ebx ret .LFE190: .Letext0: 17 %for first subscript = 1,1,3 %cycle movl $0, -3228(%ebp) .L15: cmpl $3, -3228(%ebp) je .L24 addl $1, -3228(%ebp) .LBB34: nop .L17: .LBB46: .LBB47: call _imp_newline@PLT .LBE47: .LBE46: 18 print string("A("); write(first subscript, -1) leal -2076(%ebp), %eax leal .LC1@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2844(%ebp), %eax leal -2076(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1052(%ebp), %eax leal -2844(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE34: .LBB35: .LBB36: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -1052(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE36: .LBE35: subl $8, %esp pushl $-1 pushl -3228(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB37: 19 print string(", "); write(second subscript, -1) leal -2076(%ebp), %eax leal .LC2@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2588(%ebp), %eax leal -2076(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -796(%ebp), %eax leal -2588(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE37: .LBB38: .LBB39: subl $256, %esp movl %esp, %eax movl %eax, %edi leal -796(%ebp), %eax movl $64, %edx movl %eax, %esi movl %edx, %ecx rep movsl call _imp_printstring@PLT addl $256, %esp .LBE39: .LBE38: subl $8, %esp pushl $-1 pushl -3224(%ebp) call _imp_writeint@PLT addl $16, %esp .LBB40: 20 print string(") = "); write(A(first subscript, second subscript), -1) leal -2076(%ebp), %eax leal .LC3@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -2332(%ebp), %eax leal -2076(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -540(%ebp), %eax leal -2332(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE40: .LBB41: .LBB42: 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 .LBE42: .LBE41: movl -3228(%ebp), %eax leal -1(%eax), %edx movl -3224(%ebp), %eax subl $1, %eax addl %edx, %edx addl %edx, %eax movl -3192(%ebp,%eax,4), %eax subl $8, %esp pushl $-1 pushl %eax call _imp_writeint@PLT addl $16, %esp .LBB43: 21 print string(", ") leal -2076(%ebp), %eax leal .LC4@GOTOFF(%ebx), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -1820(%ebp), %eax leal -2076(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl leal -284(%ebp), %eax leal -1820(%ebp), %edx movl $64, %ecx movl %eax, %edi movl %edx, %esi rep movsl .LBE43: .LBB44: .LBB45: 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 .LBE45: .LBE44: 22 %repeat jmp .L15 .L24: 23 newline 24 %repeat jmp .L12 .L23: 25 newline 26 27 %endofprogram 21 Statements compiled