From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 7 Jun 1989 02:17:36 +0000 (+0000)
Subject: Add primitive uuo link disassembly.
X-Git-Tag: 20090517-FFI~12021
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c3c905bf1243a8e4da2c2f0111aebd335e0b417a;p=mit-scheme.git

Add primitive uuo link disassembly.
---

diff --git a/v7/src/compiler/machines/vax/dassm2.scm b/v7/src/compiler/machines/vax/dassm2.scm
index 1c3025359..b9f3e6e7c 100644
--- a/v7/src/compiler/machines/vax/dassm2.scm
+++ b/v7/src/compiler/machines/vax/dassm2.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dassm2.scm,v 4.8 1989/05/24 05:10:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/vax/dassm2.scm,v 4.9 1989/06/07 02:17:36 jinx Rel $
 $MC68020-Header: dassm2.scm,v 4.12 88/12/30 07:05:13 GMT cph Exp $
 
 Copyright (c) 1987, 1989 Massachusetts Institute of Technology
@@ -76,14 +76,16 @@ MIT in each case. |#
 			      (variable-cache-name
 			       (system-vector-ref new-block 3))
 			      arity))
-		     ((#x10c)		; interpreted
+		     ((#x10c		; interpreted
+		       #x160		; fixed arity primitive
+		       #x166)		; lexpr primitive
 		      (vector 'INTERPRETED
 			      (system-vector-ref new-block 3)
 			      arity))
 		     ((#x112		; arity
 		       #x11e		; entity
 		       #x124 #x12a #x130 #x136 #x13c ; specialized arity
-		       #x142 #x148 #x14e #x154 #x15e)
+		       #x142 #x148 #x14e #x154 #x15a)
 		      (vector 'COMPILED
 			      (system-vector-ref new-block 3)
 			      arity))