[M3commit] CVS Update: cm3

[Jay K]

Index: Target.m3
===================================================================
RCS file: /usr/cvs/cm3/m3-sys/m3middle/src/Target.m3,v
retrieving revision 1.126
diff -u -r1.126 Target.m3
--- Target.m3    4 Sep 2012 15:11:09 -0000    1.126
+++ Target.m3    18 Dec 2012 19:01:03 -0000
@@ -49,7 +49,6 @@
   END IsSPARC;
   
 PROCEDURE Init (system: TEXT; in_OS_name: TEXT; backend_mode: M3BackendMode_t): BOOLEAN =
-  CONST FF = 16_FF;
   VAR sys := 0;  max_align := 64;
   BEGIN
     (* lookup the system -- linear search *)
@@ -65,50 +64,50 @@
     Int8.cg_type     := CGType.Int8;
     Int8.size        := 8;
     Int8.align       := 8;
-    Int8.min         := Int{16_80,FF,..};
-    Int8.max         := Int{16_7f,00,..};
+    Int8.min         := TInt.Min8;
+    Int8.max         := TInt.Max8;
 
     Int16.cg_type    := CGType.Int16;
     Int16.size       := 16;
     Int16.align      := 16;
-    Int16.min        := Int{00,16_80,FF,..};
-    Int16.max        := Int{FF,16_7f,00,..};
+    Int16.min        := TInt.Min16;
+    Int16.max        := TInt.Max16;
 
     Int32.cg_type    := CGType.Int32;
     Int32.size       := 32;
     Int32.align      := 32;
-    Int32.min        := Int{00,00,00,16_80,FF,..};
-    Int32.max        := Int{FF,FF,FF,16_7f,00,..};
+    Int32.min        := TInt.Min32;
+    Int32.max        := TInt.Max32;
 
     Int64.cg_type    := CGType.Int64;
     Int64.size       := 64;
     Int64.align      := 64;
-    Int64.min        := Int{00,00,00,00,00,00,00,16_80};
-    Int64.max        := Int{FF,FF,FF,FF,FF,FF,FF,16_7f};
+    Int64.min        := TInt.Min64;
+    Int64.max        := TInt.Max64;
 
     Word8.cg_type    := CGType.Word8;
     Word8.size       := 8;
     Word8.align      := 8;
-    Word8.min        := Int{00,00,..};
-    Word8.max        := Int{FF,00,..};
+    Word8.min        := TInt.Zero;
+    Word8.max        := TWord.Max8;
 
     Word16.cg_type   := CGType.Word16;
     Word16.size      := 16;
     Word16.align     := 16;
-    Word16.min       := Int{00,00,00,..};
-    Word16.max       := Int{FF,FF,00,..};
+    Word16.min       := TInt.Zero;
+    Word16.max       := TWord.Max16;
 
     Word32.cg_type   := CGType.Word32;
     Word32.size      := 32;
     Word32.align     := 32;
-    Word32.min       := Int{00,00,00,00,00,..};
-    Word32.max       := Int{FF,FF,FF,FF,00,..};
+    Word32.min       := TInt.Zero;
+    Word32.max       := TWord.Max32;
 
     Word64.cg_type   := CGType.Word64;
     Word64.size      := 64;
     Word64.align     := 64;
-    Word64.min       := Int{00,00,00,00,00,00,00,00};
-    Word64.max       := Int{FF,FF,FF,FF,FF,FF,FF,FF};
+    Word64.min       := TInt.Zero;
+    Word64.max       := TWord.Max64;
 
     Integer          := Int32;  (* default for the 32-bit platforms *)
     Longint          := Int64;
@@ -120,8 +119,8 @@
     Void.cg_type     := CGType.Void;
     Void.size        := 0;
     Void.align       := Byte;
-    Void.min         := Int{0,..};
-    Void.max         := Int{0,..};
+    Void.min         := TInt.Zero;
+    Void.max         := TInt.Zero;
 
     Real.cg_type     := CGType.Reel;
     Real.pre         := Precision.Short;


 - Jay

> Date: Tue, 18 Dec 2012 20:02:14 +0000
> To: m3commit at elegosoft.com
> From: jkrell at elego.de
> Subject: [M3commit] CVS Update: cm3
> 
> CVSROOT:	/usr/cvs
> Changes by:	jkrell at birch.	12/12/18 20:02:14
> 
> Modified files:
> 	cm3/m3-sys/m3middle/src/: Target.m3 
> 
> Log message:
> 	use the constants from TInt.i3 and TWord.i3 instead of repeating them
> 
 		 	   		  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://m3lists.elegosoft.com/pipermail/m3commit/attachments/20121218/c7cd7039/attachment-0002.html>