<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Index: Target.m3<br>===================================================================<br>RCS file: /usr/cvs/cm3/m3-sys/m3middle/src/Target.m3,v<br>retrieving revision 1.126<br>diff -u -r1.126 Target.m3<br>--- Target.m3 4 Sep 2012 15:11:09 -0000 1.126<br>+++ Target.m3 18 Dec 2012 19:01:03 -0000<br>@@ -49,7 +49,6 @@<br> END IsSPARC;<br> <br> PROCEDURE Init (system: TEXT; in_OS_name: TEXT; backend_mode: M3BackendMode_t): BOOLEAN =<br>- CONST FF = 16_FF;<br> VAR sys := 0; max_align := 64;<br> BEGIN<br> (* lookup the system -- linear search *)<br>@@ -65,50 +64,50 @@<br> Int8.cg_type := CGType.Int8;<br> Int8.size := 8;<br> Int8.align := 8;<br>- Int8.min := Int{16_80,FF,..};<br>- Int8.max := Int{16_7f,00,..};<br>+ Int8.min := TInt.Min8;<br>+ Int8.max := TInt.Max8;<br> <br> Int16.cg_type := CGType.Int16;<br> Int16.size := 16;<br> Int16.align := 16;<br>- Int16.min := Int{00,16_80,FF,..};<br>- Int16.max := Int{FF,16_7f,00,..};<br>+ Int16.min := TInt.Min16;<br>+ Int16.max := TInt.Max16;<br> <br> Int32.cg_type := CGType.Int32;<br> Int32.size := 32;<br> Int32.align := 32;<br>- Int32.min := Int{00,00,00,16_80,FF,..};<br>- Int32.max := Int{FF,FF,FF,16_7f,00,..};<br>+ Int32.min := TInt.Min32;<br>+ Int32.max := TInt.Max32;<br> <br> Int64.cg_type := CGType.Int64;<br> Int64.size := 64;<br> Int64.align := 64;<br>- Int64.min := Int{00,00,00,00,00,00,00,16_80};<br>- Int64.max := Int{FF,FF,FF,FF,FF,FF,FF,16_7f};<br>+ Int64.min := TInt.Min64;<br>+ Int64.max := TInt.Max64;<br> <br> Word8.cg_type := CGType.Word8;<br> Word8.size := 8;<br> Word8.align := 8;<br>- Word8.min := Int{00,00,..};<br>- Word8.max := Int{FF,00,..};<br>+ Word8.min := TInt.Zero;<br>+ Word8.max := TWord.Max8;<br> <br> Word16.cg_type := CGType.Word16;<br> Word16.size := 16;<br> Word16.align := 16;<br>- Word16.min := Int{00,00,00,..};<br>- Word16.max := Int{FF,FF,00,..};<br>+ Word16.min := TInt.Zero;<br>+ Word16.max := TWord.Max16;<br> <br> Word32.cg_type := CGType.Word32;<br> Word32.size := 32;<br> Word32.align := 32;<br>- Word32.min := Int{00,00,00,00,00,..};<br>- Word32.max := Int{FF,FF,FF,FF,00,..};<br>+ Word32.min := TInt.Zero;<br>+ Word32.max := TWord.Max32;<br> <br> Word64.cg_type := CGType.Word64;<br> Word64.size := 64;<br> Word64.align := 64;<br>- Word64.min := Int{00,00,00,00,00,00,00,00};<br>- Word64.max := Int{FF,FF,FF,FF,FF,FF,FF,FF};<br>+ Word64.min := TInt.Zero;<br>+ Word64.max := TWord.Max64;<br> <br> Integer := Int32; (* default for the 32-bit platforms *)<br> Longint := Int64;<br>@@ -120,8 +119,8 @@<br> Void.cg_type := CGType.Void;<br> Void.size := 0;<br> Void.align := Byte;<br>- Void.min := Int{0,..};<br>- Void.max := Int{0,..};<br>+ Void.min := TInt.Zero;<br>+ Void.max := TInt.Zero;<br> <br> Real.cg_type := CGType.Reel;<br> Real.pre := Precision.Short;<br><br><br> - Jay<br><br><div><div id="SkyDrivePlaceholder"></div>> Date: Tue, 18 Dec 2012 20:02:14 +0000<br>> To: m3commit@elegosoft.com<br>> From: jkrell@elego.de<br>> Subject: [M3commit] CVS Update: cm3<br>> <br>> CVSROOT: /usr/cvs<br>> Changes by: jkrell@birch. 12/12/18 20:02:14<br>> <br>> Modified files:<br>> cm3/m3-sys/m3middle/src/: Target.m3 <br>> <br>> Log message:<br>> use the constants from TInt.i3 and TWord.i3 instead of repeating them<br>> <br></div> </div></body>
</html>