From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 12 Aug 1996 23:14:10 +0000 (+0000)
Subject: Fix illegal instructions that are rejected by the new HP assembler.
X-Git-Tag: 20090517-FFI~5400
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e746d155fb356def9f789236be8ed99d767f3aae;p=mit-scheme.git

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 02cf1fcf3..eee4bd87e 100644
--- 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 d666c36b5..c7eea0de1 100644
--- 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