paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 08:41:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: ppuparser: read mangledsymbolname

Browse Source 
git-svn-id: trunk@47065 -
This commit is contained in:
mattias 2014-12-02 17:26:32 +00:00
parent 0c37a917cb
commit aef8161feb
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/ppuparser.pas
View File

@ -1070,8 +1070,10 @@ begin
ibmainname: Result:='ibmainname'; ibmainname: Result:='ibmainname';
ibsymtableoptions:Result:='ibsymtableoptions'; ibsymtableoptions:Result:='ibsymtableoptions';
//ibrecsymtableoptions: duplicate with ibsymtableoptions
{ target-specific things } { target-specific things }
iblinkotherframeworks: Result:='iblinkotherframeworks'; iblinkotherframeworks: Result:='iblinkotherframeworks';
ibjvmnamespace: Result:='ibjvmnamespace';
else Result:='unknown('+IntToStr(Entry)+')'; else Result:='unknown('+IntToStr(Entry)+')';
end; end;
end; end;
@ -1161,7 +1163,7 @@ begin
ReadData(FHeader.id,PPU_ID_Size); ReadData(FHeader.id,PPU_ID_Size);
if String(FHeader.id)<>PPU_ID then if String(FHeader.id)<>PPU_ID then
Error('This is not a PPU. Wrong ID.'); Error('This is not a PPU. Wrong ID.');
// read version // read Version
ReadData(FHeader.ver,PPU_Ver_Size); ReadData(FHeader.ver,PPU_Ver_Size);
FVersion:=StrToIntDef(String(FHeader.ver),0); FVersion:=StrToIntDef(String(FHeader.ver),0);
if FVersion<16 then if FVersion<16 then
@ -1189,7 +1191,7 @@ begin
if (cpu<low(tsystemcpu)) or (cpu>high(tsystemcpu)) then if (cpu<low(tsystemcpu)) or (cpu>high(tsystemcpu)) then
cpu:=tsystemcpu(FHeader.cpu); cpu:=tsystemcpu(FHeader.cpu);
{$R+} {$R+}
FAIntSize:=CpuAluBitSize[cpu]; FAIntSize:=CpuAluBitSize[cpu] div 8;
{$IFDEF VerbosePPUParser} {$IFDEF VerbosePPUParser}
DumpHeader(''); DumpHeader('');
@ -1580,7 +1582,7 @@ begin
inc(FEntryPos,TokenBufSize); inc(FEntryPos,TokenBufSize);
i:=0; i:=0;
while i<TokenBufSize do begin while i<TokenBufSize do begin
// The tokens depends on compiler version // The tokens depends on compiler Version
// ToDo: write tokens // ToDo: write tokens
inc(i); inc(i);
end; end;
@ -1893,7 +1895,7 @@ begin
if String(FHeader.id)<>PPU_ID then if String(FHeader.id)<>PPU_ID then
Error('This is not a PPU. Wrong ID.'); Error('This is not a PPU. Wrong ID.');
// read version // read Version
FVersion:=StrToIntDef(String(FHeader.ver),0); FVersion:=StrToIntDef(String(FHeader.ver),0);
if FVersion<16 then if FVersion<16 then
Error('Old PPU versions (<16) are not supported.'); Error('Old PPU versions (<16) are not supported.');
@ -2268,6 +2270,7 @@ var
SymbolName: ShortString; SymbolName: ShortString;
SymbolOrdNr: LongInt; SymbolOrdNr: LongInt;
SymbolIsVar: Boolean; SymbolIsVar: Boolean;
SymMangledName: String;
{$ENDIF} {$ENDIF}
begin begin
while not EndOfEntry do begin while not EndOfEntry do begin
@ -2279,10 +2282,14 @@ begin
for i:=0 to SymbolCount-1 do for i:=0 to SymbolCount-1 do
begin begin
{$IFDEF VerbosePPUParser}SymbolName:={$ENDIF}ReadEntryShortstring; {$IFDEF VerbosePPUParser}SymbolName:={$ENDIF}ReadEntryShortstring;
if Version>130 then
{$IFDEF VerbosePPUParser}SymMangledName:={$ENDIF}ReadEntryShortstring
else
{$IFDEF VerbosePPUParser}SymMangledName:={$ENDIF}SymbolName;
{$IFDEF VerbosePPUParser}SymbolOrdNr:={$ENDIF}ReadEntryLongint; {$IFDEF VerbosePPUParser}SymbolOrdNr:={$ENDIF}ReadEntryLongint;
{$IFDEF VerbosePPUParser}SymbolIsVar:=ReadEntryByte<>0{$ELSE}ReadEntryByte{$ENDIF}; {$IFDEF VerbosePPUParser}SymbolIsVar:=ReadEntryByte<>0{$ELSE}ReadEntryByte{$ENDIF};
{$IFDEF VerbosePPUParser} {$IFDEF VerbosePPUParser}
DebugLn(['TPPU.ReadImportSymbols ',SymbolName,' (OrdNr: ',SymbolOrdNr,' IsVar: ',SymbolIsVar,')']); DebugLn(['TPPU.ReadImportSymbols "',SymbolName,'" Mangled="',SymMangledName,'" (OrdNr: ',SymbolOrdNr,' IsVar: ',SymbolIsVar,')']);
{$ENDIF} {$ENDIF}
end; end;
end; end;
@ -2458,6 +2465,7 @@ begin
DebugLn([Prefix,' Number of Definitions=',FHeader.deflistsize]); DebugLn([Prefix,' Number of Definitions=',FHeader.deflistsize]);
DebugLn([Prefix,' Number of Symbols=',FHeader.symlistsize]); DebugLn([Prefix,' Number of Symbols=',FHeader.symlistsize]);
DebugLn([Prefix,' Indirect Checksum=',HexStr(cardinal(FHeader.indirect_checksum),8)]); DebugLn([Prefix,' Indirect Checksum=',HexStr(cardinal(FHeader.indirect_checksum),8)]);
DebugLn([Prefix,' sizeof(aint)=',FAIntSize]);
end; end;
procedure TPPU.GetMainUsesSectionNames(var List: TStrings); procedure TPPU.GetMainUsesSectionNames(var List: TStrings);