|
@@ -30,6 +30,13 @@ interface
|
|
|
|
|
|
type
|
|
type
|
|
|
|
|
|
|
|
+ { twasminnode }
|
|
|
|
+
|
|
|
|
+ twasminnode = class(tcginnode)
|
|
|
|
+ protected
|
|
|
|
+ function checkgenjumps(out setparts: Tsetparts; out numparts: byte; out use_small: boolean): boolean;override;
|
|
|
|
+ end;
|
|
|
|
+
|
|
{ twasmcasenode }
|
|
{ twasmcasenode }
|
|
|
|
|
|
twasmcasenode = class(tcgcasenode)
|
|
twasmcasenode = class(tcgcasenode)
|
|
@@ -58,6 +65,15 @@ implementation
|
|
symtype,
|
|
symtype,
|
|
pass_2,defutil,verbose,constexp;
|
|
pass_2,defutil,verbose,constexp;
|
|
|
|
|
|
|
|
+{*****************************************************************************
|
|
|
|
+ TWASMINNODE
|
|
|
|
+*****************************************************************************}
|
|
|
|
+
|
|
|
|
+ function twasminnode.checkgenjumps(out setparts: Tsetparts; out numparts: byte; out use_small: boolean): boolean;
|
|
|
|
+ begin
|
|
|
|
+ result:=false;
|
|
|
|
+ end;
|
|
|
|
+
|
|
{*****************************************************************************
|
|
{*****************************************************************************
|
|
TWASMCASENODE
|
|
TWASMCASENODE
|
|
*****************************************************************************}
|
|
*****************************************************************************}
|
|
@@ -481,5 +497,6 @@ implementation
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
begin
|
|
|
|
+ cinnode:=twasminnode;
|
|
ccasenode:=twasmcasenode;
|
|
ccasenode:=twasmcasenode;
|
|
end.
|
|
end.
|