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

Accept range/overflow for address computation inside unit

Browse Source 
git-svn-id: trunk@22507 -
This commit is contained in:
pierre 2012-10-01 14:20:54 +00:00
parent f25f44605e
commit b851a5a065
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogcoff.pas
View File

@ -811,6 +811,10 @@ const pemagic : array[0..3] of byte = (
write(offset,len);
end;
{ We don't want overflow nor range checks here,
wrapping is accepted in the address computation below }
{$r-}
{$q-}
procedure TCoffExeOutput.DoRelocationFixup(objsec:TObjSection);
var