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

* check record type in TOmfRecord_THEADR.DecodeFrom

Browse Source 
git-svn-id: trunk@30582 -
This commit is contained in:
nickysn 2015-04-14 12:04:49 +00:00
parent 03e8c3ae05
commit 64cb865417
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/omfbase.pas
View File

@ -613,6 +613,8 @@ implementation
procedure TOmfRecord_THEADR.DecodeFrom(RawRecord: TOmfRawRecord);
begin
if RawRecord.RecordType<>RT_THEADR then
internalerror(2015040301);
RawRecord.ReadStringAt(0,FModuleName);
end;