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

working after r24288 is merged to trunk

git-svn-id: trunk@24301 -

compiler/jvm/njvmflw.pas

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