From 4e77fe27e73638208fb7fcdc35fdb1952bbb1b6f Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 28 Oct 1993 15:06:59 +0000
Subject: [PATCH] Remove remaining reference to ulong.

---
 v7/src/compiler/machines/C/rules1.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/v7/src/compiler/machines/C/rules1.scm b/v7/src/compiler/machines/C/rules1.scm
index 825d01a99..115a85ac1 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.3 1993/10/28 02:55:54 gjr Exp $
+$Id: rules1.scm,v 1.4 1993/10/28 15:06:59 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -345,10 +345,9 @@ MIT in each case. |#
 		       (MACHINE-CONSTANT (? offset))))
   (standard-unary-conversion address 'CHAR* target 'ULONG
     (lambda (address target)
-      (LAP ,target " = ((ulong) (((unsigned char *) " ,address ")["
+      (LAP ,target " = ((unsigned long) (((unsigned char *) " ,address ")["
 	   ,offset "]));\n\t"))))
 
-;*
 (define-rule statement
   ;; convert char object to ASCII byte
   (ASSIGN (REGISTER (? target))
-- 
2.25.1