Forráskód Böngészése

* fix rangecheck error

peter 21 éve
szülő
commit
f2d2c4c496
1 módosított fájl, 5 hozzáadás és 2 törlés
  1. 5 2
      compiler/ncnv.pas

+ 5 - 2
compiler/ncnv.pas

@@ -792,7 +792,7 @@ implementation
            if is_currency(resulttype.def) then
            if is_currency(resulttype.def) then
              v:=v*10000;
              v:=v*10000;
            if (resulttype.def.deftype=pointerdef) then
            if (resulttype.def.deftype=pointerdef) then
-             result:=cpointerconstnode.create(v,resulttype)
+             result:=cpointerconstnode.create(TConstPtrUInt(v),resulttype)
            else
            else
              begin
              begin
                if is_currency(left.resulttype.def) then
                if is_currency(left.resulttype.def) then
@@ -2413,7 +2413,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.132  2003-12-08 22:35:28  peter
+  Revision 1.133  2003-12-22 23:11:15  peter
+    * fix rangecheck error
+
+  Revision 1.132  2003/12/08 22:35:28  peter
     * again procvar fixes
     * again procvar fixes
 
 
   Revision 1.131  2003/11/22 00:31:52  jonas
   Revision 1.131  2003/11/22 00:31:52  jonas