k_john_gough_cp 12 年之前
父節點
當前提交
0050d0ea4c
共有 2 個文件被更改,包括 13 次插入13 次删除
  1. 12 12
      gpcp/JavaMaker.cp
  2. 1 1
      gpcp/JavaUtil.cp

+ 12 - 12
gpcp/JavaMaker.cp

@@ -2381,22 +2381,22 @@ MODULE JavaMaker;
 		  idnt : Sy.Idnt;
     BEGIN
       WITH expr : Xp.IdLeaf DO (* qualid *)
-	    idnt := expr.ident;
-	    WITH idnt : Id.PrcId DO
+        idnt := expr.ident;
+        WITH idnt : Id.PrcId DO
             (* prcI := expr.ident(Id.PrcId); *)
             IF pTyp.xName = NIL THEN Ju.MkCallAttr(idnt, pTyp) END;
-		| idnt : Id.AbVar DO
-		    mthI := Ju.getProcVarInvoke(pTyp);
-		    IF mthI.type.xName = NIL THEN Ju.MkCallAttr(mthI, mthI.type(Ty.Procedure)) END;
-		END;
+	| idnt : Id.AbVar DO
+            mthI := Ju.getProcVarInvoke(pTyp);
+	    IF mthI.type.xName = NIL THEN Ju.MkCallAttr(mthI, mthI.type(Ty.Procedure)) END;
+	END;
       | expr : Xp.IdentX DO (* selct *)
-	    idnt := expr.ident;
-		WITH idnt : Id.MthId DO
+        idnt := expr.ident;
+        WITH idnt : Id.MthId DO
             IF pTyp.xName = NIL THEN Ju.MkCallAttr(idnt, pTyp) END;
-		| idnt : Id.FldId DO
-		    mthI := Ju.getProcVarInvoke(pTyp);
-			IF mthI.type.xName = NIL THEN Ju.MkCallAttr(mthI, mthI.type(Ty.Procedure)) END;
-		END;
+        | idnt : Id.FldId DO
+            mthI := Ju.getProcVarInvoke(pTyp);
+            IF mthI.type.xName = NIL THEN Ju.MkCallAttr(mthI, mthI.type(Ty.Procedure)) END;
+        END;
       END;
     END CheckCall;
  (* ---------------------------------------------------- *)

+ 1 - 1
gpcp/JavaUtil.cp

@@ -997,7 +997,7 @@ MODULE JavaUtil;
       | typ : Ty.Opaque DO
 	  IF typ.xName = NIL THEN MkAliasName(typ) END;
 	  L.AppendCharOpen(lst, typ.scopeNm);
-	  | typ : Ty.Procedure DO
+      | typ : Ty.Procedure DO
 	  IF typ.xName = NIL THEN MkProcTypeName(typ) END;
 	  L.AppendCharOpen(lst, typ.hostClass.scopeNm);
       END;