paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* group T and R records together and call a function (not implemented yet) to handle them in pairs

Browse Source 
git-svn-id: trunk@45561 -
This commit is contained in:
nickysn 2020-06-01 22:48:51 +00:00
parent a91b42bd8d
commit ad66f17a87
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/ogrel.pas
View File

@ -657,6 +657,13 @@ implementation
end;
function TRelObjInput.ReadObjData(AReader: TObjectreader; out Data: TObjData): boolean;
function HandleTR(const T,R: string): boolean;
begin
{ todo: implement }
result:=true;
end;
const
GenericRelErrMsg='Error reading REL file';
var
@ -668,6 +675,7 @@ implementation
tmpint: SizeInt;
CurrSec: TObjSection=nil;
objsym: TObjSymbol;
LastT: string='';
begin
FReader:=AReader;
InputFileName:=AReader.FileName;
@ -891,11 +899,23 @@ implementation
end;
'T': { T line () }
begin
{ todo: implement }
if LastT<>'' then
begin
InputError('T record not followed by R record');
exit;
end;
LastT:=s;
end;
'R': { R line (relocation information) }
begin
{ todo: implement }
if LastT='' then
begin
InputError('R record without T record');
exit;
end;
if not HandleTR(LastT,s) then
exit;
LastT:='';
end;
'P': { P line (paging information) }
begin