X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=gpcp%2FJavaMaker.cp;h=0a9d699b20e52705a43078b050eb4e8cb4b242b2;hb=HEAD;hp=23abf98e296a7ba270dc394cc203a4ef27ec135a;hpb=62331d49cf25b79b4c97bf715a3ef23443b789f6;p=gpcp-linux.git

diff --git a/gpcp/JavaMaker.cp b/gpcp/JavaMaker.cp
index 23abf98..0a9d699 100644
--- a/gpcp/JavaMaker.cp
+++ b/gpcp/JavaMaker.cp
@@ -385,6 +385,7 @@ MODULE JavaMaker;
     VAR pType : Ty.Procedure; (* The procedure type that is being emitted *)
 	    proxy : Ty.Record;    (* The record that stands for the proc-type *)
 		invoke : Id.MthId;    (* The abstract invoke method for this      *)
+		junk : INTEGER;
   BEGIN
     pType := this.prcT;
 	proxy := pType.hostClass;
@@ -396,6 +397,11 @@ MODULE JavaMaker;
 	out.RecMakeInit(proxy, NIL);
 	out.CallSuperCtor(proxy, NIL);
 	out.VoidTail();
+	
+	out.CopyProcHead(proxy);
+	junk := out.newLocal();
+	junk := out.newLocal();
+	out.VoidTail();
 
    (* Emit the abstract Invoke method *)
     invoke := Ju.getProcVarInvoke(pType);