Forgot one IF387 (for divide).
authorGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Fri, 6 Mar 1992 00:56:43 +0000 (00:56 +0000)
committerGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Fri, 6 Mar 1992 00:56:43 +0000 (00:56 +0000)
v7/src/microcode/cmpauxmd/i386.m4

index 8419654472d0efecb9b862f1d2324d68c6cab50a..9f9263dbe2455c9ded9bb8c28dd0b76eaa3b6d78 100644 (file)
@@ -1,6 +1,6 @@
 ### -*-Midas-*-
 ###
-###    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/i386.m4,v 1.14 1992/03/06 00:26:26 jinx Exp $
+###    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/i386.m4,v 1.15 1992/03/06 00:56:43 jinx Exp $
 ###
 ###    Copyright (c) 1992 Massachusetts Institute of Technology
 ###
@@ -635,7 +635,7 @@ asm_generic_$1_fix_flo:
        OP($4,l)        IND(rfree)                      # fisubrl
        jmp     asm_generic_flonum_result')
 \f
-declare_alignment(2)
+IF387(`declare_alignment(2)
 define_c_label(asm_generic_divide)
        OP(pop,l)       REG(edx)
        OP(pop,l)       REG(ebx)
@@ -693,7 +693,7 @@ asm_generic_divide_fail:
        OP(push,l)      REG(ebx)
        OP(push,l)      REG(edx)
        OP(mov,b)       TW(IMM(HEX(23)),REG(al))
-       jmp     scheme_to_interface
+       jmp     scheme_to_interface')
 \f
 define(define_binary_predicate,
 `declare_alignment(2)