From 89de9ec2fb005496b849501f6250fea3a0dd57c2 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 7 May 1991 17:44:02 +0000 Subject: [PATCH] Update to match 68020 compiler version 4.84. --- v7/src/compiler/machines/spectrum/lapgen.scm | 29 ++++++++++++++++---- v7/src/compiler/machines/spectrum/rgspcm.scm | 12 ++++---- 2 files changed, 29 insertions(+), 12 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/lapgen.scm b/v7/src/compiler/machines/spectrum/lapgen.scm index 49824c5a1..01937b0a3 100644 --- a/v7/src/compiler/machines/spectrum/lapgen.scm +++ b/v7/src/compiler/machines/spectrum/lapgen.scm @@ -1,9 +1,9 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.35 1990/07/22 18:53:55 jinx Rel $ -$MC68020-Header: lapgen.scm,v 4.35 90/07/20 15:53:40 GMT jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.36 1991/05/07 17:44:02 jinx Exp $ +$MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.41 1991/05/06 23:05:51 jinx Exp $ -Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology +Copyright (c) 1988-1991 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -532,7 +532,8 @@ MIT in each case. |# reference-trap safe-reference-trap unassigned?-trap -1+ &/ &= &> 1+ &< &- &* negative? &+ positive? zero? access lookup safe-lookup unassigned? unbound? - set! define lookup-apply)) + set! define lookup-apply primitive-error + quotient remainder modulo)) (define-integrable (invoke-interface-ble code) ;; Jump to scheme-to-interface-ble @@ -545,7 +546,7 @@ MIT in each case. |# ;; Jump to scheme-to-interface (LAP (BLE () (OFFSET 12 4 ,regnum:scheme-to-interface-ble)) (LDI () ,code 28))) - + (let-syntax ((define-hooks (macro (start . names) (define (loop names index) @@ -563,7 +564,23 @@ MIT in each case. |# multiply-fixnum fixnum-quotient fixnum-remainder - fixnum-lsh)) + fixnum-lsh + &+ + &- + &* + &/ + &= + &< + &> + 1+ + -1+ + zero? + positive? + negative?)) + +(define (invoke-hook hook) + (LAP (BLE () (OFFSET ,hook 4 ,regnum:scheme-to-interface-ble)) + (NOP ()))) (define (require-registers! . regs) (let ((code (apply clear-registers! regs))) diff --git a/v7/src/compiler/machines/spectrum/rgspcm.scm b/v7/src/compiler/machines/spectrum/rgspcm.scm index d0b56e8cd..103cf3fe5 100644 --- a/v7/src/compiler/machines/spectrum/rgspcm.scm +++ b/v7/src/compiler/machines/spectrum/rgspcm.scm @@ -1,9 +1,9 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rgspcm.scm,v 4.1 1990/01/25 16:39:03 jinx Rel $ -$MC68020-Header: rgspcm.scm,v 4.1 87/12/30 07:05:38 GMT cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/rgspcm.scm,v 4.2 1991/05/07 17:43:26 jinx Exp $ +$MC68020-Header: /scheme/compiler/bobcat/RCS/rgspcm.scm,v 4.2 1991/05/06 23:17:03 jinx Exp $ -Copyright (c) 1987, 1989, 1990 Massachusetts Institute of Technology +Copyright (c) 1987-1991 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -61,7 +61,7 @@ MIT in each case. |# (define-special-primitive/standard '&+) (define-special-primitive/standard '&-) -;; (define-special-primitive/standard '&*) +(define-special-primitive/standard '&*) (define-special-primitive/standard '&/) (define-special-primitive/standard '&=) (define-special-primitive/standard '&<) @@ -71,5 +71,5 @@ MIT in each case. |# (define-special-primitive/standard 'zero?) (define-special-primitive/standard 'positive?) (define-special-primitive/standard 'negative?) - - +(define-special-primitive/standard 'quotient) +(define-special-primitive/standard 'remainder) \ No newline at end of file -- 2.25.1