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

* Fixed warnings.

Browse Source 
git-svn-id: trunk@9095 -
This commit is contained in:
yury 2007-11-03 10:36:27 +00:00
parent 40c3092b99
commit 6a36ac786a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/heaptrc.pp
View File

@ -23,7 +23,7 @@ interface
{$checkpointer off}
{$goto on}
{$typedpointer on}
{$TYPEDADDRESS on}
{$if defined(win32) or defined(wince)}
{$define windows}

2
rtl/objpas/fgl.pp
View File

@ -689,7 +689,7 @@ begin
if I >= 0 then
Result := InternalItems[I]+FKeySize
else
Error(SMapKeyError, PtrInt(AKey));
Error(SMapKeyError, PtrUInt(AKey));
end;
procedure TFPSMap.InitOnPtrCompare;