From a3e7db272d5590813383c42881c653b311bebf23 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Thu, 28 Oct 1993 02:55:54 +0000 Subject: [PATCH] Fix mangled character constant. Replace incorrect use of LONG with ULONG. --- v7/src/compiler/machines/C/rules1.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/C/rules1.scm b/v7/src/compiler/machines/C/rules1.scm index 14ccb53e1..825d01a99 100644 --- a/v7/src/compiler/machines/C/rules1.scm +++ b/v7/src/compiler/machines/C/rules1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rules1.scm,v 1.2 1993/10/26 03:02:39 jawilson Exp $ +$Id: rules1.scm,v 1.3 1993/10/28 02:55:54 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -76,7 +76,7 @@ MIT in each case. |# (define-rule statement (ASSIGN (REGISTER (? target)) (CONS-NON-POINTER (MACHINE-CONSTANT (? type)) (REGISTER (? source)))) - (let* ((datum (standard-source! source 'LONG)) + (let* ((datum (standard-source! source 'ULONG)) (target (standard-target! target 'SCHEME_OBJECT))) (LAP ,target " = (MAKE_OBJECT (" ,type ", " ,datum "));\n\t"))) @@ -357,12 +357,11 @@ MIT in each case. |# (lambda (source target) (LAP ,target " = (CHAR_TO_ASCII (" ,source "));\n\t")))) -;; is this constant correct??? (define-rule statement ;; store null byte in memory (ASSIGN (BYTE-OFFSET (REGISTER (? address)) (MACHINE-CONSTANT (? offset))) - (CHAR->ASCII (CONSTANT #\N\TUL))) + (CHAR->ASCII (CONSTANT #\NUL))) (let ((address (standard-source! address 'CHAR*))) (LAP ,address "[" ,offset "] = '\\0';\n\t"))) -- 2.25.1