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

[PATCH 16/83] update the use of name reference in generated wasm

Browse Source 
From 46e8e3f0e1f62b26d2091f6e44b5112209c9d266 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Wed, 4 Sep 2019 14:55:41 -0400

git-svn-id: branches/wasm@45893 -
This commit is contained in:
nickysn 2020-07-29 16:43:13 +00:00
parent 5e60217a88
commit d496755ffb
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/wasm/agwat.pas
View File

@ -113,6 +113,13 @@ implementation
fixline:=Copy(s,j,i-j+1); fixline:=Copy(s,j,i-j+1);
end; end;
function GetWasmName(const st: TSymStr): ansistring;
begin
Result := '$'+st;
Replace(Result, '(','');
Replace(Result, ')','');
end;
function getreferencestring(var ref : treference) : ansistring; function getreferencestring(var ref : treference) : ansistring;
begin begin
if (ref.arrayreftype<>art_none) or if (ref.arrayreftype<>art_none) or
@ -126,7 +133,7 @@ implementation
// been placed on the stack by the previous one. // been placed on the stack by the previous one.
if (ref.offset<>0) then if (ref.offset<>0) then
internalerror(2010122811); internalerror(2010122811);
result:=ref.symbol.name; result:=GetWasmName(ref.symbol.name);
end end
else else
begin begin
@ -241,8 +248,7 @@ implementation
end; end;
writer.AsmWrite('(func '); writer.AsmWrite('(func ');
writer.AsmWrite('$'); writer.AsmWrite( GetWasmName( pd.procsym.RealName ));
writer.AsmWrite(pd.procsym.RealName);
//writer.AsmWriteln(MethodDefinition(pd)); //writer.AsmWriteln(MethodDefinition(pd));
{if jvmtypeneedssignature(pd) then {if jvmtypeneedssignature(pd) then
begin begin