         Edinburgh IMP77 Compiler - Version 8.4-2024.12.18

     1  %begin
 0000 C8 00 00 01                           ENTER 0000,1
     2    %predicate almost equals(%real left, right)
 0004 EB 00                                 JMP L1001
 0006                      L1002  EQU $
 0006 C8 00 00 02                           ENTER 0000,2
     3      %true %if left * 0.999999 <= right <= left * 1.000001
 000A D9 45 0C                              FLD DWORD [%EBP+12]
 000D DD 05 00 00 00 00                     FLD QWORD [COT+0000]
 0013 DE C9                                 FMULP ST(1),ST
 0015 D9 EE                                 FLDZ
 0017 DD 05 08 00 00 00                     FLD QWORD [COT+0008]
 001D DE C9                                 FMULP ST(1),ST
 001F B8 FF FF FF FF                        MOV %EAX,#-1
 0024 C9                                    LEAVE
 0025 C3                                    RET
 0026                      L1003  EQU $
     4      %true %if right * 0.999999 <= left <= right * 1.000001
 0026 D9 EE                                 FLDZ
 0028 DD 05 00 00 00 00                     FLD QWORD [COT+0000]
 002E DE C9                                 FMULP ST(1),ST
 0030 31 C0                                 XOR %EAX,%EAX
 0032 D9 EE                                 FLDZ
 0034 DD 05 08 00 00 00                     FLD QWORD [COT+0008]
 003A DE C9                                 FMULP ST(1),ST
 003C B8 FF FF FF FF                        MOV %EAX,#-1
 0041 C9                                    LEAVE
 0042 C3                                    RET
 0043                      L1004  EQU $
     5      %false
     6    %end
 0043                      L142681472  EQU $
     7  
     8    %if almost equals(pi, 3.1415926) %start
 0043 89 45 FC                              MOV [%EBP-4],%EAX
 0046 3D 00 00 00 00                        CMP %EAX,#0
 004B 74 00                                 JE L1005
     9    %finish
    10  
    11  %endofprogram

     9 Statements compiled

Too many %spec's
Increase the value of MAXSPECS
