From 7434112d8713e94e81adb04227372098595ceb94 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 15 May 1991 16:21:50 +0000 Subject: [PATCH] Change generic_flonum_result because of a bug in the HP assembler! LDO R'FLONUM_VECTOR_HEADER(7),7 was translated as if it had been LDO R'FLONUM_VECTOR_HEADER(0),7 I've replaced it with an ADDI instruction. --- v7/src/microcode/cmpauxmd/hppa.m4 | 5 +++-- v8/src/microcode/cmpauxmd/hppa.m4 | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/microcode/cmpauxmd/hppa.m4 b/v7/src/microcode/cmpauxmd/hppa.m4 index 8d60de8f6..6fc0d5740 100644 --- a/v7/src/microcode/cmpauxmd/hppa.m4 +++ b/v7/src/microcode/cmpauxmd/hppa.m4 @@ -1,6 +1,6 @@ changecom(`;');;; -*-Midas-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/hppa.m4,v 1.14 1991/05/08 02:17:14 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/cmpauxmd/hppa.m4,v 1.15 1991/05/15 16:21:50 jinx Exp $ ;;; ;;; Copyright (c) 1989, 1990 Massachusetts Institute of Technology ;;; @@ -590,7 +590,8 @@ generic_flonum_result ; expects data in fr4. COPY 21,2 ; result (untagged) LDWM 4(0,22),8 ; return address LDIL L'FLONUM_VECTOR_HEADER,7 - LDO R'FLONUM_VECTOR_HEADER(7),7 + ; LDO R'FLONUM_VECTOR_HEADER(7),7 ; Assembler bug! + ADDI R'FLONUM_VECTOR_HEADER,7,7 STWM 7,4(0,21) ; vector header DEPI TC_FLONUM,TC_START,TC_LENGTH,2 ; tag flonum DEP 5,TC_START,TC_LENGTH,8 ; data segment quadrant bits diff --git a/v8/src/microcode/cmpauxmd/hppa.m4 b/v8/src/microcode/cmpauxmd/hppa.m4 index c039e86d6..1e40e269f 100644 --- a/v8/src/microcode/cmpauxmd/hppa.m4 +++ b/v8/src/microcode/cmpauxmd/hppa.m4 @@ -1,6 +1,6 @@ changecom(`;');;; -*-Midas-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpauxmd/hppa.m4,v 1.14 1991/05/08 02:17:14 jinx Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/cmpauxmd/hppa.m4,v 1.15 1991/05/15 16:21:50 jinx Exp $ ;;; ;;; Copyright (c) 1989, 1990 Massachusetts Institute of Technology ;;; @@ -590,7 +590,8 @@ generic_flonum_result ; expects data in fr4. COPY 21,2 ; result (untagged) LDWM 4(0,22),8 ; return address LDIL L'FLONUM_VECTOR_HEADER,7 - LDO R'FLONUM_VECTOR_HEADER(7),7 + ; LDO R'FLONUM_VECTOR_HEADER(7),7 ; Assembler bug! + ADDI R'FLONUM_VECTOR_HEADER,7,7 STWM 7,4(0,21) ; vector header DEPI TC_FLONUM,TC_START,TC_LENGTH,2 ; tag flonum DEP 5,TC_START,TC_LENGTH,8 ; data segment quadrant bits -- 2.25.1