From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Fri, 12 Nov 1993 14:53:35 +0000 (+0000)
Subject: Added UWORD in preparation for future use in generate/remote-links
X-Git-Tag: 20090517-FFI~7533
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d68765ee73bd385b09847450752c88f0b7eabf13;p=mit-scheme.git

Added UWORD in preparation for future use in generate/remote-links
(rules3)
---

diff --git a/v7/src/compiler/machines/alpha/instr1.scm b/v7/src/compiler/machines/alpha/instr1.scm
index 188519585..607eeba9c 100644
--- a/v7/src/compiler/machines/alpha/instr1.scm
+++ b/v7/src/compiler/machines/alpha/instr1.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: instr1.scm,v 1.1 1992/08/29 13:51:23 jinx Exp $
+$Id: instr1.scm,v 1.2 1993/11/12 14:53:35 jmiller Exp $
 
 Copyright (c) 1992 Digital Equipment Corporation (D.E.C.)
 
@@ -283,3 +283,8 @@ case.
   ;; BIS R31 R31 R31
   (()
    (LONG (6 #x11) (5 31) (5 31) (3 0) (1 0) (7 #x20) (5 31))))
+
+(define-instruction UWORD
+  ;; Directly insert 32 bit word into output stream
+  ((? expression)
+   (LONG (32 expression UNSIGNED))))