From c3c905bf1243a8e4da2c2f0111aebd335e0b417a Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 7 Jun 1989 02:17:36 +0000 Subject: [PATCH] Add primitive uuo link disassembly. --- v7/src/compiler/machines/vax/dassm2.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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)) -- 2.25.1