From 4604bdf9de3ae8f6078c39c7ee578ee9c02f9654 Mon Sep 17 00:00:00 2001 From: Jim Miller Date: Fri, 12 Nov 1993 18:10:42 +0000 Subject: [PATCH] Added coerce-32-bit-unsigned to support UWORD (instr1) --- v7/src/compiler/machines/alpha/coerce.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/machines/alpha/coerce.scm b/v7/src/compiler/machines/alpha/coerce.scm index e3ece6b96..114c0de2e 100644 --- a/v7/src/compiler/machines/alpha/coerce.scm +++ b/v7/src/compiler/machines/alpha/coerce.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: coerce.scm,v 1.1 1992/08/29 13:51:16 jinx Exp $ +$Id: coerce.scm,v 1.2 1993/11/12 18:10:42 jmiller Exp $ Copyright (c) 1992 Digital Equipment Corporation (D.E.C.) @@ -56,6 +56,7 @@ case. (define coerce-11-bit-unsigned (make-coercion 'UNSIGNED 11)) (define coerce-16-bit-unsigned (make-coercion 'UNSIGNED 16)) (define coerce-26-bit-unsigned (make-coercion 'UNSIGNED 26)) +(define coerce-32-bit-unsigned (make-coercion 'UNSIGNED 32)) (define coerce-14-bit-signed (make-coercion 'SIGNED 14)) (define coerce-16-bit-signed (make-coercion 'SIGNED 16)) -- 2.25.1