Fix illegal instructions that are rejected by the new HP assembler.

diff --git a/v7/src/microcode/cmpauxmd/hppa.m4 b/v7/src/microcode/cmpauxmd/hppa.m4
index 02cf1fcf31a859e69799784559a64cbaad5e0a29..eee4bd87eabc0944b8ce61b7143a1c12874ba04d 100644 (file)
--- a/v7/src/microcode/cmpauxmd/hppa.m4
+++ b/v7/src/microcode/cmpauxmd/hppa.m4
@@ -1,8 +1,8 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;    $Id: hppa.m4,v 1.36 1994/04/05 21:22:20 cph Exp $
+;;;    $Id: hppa.m4,v 1.37 1996/08/12 23:14:10 cph Exp $
 ;;;
-;;;    Copyright (c) 1989-94 Massachusetts Institute of Technology
+;;;    Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -537,7 +537,7 @@ multiply_fixnum
        STW     26,0(0,21)
        EXTRS   25,FIXNUM_POS,FIXNUM_LENGTH,25  ; arg2
        STW     25,4(0,21)
-       ZDEPI   1,TC_LENGTH,FIXNUM_BIT,26       ; FIXNUM_LIMIT
+       ZDEPI   1,TC_LENGTH,1,26                ; FIXNUM_LIMIT
        FLDWS   0(0,21),4
        FLDWS   4(0,21),5
        STW     26,8(0,21)                      ; FIXNUM_LIMIT
@@ -578,7 +578,7 @@ fixnum_quotient
        STW     26,0(0,21)
        EXTRS   25,FIXNUM_POS,FIXNUM_LENGTH,25  ; arg2
        STW     25,4(0,21)
-       ZDEPI   1,TC_LENGTH,FIXNUM_BIT,26       ; FIXNUM_LIMIT
+       ZDEPI   1,TC_LENGTH,1,26                ; FIXNUM_LIMIT
        FLDWS   0(0,21),4
        FLDWS   4(0,21),5
         FCNVXF,SGL,DBL  4,4                    ; arg1

diff --git a/v8/src/microcode/cmpauxmd/hppa.m4 b/v8/src/microcode/cmpauxmd/hppa.m4
index d666c36b584d5b664440de575408b8332c3780b1..c7eea0de1801af7a3ec1a076b11c7d148781ea61 100644 (file)
--- a/v8/src/microcode/cmpauxmd/hppa.m4
+++ b/v8/src/microcode/cmpauxmd/hppa.m4
@@ -1,6 +1,6 @@
 changecom(`;');;; -*-Midas-*-
 ;;;
-;;;    $Id: hppa.m4,v 1.40 1996/07/19 02:22:05 adams Exp $
+;;;    $Id: hppa.m4,v 1.41 1996/08/12 23:13:25 cph Exp $
 ;;;
 ;;;    Copyright (c) 1989-1996 Massachusetts Institute of Technology
 ;;;
@@ -912,7 +912,7 @@ multiply_fixnum
 ;;
        STW     26,0(0,rs_free)                 ; copy in jump table
        STW     25,4(0,rs_free)
-       ZDEPI   1,TC_LENGTH-1,DATUM_LENGTH+1,26 ; FIXNUM_LIMIT
+       ZDEPI   1,TC_LENGTH-1,1,26              ; FIXNUM_LIMIT
        FLDWS   0(0,rs_free),4
        FLDWS   4(0,rs_free),5
        STW     26,8(0,rs_free)                 ; FIXNUM_LIMIT
@@ -952,7 +952,7 @@ fixnum_quotient
        STW     25,4(0,rs_free)                 ; arg2
        COMB,=  0,25,fixnum_quotient_ovflw
        STW     26,0(0,rs_free)
-       ZDEPI   1,TC_LENGTH,FIXNUM_BIT,25       ; FIXNUM_LIMIT
+       ZDEPI   1,TC_LENGTH-1,1,26              ; FIXNUM_LIMIT
        FLDWS   0(0,rs_free),4
        FLDWS   4(0,rs_free),5
         FCNVXF,SGL,DBL  4,4                    ; arg1
@@ -1236,7 +1236,7 @@ generic_times_fix_fix                                     ; FIX * FIX
        ;;  This is similar to the multiply_fixnum code
        STW     gen_arg1,0(0,rs_free)
        STW     gen_arg2,4(0,rs_free)
-       ZDEPI   1,TC_LENGTH-1,DATUM_LENGTH+1,gt3        ; FIXNUM_LIMIT
+       ZDEPI   1,TC_LENGTH-1,1,gt3                     ; FIXNUM_LIMIT
        FLDWS   0(0,rs_free),ft1
        FLDWS   4(0,rs_free),ft2
        STW     gt3,8(0,rs_free)                        ; FIXNUM_LIMIT