From: Jim Miller Date: Fri, 12 Nov 1993 18:10:42 +0000 (+0000) Subject: Added coerce-32-bit-unsigned to support UWORD (instr1) X-Git-Tag: 20090517-FFI~7530 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4604bdf9de3ae8f6078c39c7ee578ee9c02f9654;p=mit-scheme.git Added coerce-32-bit-unsigned to support UWORD (instr1) --- 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))