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

* override tcgraisenode.pass_1 so that the JVM raise support will keep

Browse Source 
working after r24288 is merged to trunk

git-svn-id: trunk@24301 -
This commit is contained in:
Jonas Maebe 2013-04-22 14:47:06 +00:00
parent c4b62f86a1
commit abc79bc4cf
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/jvm/njvmflw.pas
View File

@ -35,6 +35,7 @@ interface
tjvmraisenode = class(traisenode) tjvmraisenode = class(traisenode)
function pass_typecheck: tnode; override; function pass_typecheck: tnode; override;
function pass_1: tnode; override;
procedure pass_generate_code;override; procedure pass_generate_code;override;
end; end;
@ -55,7 +56,7 @@ implementation
uses uses
verbose,globals,systems,globtype,constexp, verbose,globals,systems,globtype,constexp,
symconst,symdef,symsym,aasmtai,aasmdata,aasmcpu,defutil,jvmdef, symconst,symdef,symsym,aasmtai,aasmdata,aasmcpu,defutil,jvmdef,
procinfo,cgbase,pass_2,parabase, procinfo,cgbase,pass_1,pass_2,parabase,
cpubase,cpuinfo, cpubase,cpuinfo,
nbas,nld,ncon,ncnv, nbas,nld,ncon,ncnv,
tgobj,paramgr, tgobj,paramgr,
@ -134,6 +135,15 @@ implementation
end; end;
function tjvmraisenode.pass_1: tnode;
begin
result:=nil;
expectloc:=LOC_VOID;
if assigned(left) then
firstpass(left);
end;
procedure tjvmraisenode.pass_generate_code; procedure tjvmraisenode.pass_generate_code;
begin begin
if assigned(left) then if assigned(left) then