paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +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} {$checkpointer off}
{$goto on} {$goto on}
{$typedpointer on} {$TYPEDADDRESS on}
{$if defined(win32) or defined(wince)} {$if defined(win32) or defined(wince)}
{$define windows} {$define windows}

2
rtl/objpas/fgl.pp
View File

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