Quellcode durchsuchen

* fixed range bug

Jonas Maebe vor 24 Jahren
Ursprung
Commit
46a07aca08
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      tests/test/trange1.pp

+ 1 - 1
tests/test/trange1.pp

@@ -114,7 +114,7 @@ begin
 { *********************** qword to longint ********************* }
   writeln;
   writeln('qword to longint');
-  q := $ffffffffffffffff;
+  q := qword($ffffffffffffffff);
   writeln(q);
   if not testlongint_qword(q,true) then
     writeln('test1 failed');