* compiletime range check fixes. SVN now compiles with -CROriot

git-svn-id: trunk@12129 -

packages/fcl-base/src/contnrs.pp

@@ -1378,7 +1378,7 @@ begin
       FHashList := nil;
     end;
   SetHashCapacity(1);
-  FHashTable^[0]:=longword(-1); // sethashcapacity does not always call rehash
+  FHashTable^[0]:=(-1); // sethashcapacity does not always call rehash
   if Assigned(FStrs) then
     begin
       FStrCount:=0;

packages/mysql/src/mysql4_com.pp

@@ -125,7 +125,7 @@ implementation
   function packet_error : longint;
       { return type might be wrong }
       begin
-         packet_error:= not (dword(0));
+         packet_error:= not ({dword}(0));
       end;
 
 // Next function also defined in mysql4_comdyn

packages/mysql/src/mysql4_comdyn.pp

@@ -141,7 +141,7 @@ end;
   function packet_error : longint;
       { return type might be wrong }
       begin
-         packet_error:= not (dword(0));
+         packet_error:= not ({dword}(0));
       end;
 
 // Next function also defined in mysql4_com

packages/mysql/src/mysql4impl.inc

@@ -28,7 +28,7 @@ end;}
 
 function MYSQL_COUNT_ERROR : longint;
 begin
-  MYSQL_COUNT_ERROR:= not (my_ulonglong(0));
+  MYSQL_COUNT_ERROR:= not ({my_ulonglong}(0));
 end;