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

Remove references to sym variable when not set (revealed warning generated when compiling with -O4 option)

Browse Source 
git-svn-id: trunk@39101 -
This commit is contained in:
pierre 2018-05-23 20:45:21 +00:00
parent 019da9517f
commit f80e73eac2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogomf.pas
View File

@ -1767,7 +1767,7 @@ implementation
end;
if RelocType=RELOC_NONE then
begin
InputError('Unsupported fixup location type '+tostr(Ord(Fixup.LocationType))+' with mode '+tostr(ord(Fixup.Mode))+' in external reference to '+sym.Name);
InputError('Unsupported fixup location type '+tostr(Ord(Fixup.LocationType))+' with mode '+tostr(ord(Fixup.Mode)));
exit;
end;
reloc:=TOmfRelocation.CreateSection(Fixup.LocationOffset,target_section,RelocType);
@ -1832,7 +1832,7 @@ implementation
end;
if RelocType=RELOC_NONE then
begin
InputError('Unsupported fixup location type '+tostr(Ord(Fixup.LocationType))+' with mode '+tostr(ord(Fixup.Mode))+' in external reference to '+sym.Name);
InputError('Unsupported fixup location type '+tostr(Ord(Fixup.LocationType))+' with mode '+tostr(ord(Fixup.Mode)));
exit;
end;
reloc:=TOmfRelocation.CreateGroup(Fixup.LocationOffset,target_group,RelocType);