paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 11:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fully implemented reading the code section

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-28 13:25:44 +02:00
parent 3d5a100f79
commit 87a3bfe99d
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/ogwasm.pas
View File

@ -2205,6 +2205,11 @@ implementation
end; end;
GlobalTypeImportsCount: uint32; GlobalTypeImportsCount: uint32;
CodeSegments: array of record
CodeSize: uint32;
DataPos: LongInt;
end;
DataSegments: array of record DataSegments: array of record
Active: Boolean; Active: Boolean;
MemIdx: uint32; MemIdx: uint32;
@ -3086,10 +3091,29 @@ implementation
InputError('Error reading the code entries cound from the code section'); InputError('Error reading the code entries cound from the code section');
exit; exit;
end; end;
SetLength(CodeSegments,CodeEntriesCount);
for i:=0 to CodeEntriesCount-1 do for i:=0 to CodeEntriesCount-1 do
with CodeSegments[i] do
begin
if not ReadUleb32(CodeSize) then
begin
InputError('Error reading the code size of an entry in the code section');
exit;
end;
if (AReader.Pos+CodeSize)>(SectionStart+SectionSize) then
begin
InputError('Code segment exceeds the bounds of the code section');
exit;
end;
DataPos:=AReader.Pos;
AReader.Seek(AReader.Pos+CodeSize);
end;
if AReader.Pos<>(SectionStart+SectionSize) then
begin begin
{TODO} InputError('Unexpected code section size');
exit;
end; end;
Result:=true;
end; end;
function ReadDataSection: Boolean; function ReadDataSection: Boolean;
@ -3301,7 +3325,11 @@ implementation
Byte(wsiExport): Byte(wsiExport):
Result := ReadExportSection; Result := ReadExportSection;
Byte(wsiCode): Byte(wsiCode):
Result := ReadCodeSection; if not ReadCodeSection then
begin
InputError('Error reading the code section');
exit;
end;
Byte(wsiData): Byte(wsiData):
if not ReadDataSection then if not ReadDataSection then
begin begin
@ -3338,6 +3366,7 @@ implementation
InputFileName:=AReader.FileName; InputFileName:=AReader.FileName;
objdata:=CObjData.Create(InputFileName); objdata:=CObjData.Create(InputFileName);
result:=false; result:=false;
CodeSegments:=nil;
DataSegments:=nil; DataSegments:=nil;
SymbolTable:=nil; SymbolTable:=nil;
FuncTypes:=nil; FuncTypes:=nil;