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

* stop with an error when encountering omf fixups that aren't yet implemented

Browse Source 
git-svn-id: trunk@31388 -
This commit is contained in:
nickysn 2015-08-24 15:20:59 +00:00
parent d7f08866e5
commit 3d3eb6c472
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogomf.pas
View File

@ -1602,8 +1602,13 @@ implementation
InputError('Unsupported nonzero target displacement '+IntToStr(Fixup.TargetDisplacement)+' in external reference to '+sym.Name);
exit;
end;
end
else
begin
{todo: convert other fixup types as well }
InputError('Unsupported fixup target method '+IntToStr(Ord(Fixup.TargetMethod)));
exit;
end;
{todo: convert other fixup types as well }
Result:=True;
end;