paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ wasm internal linker: internally define the '__stack_pointer' global symbol

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-01 17:36:52 +02:00
parent 880d0333b0
commit 408e388af3
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogwasm.pas
View File

@ -254,6 +254,7 @@ interface
procedure GenerateLibraryImports(ImportLibraryList:TFPHashObjectList);override; procedure GenerateLibraryImports(ImportLibraryList:TFPHashObjectList);override;
procedure AfterUnusedSectionRemoval;override; procedure AfterUnusedSectionRemoval;override;
procedure MemPos_ExeSection(const aname:string);override; procedure MemPos_ExeSection(const aname:string);override;
procedure Load_Start;override;
end; end;
{ TWasmAssembler } { TWasmAssembler }
@ -4467,6 +4468,15 @@ implementation
inherited MemPos_ExeSection(aname); inherited MemPos_ExeSection(aname);
end; end;
procedure TWasmExeOutput.Load_Start;
const
aname='__stack_pointer';
begin
inherited Load_Start;
internalObjData.createsection('*'+aname,0,[]);
internalObjData.SymbolDefine(aname,AB_GLOBAL,AT_WASM_GLOBAL);
end;
procedure TWasmExeOutput.PrepareImports; procedure TWasmExeOutput.PrepareImports;
function AddFunctionImport(const libname,symname:TCmdStr; functype: TWasmFuncType): Integer; function AddFunctionImport(const libname,symname:TCmdStr; functype: TWasmFuncType): Integer;