From c12afa8e9f510358629e838dcf8ed4e93864a8e9 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 14 May 1992 03:07:51 +0000 Subject: [PATCH] Change lap:make-label-statement to use LAP instead of INST. --- v7/src/compiler/machines/bobcat/lapgen.scm | 6 +++--- v7/src/compiler/machines/i386/lapgen.scm | 4 ++-- v7/src/compiler/machines/mips/lapgen.scm | 6 +++--- v7/src/compiler/machines/spectrum/lapgen.scm | 4 ++-- v7/src/compiler/machines/vax/lapgen.scm | 8 +++----- 5 files changed, 13 insertions(+), 15 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index cf8b3f23f..9cbbdfed8 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.42 1991/05/28 19:14:26 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.43 1992/05/14 03:06:23 jinx Exp $ -Copyright (c) 1988-1991 Massachusetts Institute of Technology +Copyright (c) 1988-1992 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -1077,7 +1077,7 @@ MIT in each case. |# (caddr expression)) (define (lap:make-label-statement label) - (INST (LABEL ,label))) + (LAP (LABEL ,label))) (define (lap:make-unconditional-branch label) (LAP (BRA (@PCR ,label)))) diff --git a/v7/src/compiler/machines/i386/lapgen.scm b/v7/src/compiler/machines/i386/lapgen.scm index 8a8c69eb1..2f2f1ddf3 100644 --- a/v7/src/compiler/machines/i386/lapgen.scm +++ b/v7/src/compiler/machines/i386/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.19 1992/02/28 20:22:42 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/lapgen.scm,v 1.20 1992/05/14 03:06:55 jinx Exp $ $MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.42 1991/05/28 19:14:26 jinx Exp $ Copyright (c) 1992 Massachusetts Institute of Technology @@ -101,7 +101,7 @@ MIT in each case. |# ;;;; Linearizer interface (define (lap:make-label-statement label) - (INST (LABEL ,label))) + (LAP (LABEL ,label))) (define (lap:make-unconditional-branch label) (LAP (JMP (@PCR ,label)))) diff --git a/v7/src/compiler/machines/mips/lapgen.scm b/v7/src/compiler/machines/mips/lapgen.scm index 6057a72e1..38d9e0a89 100644 --- a/v7/src/compiler/machines/mips/lapgen.scm +++ b/v7/src/compiler/machines/mips/lapgen.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/lapgen.scm,v 1.8 1991/10/25 00:13:08 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/mips/lapgen.scm,v 1.9 1992/05/14 03:07:51 jinx Exp $ -Copyright (c) 1988-91 Massachusetts Institute of Technology +Copyright (c) 1988-1992 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -559,7 +559,7 @@ MIT in each case. |# (INST-EA (OFFSET #x001C ,regnum:regs-pointer))) (define (lap:make-label-statement label) - (INST (LABEL ,label))) + (LAP (LABEL ,label))) (define (lap:make-unconditional-branch label) (LAP (BEQ 0 0 (@PCR ,label)) diff --git a/v7/src/compiler/machines/spectrum/lapgen.scm b/v7/src/compiler/machines/spectrum/lapgen.scm index 402f7c1da..6627d216d 100644 --- a/v7/src/compiler/machines/spectrum/lapgen.scm +++ b/v7/src/compiler/machines/spectrum/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.37 1992/02/07 05:58:34 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/spectrum/lapgen.scm,v 4.38 1992/05/14 03:02:44 jinx Exp $ $MC68020-Header: /scheme/compiler/bobcat/RCS/lapgen.scm,v 4.41 1991/05/06 23:05:51 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -500,7 +500,7 @@ MIT in each case. |# (INST-EA (OFFSET #x001C 0 ,regnum:regs-pointer))) (define (lap:make-label-statement label) - (INST (LABEL ,label))) + (LAP (LABEL ,label))) (define (lap:make-unconditional-branch label) (LAP (B (N) (@PCR ,label)))) diff --git a/v7/src/compiler/machines/vax/lapgen.scm b/v7/src/compiler/machines/vax/lapgen.scm index b8196a824..8b54d9d84 100644 --- a/v7/src/compiler/machines/vax/lapgen.scm +++ b/v7/src/compiler/machines/vax/lapgen.scm @@ -1,9 +1,9 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/lapgen.scm,v 4.11 1991/06/17 23:01:34 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/lapgen.scm,v 4.12 1992/05/14 03:07:25 jinx Exp $ $MC68020-Header: lapgen.scm,v 4.39 1991/01/30 22:48:01 jinx Exp $ -Copyright (c) 1987-91 Massachusetts Institute of Technology +Copyright (c) 1987-1992 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -93,9 +93,7 @@ MIT in each case. |# (register-reference regnum:pointer-mask)) (define (lap:make-label-statement label) - ;; This should use LAP rather than INST, but - ;; that requires changing back/linear.scm - (INST (LABEL ,label))) + (LAP (LABEL ,label))) (define (lap:make-unconditional-branch label) (LAP (BR (@PCR ,label)))) ; Unsized -- 2.25.1