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

+ implemented TOmfRecord_COMENT_IMPDEF.DecodeFrom

Browse Source 
git-svn-id: trunk@42242 -
This commit is contained in:
nickysn 2019-06-17 01:53:38 +00:00
parent d80dc03ccb
commit 5d4af28c0f
1 changed files with 39 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
compiler/omfbase.pas
View File

@ -1602,9 +1602,46 @@ implementation
{ TOmfRecord_COMENT_IMPDEF } { TOmfRecord_COMENT_IMPDEF }
procedure TOmfRecord_COMENT_IMPDEF.DecodeFrom(ComentRecord: TOmfRecord_COMENT); procedure TOmfRecord_COMENT_IMPDEF.DecodeFrom(ComentRecord: TOmfRecord_COMENT);
var
InternalNameLen, ModuleNameLenIdx, ModuleNameLen, NameLenIdx,
NameLen, OrdinalIdx: Integer;
begin begin
{todo: implement} if ComentRecord.CommentClass<>CC_OmfExtension then
internalerror(2019061502); internalerror(2019061621);
if Length(ComentRecord.CommentString)<5 then
internalerror(2019061622);
if ComentRecord.CommentString[1]<>Chr(CC_OmfExtension_IMPDEF) then
internalerror(2019061623);
ImportByOrdinal:=Ord(ComentRecord.CommentString[2])<>0;
InternalNameLen:=Ord(ComentRecord.CommentString[3]);
InternalName:=Copy(ComentRecord.CommentString,4,InternalNameLen);
ModuleNameLenIdx:=4+InternalNameLen;
if ModuleNameLenIdx>Length(ComentRecord.CommentString) then
internalerror(2019061624);
ModuleNameLen:=Ord(ComentRecord.CommentString[ModuleNameLenIdx]);
ModuleName:=Copy(ComentRecord.CommentString,ModuleNameLenIdx+1,ModuleNameLen);
if ImportByOrdinal then
begin
Name:='';
OrdinalIdx:=ModuleNameLenIdx+1+ModuleNameLen;
if (OrdinalIdx+1)>Length(ComentRecord.CommentString) then
internalerror(2019061625);
Ordinal:=Ord(ComentRecord.CommentString[OrdinalIdx]) or
(Word(Ord(ComentRecord.CommentString[OrdinalIdx+1])) shl 8);
end
else
begin
Ordinal:=0;
NameLenIdx:=ModuleNameLenIdx+1+ModuleNameLen;
if NameLenIdx>Length(ComentRecord.CommentString) then
internalerror(2019061626);
NameLen:=Ord(ComentRecord.CommentString[NameLenIdx]);
if (NameLenIdx+NameLen)>Length(ComentRecord.CommentString) then
internalerror(2019061627);
Name:=Copy(ComentRecord.CommentString,NameLenIdx+1,NameLen);
if Name='' then
Name:=InternalName;
end;
end; end;
procedure TOmfRecord_COMENT_IMPDEF.EncodeTo(ComentRecord: TOmfRecord_COMENT); procedure TOmfRecord_COMENT_IMPDEF.EncodeTo(ComentRecord: TOmfRecord_COMENT);