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

* don't override inittempvariables for WebAssembly, because things like

Browse Source 
ansistrings actually need to be initialized to zero on proc entry

git-svn-id: branches/wasm@48338 -
This commit is contained in:
nickysn 2021-01-23 04:42:52 +00:00
parent f891c52dd1
commit b35d3c5f3a
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/wasm32/hlcgcpu.pas
View File

@ -213,8 +213,6 @@ uses
protected protected
procedure gen_load_uninitialized_function_result(list: TAsmList; pd: tprocdef; resdef: tdef; const resloc: tcgpara); override; procedure gen_load_uninitialized_function_result(list: TAsmList; pd: tprocdef; resdef: tdef; const resloc: tcgpara); override;
procedure inittempvariables(list:TAsmList);override;
function g_call_system_proc_intern(list: TAsmList; pd: tprocdef; const paras: array of pcgpara; forceresdef: tdef): tcgpara; override; function g_call_system_proc_intern(list: TAsmList; pd: tprocdef; const paras: array of pcgpara; forceresdef: tdef): tcgpara; override;
public public
@ -939,12 +937,6 @@ implementation
end; end;
procedure thlcgwasm.inittempvariables(list: TAsmList);
begin
{ these are automatically initialised when allocated if necessary }
end;
function thlcgwasm.g_call_system_proc_intern(list: TAsmList; pd: tprocdef; const paras: array of pcgpara; forceresdef: tdef): tcgpara; function thlcgwasm.g_call_system_proc_intern(list: TAsmList; pd: tprocdef; const paras: array of pcgpara; forceresdef: tdef): tcgpara;
begin begin
result:=inherited; result:=inherited;