mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:06:14 +02:00
+ override the case node for WASM. The actual code generation isn't implemented yet.
git-svn-id: branches/wasm@48172 -
This commit is contained in:
parent
a69f7094dd
commit
039e2f20b7
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -991,6 +991,7 @@ compiler/wasm32/nwasmcnv.pas svneol=native#text/plain
|
|||||||
compiler/wasm32/nwasmcon.pas svneol=native#text/plain
|
compiler/wasm32/nwasmcon.pas svneol=native#text/plain
|
||||||
compiler/wasm32/nwasmflw.pas svneol=native#text/plain
|
compiler/wasm32/nwasmflw.pas svneol=native#text/plain
|
||||||
compiler/wasm32/nwasmmat.pas svneol=native#text/plain
|
compiler/wasm32/nwasmmat.pas svneol=native#text/plain
|
||||||
|
compiler/wasm32/nwasmset.pas svneol=native#text/plain
|
||||||
compiler/wasm32/rgcpu.pas svneol=native#text/plain
|
compiler/wasm32/rgcpu.pas svneol=native#text/plain
|
||||||
compiler/wasm32/rwasmcon.inc svneol=native#text/plain
|
compiler/wasm32/rwasmcon.inc svneol=native#text/plain
|
||||||
compiler/wasm32/rwasmnor.inc svneol=native#text/plain
|
compiler/wasm32/rwasmnor.inc svneol=native#text/plain
|
||||||
|
@ -33,7 +33,7 @@ implementation
|
|||||||
ncgbas,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,ncgset,
|
ncgbas,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,ncgset,
|
||||||
ncgadd, ncgcal,ncgmat,ncginl,
|
ncgadd, ncgcal,ncgmat,ncginl,
|
||||||
|
|
||||||
nwasmadd,nwasmcal,nwasmmat,nwasmflw,nwasmcon,nwasmcnv,
|
nwasmadd,nwasmcal,nwasmmat,nwasmflw,nwasmcon,nwasmcnv,nwasmset,
|
||||||
(* todo: WASM
|
(* todo: WASM
|
||||||
njvmcnv,njvmcon,njvminl,njvmmem,njvmld,
|
njvmcnv,njvmcon,njvminl,njvmmem,njvmld,
|
||||||
njvmset,njvmvmt
|
njvmset,njvmvmt
|
||||||
|
46
compiler/wasm32/nwasmset.pas
Normal file
46
compiler/wasm32/nwasmset.pas
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
{
|
||||||
|
Copyright (c) 1998-2002, 2021 by Florian Klaempfl and Nikolay Nikolov
|
||||||
|
|
||||||
|
Generate WebAssembly code for in/case nodes
|
||||||
|
|
||||||
|
This program is free software; you can redistribute it and/or modify
|
||||||
|
it under the terms of the GNU General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or
|
||||||
|
(at your option) any later version.
|
||||||
|
|
||||||
|
This program is distributed in the hope that it will be useful,
|
||||||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||||
|
GNU General Public License for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU General Public License
|
||||||
|
along with this program; if not, write to the Free Software
|
||||||
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
|
||||||
|
****************************************************************************
|
||||||
|
}
|
||||||
|
unit nwasmset;
|
||||||
|
|
||||||
|
{$i fpcdefs.inc}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
nset,ncgset;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ twasmcasenode }
|
||||||
|
|
||||||
|
twasmcasenode = class(tcgcasenode)
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
TWASMCASENODE
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
begin
|
||||||
|
ccasenode:=twasmcasenode;
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user