From 20b24be22dce89299e75b42a09517c34c088c2d8 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 28 Oct 1993 04:59:46 +0000 Subject: [PATCH] Update the code table. --- v7/src/compiler/machines/C/lapgen.scm | 7 +++++-- v7/src/compiler/machines/spectrum/lapgen.scm | 5 +++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/C/lapgen.scm b/v7/src/compiler/machines/C/lapgen.scm index 0db587f2b..4ccac682b 100644 --- a/v7/src/compiler/machines/C/lapgen.scm +++ b/v7/src/compiler/machines/C/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: lapgen.scm,v 1.6 1993/10/28 04:45:19 gjr Exp $ +$Id: lapgen.scm,v 1.7 1993/10/28 04:58:37 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -612,4 +612,7 @@ 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)) \ No newline at end of file + set! define lookup-apply primitive-error + quotient remainder modulo + reflect-to-interface interrupt-continuation-2 + compiled-code-bkpt compiled-closure-bkpt)) \ No newline at end of file diff --git a/v7/src/compiler/machines/spectrum/lapgen.scm b/v7/src/compiler/machines/spectrum/lapgen.scm index f82c193ca..d3e4ebc2d 100644 --- a/v7/src/compiler/machines/spectrum/lapgen.scm +++ b/v7/src/compiler/machines/spectrum/lapgen.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: lapgen.scm,v 4.44 1993/07/01 03:13:42 gjr Exp $ +$Id: lapgen.scm,v 4.45 1993/10/28 04:59:46 gjr Exp $ Copyright (c) 1988-1993 Massachusetts Institute of Technology @@ -625,7 +625,8 @@ MIT in each case. |# access lookup safe-lookup unassigned? unbound? set! define lookup-apply primitive-error quotient remainder modulo - apply-in-interpreter allocate-block)) + reflect-to-interface interrupt-continuation-2 + compiled-code-bkpt compiled-closure-bkpt)) (define-integrable (invoke-interface-ble code) ;; Jump to scheme-to-interface-ble -- 2.25.1