paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 04:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@12129 -
This commit is contained in:
marco 2008-11-16 19:08:03 +00:00
parent 4594758ae5
commit a472967423
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/contnrs.pp
View File

@ -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;

2
packages/mysql/src/mysql4_com.pp
View File

@ -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

2
packages/mysql/src/mysql4_comdyn.pp
View File

@ -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

2
packages/mysql/src/mysql4impl.inc
View File

@ -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;