Browse Source

* fix rangecheck error

peter 21 years ago
parent
commit
f2d2c4c496
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/ncnv.pas

+ 5 - 2
compiler/ncnv.pas

@@ -792,7 +792,7 @@ implementation
            if is_currency(resulttype.def) then
              v:=v*10000;
            if (resulttype.def.deftype=pointerdef) then
-             result:=cpointerconstnode.create(v,resulttype)
+             result:=cpointerconstnode.create(TConstPtrUInt(v),resulttype)
            else
              begin
                if is_currency(left.resulttype.def) then
@@ -2413,7 +2413,10 @@ begin
 end.
 {
   $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
 
   Revision 1.131  2003/11/22 00:31:52  jonas