Browse Source

* Fix val code that I broke.

git-svn-id: branches/fpc_2_3@6547 -
daniel 18 years ago
parent
commit
4f44a8f21f
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/inc/sstrings.inc

+ 2 - 2
rtl/inc/sstrings.inc

@@ -881,7 +881,7 @@ end;
        base : byte;
        negative : boolean;
 
-  const maxint64=int64($7fffffffffffffff);
+  const maxint64=qword($7fffffffffffffff);
         maxqword=qword($ffffffffffffffff);
 
   begin
@@ -928,7 +928,7 @@ end;
        base : byte;
        negative : boolean;
 
-  const maxqword=word($ffffffffffffffff);
+  const maxqword=qword($ffffffffffffffff);
 
   begin
     fpc_val_qword_shortstr:=0;