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

* set the size of AT_WASM_GLOBAL symbols to 1

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-01 18:10:20 +02:00
parent ef796906e9
commit cd93050d7e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogwasm.pas
View File

@ -3940,7 +3940,7 @@ implementation
objsym.typ:=AT_WASM_GLOBAL;
objsym.objsection:=nil;
objsym.offset:=0;
objsym.size:=0;
objsym.size:=1;
objsym.LinkingData.ImportModule:=GlobalTypes[SymIndex].ImportModName;
objsym.LinkingData.ImportName:=GlobalTypes[SymIndex].ImportName;
end
@ -3954,7 +3954,7 @@ implementation
objsym.typ:=AT_WASM_GLOBAL;
objsym.objsection:=nil;
objsym.offset:=0;
objsym.size:=0;
objsym.size:=1;
end;
end
else
@ -3969,7 +3969,7 @@ implementation
objsym.typ:=AT_WASM_GLOBAL;
objsym.objsection:=ObjData.findsection('.wasm_globals');
objsym.offset:=0;
objsym.size:=0;
objsym.size:=1;
end;
end;
byte(SYMTAB_SECTION),
@ -4487,11 +4487,14 @@ implementation
procedure TWasmExeOutput.Load_Symbol(const aname: string);
const
StackPointerSymStr='__stack_pointer';
var
objsym: TObjSymbol;
begin
if aname=StackPointerSymStr then
begin
internalObjData.createsection('*'+aname,0,[]);
internalObjData.SymbolDefine(aname,AB_GLOBAL,AT_WASM_GLOBAL);
objsym:=internalObjData.SymbolDefine(aname,AB_GLOBAL,AT_WASM_GLOBAL);
objsym.size:=1;
end
else
inherited;