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

+ allocate stack and set the initial value for the stack pointer in the wasm internal exe writer

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-01 22:32:48 +02:00
parent eaf9a9f1b9
commit baa81d5275
1 changed files with 24 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/ogwasm.pas
View File

@ -257,10 +257,12 @@ interface
end;
FWasmSections: array [TWasmSectionID] of tdynamicarray;
FStackPointerSym: TWasmObjSymbol;
procedure WriteWasmSection(wsid: TWasmSectionID);
procedure PrepareImports;
procedure PrepareFunctions;
function AddOrGetIndirectFunctionTableIndex(FuncIdx: Integer): integer;
procedure SetStackPointer;
protected
function writeData:boolean;override;
procedure DoRelocationFixup(objsec:TObjSection);override;
@ -284,6 +286,9 @@ implementation
uses
cutils,verbose,version,globals,ogmap;
const
StackPointerSymStr='__stack_pointer';
procedure WriteUleb5(d: tdynamicarray; v: uint64);
var
b: byte;
@ -4482,6 +4487,8 @@ implementation
begin
result:=false;
SetStackPointer;
FFuncTypes.WriteTo(FWasmSections[wsiType]);
WriteImportSection;
WriteCodeSegments;
@ -4681,22 +4688,18 @@ implementation
end;
procedure TWasmExeOutput.Load_Symbol(const aname: string);
const
StackPointerSymStr='__stack_pointer';
var
objsym: TWasmObjSymbol;
begin
if aname=StackPointerSymStr then
begin
internalObjData.createsection('*'+aname,1,[oso_Data,oso_load]);
objsym:=TWasmObjSymbol(internalObjData.SymbolDefine(aname,AB_GLOBAL,AT_WASM_GLOBAL));
objsym.size:=1;
objsym.ObjSection.WriteZeros(1);
TWasmObjSection(objsym.ObjSection).MainFuncSymbol:=objsym;
objsym.LinkingData.GlobalType:=wbt_i32;
objsym.LinkingData.GlobalIsMutable:=True;
objsym.LinkingData.GlobalInitializer.typ:=wbt_i32;
objsym.LinkingData.GlobalInitializer.init_i32:=0;
FStackPointerSym:=TWasmObjSymbol(internalObjData.SymbolDefine(aname,AB_GLOBAL,AT_WASM_GLOBAL));
FStackPointerSym.size:=1;
FStackPointerSym.ObjSection.WriteZeros(1);
TWasmObjSection(FStackPointerSym.ObjSection).MainFuncSymbol:=FStackPointerSym;
FStackPointerSym.LinkingData.GlobalType:=wbt_i32;
FStackPointerSym.LinkingData.GlobalIsMutable:=True;
FStackPointerSym.LinkingData.GlobalInitializer.typ:=wbt_i32;
FStackPointerSym.LinkingData.GlobalInitializer.init_i32:=0;
end
else
inherited;
@ -4816,6 +4819,15 @@ implementation
FIndirectFunctionTable[Result].FuncIdx:=FuncIdx;
end;
procedure TWasmExeOutput.SetStackPointer;
var
BssSec: TExeSection;
StackStart: QWord;
begin
BssSec:=FindExeSection('.bss');
FStackPointerSym.LinkingData.GlobalInitializer.init_i32:=Int32((BssSec.MemPos+BssSec.Size+stacksize+15) and (not 15));
end;
{****************************************************************************
TWasmAssembler