From d68765ee73bd385b09847450752c88f0b7eabf13 Mon Sep 17 00:00:00 2001
From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Fri, 12 Nov 1993 14:53:35 +0000
Subject: [PATCH] Added UWORD in preparation for future use in
 generate/remote-links (rules3)

---
 v7/src/compiler/machines/alpha/instr1.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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))))
-- 
2.25.1