Change lap:make-label-statement to use LAP instead of INST.

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index cf8b3f23f110ec9b2e3a8957b113c2ae1c051bba..9cbbdfed861df56c9069c11e5f98720a62b9977e 100644 (file)
--- 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 8a8c69eb17889a0fa6ac6d492c3d6379785aec1b..2f2f1ddf357ac0b28d1c2d43a7374ed2f1d0be84 100644 (file)
--- 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 6057a72e154706f09ae2cdde6b0d3dad6d76aab6..38d9e0a89bca601155ba81e9ecb575d5cf9c6a84 100644 (file)
--- 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 402f7c1da9b3498e075daf2c399743bb848cf341..6627d216d0f653fa1751314b846d3d727cca8df0 100644 (file)
--- 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 b8196a824701abd4221f77b774bd92e3b04a711a..8b54d9d8484b08ffe7105adeec2f2fbae29fe22d 100644 (file)
--- 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