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

+ dummy implementation of the code generator for the try..except node for WebAssembly

Browse Source 
git-svn-id: branches/wasm@48216 -
This commit is contained in:
nickysn 2021-01-19 19:28:27 +00:00
parent f99e74866d
commit 7a15157387
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/wasm32/nwasmflw.pas
View File

@ -49,6 +49,13 @@ interface
procedure pass_generate_code;override;
end;
{ twasmtryexceptnode }
twasmtryexceptnode = class(tcgtryexceptnode)
public
procedure pass_generate_code;override;
end;
{ twasmtryfinallynode }
twasmtryfinallynode = class(tcgtryfinallynode)
@ -196,6 +203,23 @@ implementation
flowcontrol := oldflowcontrol + (flowcontrol - [fc_inflowcontrol]);
end;
{*****************************************************************************
twasmtryexceptnode
*****************************************************************************}
procedure twasmtryexceptnode.pass_generate_code;
begin
location_reset(location,LOC_VOID,OS_NO);
current_asmdata.CurrAsmList.concat(tai_comment.Create(strpnew('TODO: try..except, try')));
secondpass(left);
//if codegenerror then
// goto errorexit;
current_asmdata.CurrAsmList.concat(tai_comment.Create(strpnew('TODO: try..except, end')));
end;
{*****************************************************************************
twasmtryfinallynode
*****************************************************************************}
@ -234,5 +258,6 @@ implementation
initialization
cifnode:=twasmifnode;
cwhilerepeatnode:=twasmwhilerepeatnode;
ctryexceptnode:=twasmtryexceptnode;
ctryfinallynode:=twasmtryfinallynode;
end.