Edinburgh IMP77 Compiler - Version 8.4-2024.12.18 1 %begin 0000 C8 00 00 01 ENTER 0000,1 2 3 %real x, r 4 5 %integer i 6 %realname rn 7 %realarray rra(0:9) 0004 C7 45 DC 01 00 00 00 MOV DWORD PTR [%EBP-36],#1 000B C7 45 E0 00 00 00 00 MOV DWORD PTR [%EBP-32],#0 0012 C7 45 E4 09 00 00 00 MOV DWORD PTR [%EBP-28],#9 0019 C7 45 E8 85 00 00 00 MOV DWORD PTR [%EBP-24],#133 0020 8D 45 DC LEA %EAX,[%EBP-36] 0023 50 PUSH %EAX 0024 E8 0A 00 CALL '_IMPADEF' (EXTERN 10) 0027 83 C4 04 ADD %ESP,#4 002A 8D 4D DC LEA %ECX,[%EBP-36] 002D 89 E3 MOV %EBX,%ESP 002F 29 D3 SUB %EBX,%EDX 0031 89 5D D4 MOV [%EBP-44],%EBX 0034 89 4D D8 MOV [%EBP-40],%ECX 0037 01 C3 ADD %EBX,%EAX 0039 89 DC MOV %ESP,%EBX 8 %realnamearray rna(0:9) 003B C7 45 C4 01 00 00 00 MOV DWORD PTR [%EBP-60],#1 0042 C7 45 C8 00 00 00 00 MOV DWORD PTR [%EBP-56],#0 0049 C7 45 CC 09 00 00 00 MOV DWORD PTR [%EBP-52],#9 0050 C7 45 D0 85 00 00 00 MOV DWORD PTR [%EBP-48],#133 0057 8D 45 C4 LEA %EAX,[%EBP-60] 005A 50 PUSH %EAX 005B E8 0A 00 CALL '_IMPADEF' (EXTERN 10) 005E 83 C4 04 ADD %ESP,#4 0061 8D 4D C4 LEA %ECX,[%EBP-60] 0064 89 E3 MOV %EBX,%ESP 0066 29 D3 SUB %EBX,%EDX 0068 89 5D BC MOV [%EBP-68],%EBX 006B 89 4D C0 MOV [%EBP-64],%ECX 006E 01 C3 ADD %EBX,%EAX 0070 89 DC MOV %ESP,%EBX 9 %realnamearrayname rnan 10 %realmap rm(%integer i); %result == r; %end 0072 EB 00 JMP L1001 0074 L1002 EQU $ 0074 C8 00 00 02 ENTER 0000,2 0078 8B 75 FC MOV %ESI,[%EBP-4] 007B 8D 46 F4 LEA %EAX,[%ESI-12] 007E C9 LEAVE 007F C3 RET 0080 L1001 EQU $ ?I unused 11 %realmap rm2(%integer i); %result == rn; %end ?I unused 12 %realmap rm3(%integer i); %result == rra(i); %end 13 %realmap rm4(%integer i); %result == rna(i); %end 14 %realmap rm5(%integer i); %result == rnan(i); %end 15 rn == r 16 x = r 0080 L1003 EQU $ 0080 C8 00 00 02 ENTER 0000,2 0084 8B 7D FC MOV %EDI,[%EBP-4] 0087 8B 47 EC MOV %EAX,[%EDI-20] 008A C9 LEAVE 008B C3 RET 008C L1001 EQU $ 008C L1004 EQU $ 008C C8 00 00 02 ENTER 0000,2 0090 FF 75 08 PUSH DWORD PTR [%EBP+8] 0093 8B 5D FC MOV %EBX,[%EBP-4] 0096 FF 73 D8 PUSH DWORD PTR [%EBX-40] 0099 89 5D F4 MOV [%EBP-12],%EBX 009C E8 09 00 CALL '_IMPAREF' (EXTERN 9) 009F 83 C4 08 ADD %ESP,#8 00A2 89 C6 MOV %ESI,%EAX 00A4 8B 7D F4 MOV %EDI,[%EBP-12] 00A7 03 77 D4 ADD %ESI,[%EDI-44] 00AA 89 F0 MOV %EAX,%ESI 00AC C9 LEAVE 00AD C3 RET 00AE L1001 EQU $ 00AE L1005 EQU $ 00AE C8 00 00 02 ENTER 0000,2 00B2 FF 75 08 PUSH DWORD PTR [%EBP+8] 00B5 8B 5D FC MOV %EBX,[%EBP-4] 00B8 FF 73 C0 PUSH DWORD PTR [%EBX-64] 00BB 89 5D F4 MOV [%EBP-12],%EBX 00BE E8 09 00 CALL '_IMPAREF' (EXTERN 9) 00C1 83 C4 08 ADD %ESP,#8 00C4 89 C6 MOV %ESI,%EAX 00C6 8B 7D F4 MOV %EDI,[%EBP-12] 00C9 03 77 BC ADD %ESI,[%EDI-68] 00CC 8B 06 MOV %EAX,[%ESI] 00CE C9 LEAVE 00CF C3 RET 00D0 L1001 EQU $ 00D0 L1006 EQU $ 00D0 C8 00 00 02 ENTER 0000,2 00D4 FF 75 08 PUSH DWORD PTR [%EBP+8] 00D7 8B 5D FC MOV %EBX,[%EBP-4] 00DA FF 73 B8 PUSH DWORD PTR [%EBX-72] 00DD 89 5D F4 MOV [%EBP-12],%EBX 00E0 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 00E3 83 C4 08 ADD %ESP,#8 00E6 89 C6 MOV %ESI,%EAX 00E8 8B 7D F4 MOV %EDI,[%EBP-12] 00EB 03 77 B4 ADD %ESI,[%EDI-76] 00EE 8B 06 MOV %EAX,[%ESI] 00F0 C9 LEAVE 00F1 C3 RET 00F2 L1001 EQU $ 00F2 8D 45 F4 LEA %EAX,[%EBP-12] 00F5 89 45 EC MOV [%EBP-20],%EAX 00F8 D9 45 F4 FLD DWORD [%EBP-12] 00FB D9 5D F8 FSTP DWORD [%EBP-8] 17 r = x 00FE D9 45 F8 FLD DWORD [%EBP-8] 0101 D9 5D F4 FSTP DWORD [%EBP-12] 18 x = rn 0104 8B 5D EC MOV %EBX,[%EBP-20] 0107 D9 03 FLD DWORD [%EBX] 0109 D9 5D F8 FSTP DWORD [%EBP-8] 19 rn = x 010C 8B 75 EC MOV %ESI,[%EBP-20] 010F D9 45 F8 FLD DWORD [%EBP-8] 0112 D9 1E FSTP DWORD [%ESI] 20 x = rra(i) 0114 FF 75 F0 PUSH DWORD PTR [%EBP-16] 0117 FF 75 D8 PUSH DWORD PTR [%EBP-40] 011A E8 09 00 CALL '_IMPAREF' (EXTERN 9) 011D 83 C4 08 ADD %ESP,#8 0120 89 C7 MOV %EDI,%EAX 0122 03 7D D4 ADD %EDI,[%EBP-44] 0125 D9 07 FLD DWORD [%EDI] 0127 D9 5D F8 FSTP DWORD [%EBP-8] 21 rra(i) = x 012A FF 75 F0 PUSH DWORD PTR [%EBP-16] 012D FF 75 D8 PUSH DWORD PTR [%EBP-40] 0130 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 0133 83 C4 08 ADD %ESP,#8 0136 89 C3 MOV %EBX,%EAX 0138 03 5D D4 ADD %EBX,[%EBP-44] 013B D9 45 F8 FLD DWORD [%EBP-8] 013E D9 1B FSTP DWORD [%EBX] 22 rn == rra(i) 0140 FF 75 F0 PUSH DWORD PTR [%EBP-16] 0143 FF 75 D8 PUSH DWORD PTR [%EBP-40] 0146 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 0149 83 C4 08 ADD %ESP,#8 014C 89 C6 MOV %ESI,%EAX 014E 03 75 D4 ADD %ESI,[%EBP-44] 0151 89 75 EC MOV [%EBP-20],%ESI 23 x = rra(i) 0154 FF 75 F0 PUSH DWORD PTR [%EBP-16] 0157 FF 75 D8 PUSH DWORD PTR [%EBP-40] 015A E8 09 00 CALL '_IMPAREF' (EXTERN 9) 015D 83 C4 08 ADD %ESP,#8 0160 89 C7 MOV %EDI,%EAX 0162 03 7D D4 ADD %EDI,[%EBP-44] 0165 D9 07 FLD DWORD [%EDI] 0167 D9 5D F8 FSTP DWORD [%EBP-8] 24 rn == rna(i) 016A FF 75 F0 PUSH DWORD PTR [%EBP-16] 016D FF 75 C0 PUSH DWORD PTR [%EBP-64] 0170 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 0173 83 C4 08 ADD %ESP,#8 0176 89 C3 MOV %EBX,%EAX 0178 03 5D BC ADD %EBX,[%EBP-68] 017B 8B 1B MOV %EBX,[%EBX] 017D 89 5D EC MOV [%EBP-20],%EBX 25 rna(i) = x 0180 FF 75 F0 PUSH DWORD PTR [%EBP-16] 0183 FF 75 C0 PUSH DWORD PTR [%EBP-64] 0186 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 0189 83 C4 08 ADD %ESP,#8 018C 89 C6 MOV %ESI,%EAX 018E 03 75 BC ADD %ESI,[%EBP-68] 0191 8B 36 MOV %ESI,[%ESI] 0193 D9 45 F8 FLD DWORD [%EBP-8] 0196 D9 1E FSTP DWORD [%ESI] 26 x = rna(i) 0198 FF 75 F0 PUSH DWORD PTR [%EBP-16] 019B FF 75 C0 PUSH DWORD PTR [%EBP-64] 019E E8 09 00 CALL '_IMPAREF' (EXTERN 9) 01A1 83 C4 08 ADD %ESP,#8 01A4 89 C7 MOV %EDI,%EAX 01A6 03 7D BC ADD %EDI,[%EBP-68] 01A9 8B 3F MOV %EDI,[%EDI] 01AB D9 07 FLD DWORD [%EDI] 01AD D9 5D F8 FSTP DWORD [%EBP-8] 27 rnan == rna 01B0 8B 45 C0 MOV %EAX,[%EBP-64] 01B3 89 45 B8 MOV [%EBP-72],%EAX 01B6 8B 45 BC MOV %EAX,[%EBP-68] 01B9 89 45 B4 MOV [%EBP-76],%EAX 28 rn == rnan(i) 01BC FF 75 F0 PUSH DWORD PTR [%EBP-16] 01BF FF 75 B8 PUSH DWORD PTR [%EBP-72] 01C2 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 01C5 83 C4 08 ADD %ESP,#8 01C8 89 C3 MOV %EBX,%EAX 01CA 03 5D B4 ADD %EBX,[%EBP-76] 01CD 8B 1B MOV %EBX,[%EBX] 01CF 89 5D EC MOV [%EBP-20],%EBX 29 rnan(i) = x 01D2 FF 75 F0 PUSH DWORD PTR [%EBP-16] 01D5 FF 75 B8 PUSH DWORD PTR [%EBP-72] 01D8 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 01DB 83 C4 08 ADD %ESP,#8 01DE 89 C6 MOV %ESI,%EAX 01E0 03 75 B4 ADD %ESI,[%EBP-76] 01E3 8B 36 MOV %ESI,[%ESI] 01E5 D9 45 F8 FLD DWORD [%EBP-8] 01E8 D9 1E FSTP DWORD [%ESI] 30 x = rnan(i) 01EA FF 75 F0 PUSH DWORD PTR [%EBP-16] 01ED FF 75 B8 PUSH DWORD PTR [%EBP-72] 01F0 E8 09 00 CALL '_IMPAREF' (EXTERN 9) 01F3 83 C4 08 ADD %ESP,#8 01F6 89 C7 MOV %EDI,%EAX 01F8 03 7D B4 ADD %EDI,[%EBP-76] 01FB 8B 3F MOV %EDI,[%EDI] 01FD D9 07 FLD DWORD [%EDI] 01FF D9 5D F8 FSTP DWORD [%EBP-8] 31 x = rm(i) 0202 FF 75 F0 PUSH DWORD PTR [%EBP-16] 0205 E8 00 00 CALL 'RM' (INTERNAL L1002 ) 0208 83 C4 04 ADD %ESP,#4 020B D9 00 FLD DWORD [%EAX] 020D D9 5D F8 FSTP DWORD [%EBP-8] 32 rn == rm(i) 0210 FF 75 F0 PUSH DWORD PTR [%EBP-16] 0213 E8 00 00 CALL 'RM' (INTERNAL L1002 ) 0216 83 C4 04 ADD %ESP,#4 0219 89 45 EC MOV [%EBP-20],%EAX 33 rm(i) = x 021C FF 75 F0 PUSH DWORD PTR [%EBP-16] 021F E8 00 00 CALL 'RM' (INTERNAL L1002 ) 0222 83 C4 04 ADD %ESP,#4 0225 D9 45 F8 FLD DWORD [%EBP-8] 0228 D9 18 FSTP DWORD [%EAX] 34 %endofprogram 022A C9 LEAVE 022B C3 RET ?RM5 unused ?RM4 unused ?RM3 unused ?RM2 unused 42 Statements compiled ELF object file generated from IMP source file: '/home/gtoal/src/compilers101/new-parser/imps/tests/test188.imp' +----------+---------------------+---------+---------+---------+------------+ | Sections | Symbols | Code | Data | Diag | Total size | +----------+----------+----------+---------+---------+---------+------------+ | (count) | Internal | External | (bytes) | (bytes) | (bytes) | (bytes) | +----------+----------+----------+---------+---------+---------+------------+ | 11 | 9 | 8 | 595 | 0 | 192 | 787 | +----------+----------+----------+---------+---------+---------+------------+