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

+ parse the area records of REL files

Browse Source 
git-svn-id: trunk@45554 -
This commit is contained in:
nickysn 2020-06-01 19:52:25 +00:00
parent c8337937b3
commit 19a66947bc
1 changed files with 70 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
compiler/ogrel.pas
View File

@ -660,11 +660,12 @@ implementation
const const
GenericRelErrMsg='Error reading REL file'; GenericRelErrMsg='Error reading REL file';
var var
s: string; s, AreaName: string;
RecType: Char; RecType: Char;
HeaderFound: Boolean=false; HeaderFound: Boolean=false;
ExpectedAreas,ExpectedSymbols: LongInt; ExpectedAreas,ExpectedSymbols,AreaSize,AreaFlags,AreaAddr: LongInt;
tmpint: SizeInt; tmpint: SizeInt;
CurrSec: TObjSection=nil;
begin begin
FReader:=AReader; FReader:=AReader;
InputFileName:=AReader.FileName; InputFileName:=AReader.FileName;
@ -746,7 +747,73 @@ implementation
end; end;
'A': { area } 'A': { area }
begin begin
{ todo: implement } if not HeaderFound then
begin
InputError('Area record encountered before header');
exit;
end;
tmpint:=Pos(' ',s);
if tmpint<=1 then
begin
InputError('Invalid area record');
exit;
end;
AreaName:=copy(s,1,tmpint-1);
delete(s,1,tmpint);
if copy(s,1,5)<>'size ' then
begin
InputError('Invalid area record');
exit;
end;
delete(s,1,5);
tmpint:=Pos(' ',s);
if not TryStrToInt('$'+Copy(s,1,tmpint-1),AreaSize) then
begin
InputError('Invalid area size');
exit;
end;
delete(s,1,tmpint);
if copy(s,1,6)<>'flags ' then
begin
InputError('Invalid area record');
exit;
end;
delete(s,1,6);
tmpint:=Pos(' ',s);
if not TryStrToInt('$'+Copy(s,1,tmpint-1),AreaFlags) then
begin
InputError('Invalid area flags');
exit;
end;
delete(s,1,tmpint);
if copy(s,1,5)<>'addr ' then
begin
InputError('Invalid area record');
exit;
end;
delete(s,1,5);
if not TryStrToInt('$'+Copy(s,1,tmpint-1),AreaAddr) then
begin
InputError('Invalid area address');
exit;
end;
if AreaFlags<>0 then
begin
InputError('Unsupported area flags ('+tostr(AreaFlags)+')');
exit;
end;
if AreaAddr<>0 then
begin
InputError('Area address<>0 not supported');
exit;
end;
CurrSec:=Data.createsection(AreaName,1,[],false);
CurrSec.alloc(AreaSize);
if Data.ObjSectionList.Count>ExpectedAreas then
begin
InputError('Number of areas exceeds the number, declared in header');
exit;
end;
end; end;
'T': { T line () } 'T': { T line () }
begin begin