CALL呼び出しのキャッシュに関する不具合を修正した.

Author: ytr-sakamoto

libcobj/src/jp/osscons/opensourcecobol/libcobj/call/CobolResolve.java

@@ -191,18 +191,18 @@ static public CobolRunnable resolve(String name) throws CobolCallException {
 		String fullName;
 		CobolRunnable runnable = null;
 
-		/* search the cache */
-		if(callTable.containsKey(name)) {
-			return callTable.get(name);
-		}
-
 		/* encode program name */
 		char c1 = name.charAt(0);
 		if(c1 >= '0' && c1 <= '9') {
 			name = "_" + name;
 		}
 		name = name.replaceAll("-", "__");
 
+		/* search the cache */
+		if(callTable.containsKey(name)) {
+			return callTable.get(name);
+		}
+
 		if(name_convert == 1) {
 			name = name.toLowerCase();
 		}else if(name_convert == 2) {

tests/cobol85/report.pl

@@ -254,31 +254,31 @@
 #$skip{SQ303M}=1;
 #$skip{SQ401M}=1;
 
-$skip{IC101A}=1;
-$skip{IC103A}=1;
-$skip{IC106A}=1;
-$skip{IC108A}=1;
-$skip{IC112A}=1;
-$skip{IC114A}=1;
-$skip{IC116M}=1;
-$skip{IC201A}=1;
-$skip{IC203A}=1;
-$skip{IC207A}=1;
-$skip{IC209A}=1;
-$skip{IC213A}=1;
-$skip{IC216A}=1;
-$skip{IC222A}=1;
-$skip{IC223A}=1;
-$skip{IC224A}=1;
-$skip{IC225A}=1;
-$skip{IC226A}=1;
-$skip{IC227A}=1;
+#$skip{IC101A}=1;
+#$skip{IC103A}=1;
+#$skip{IC106A}=1;
+#$skip{IC108A}=1;
+#$skip{IC112A}=1;
+#$skip{IC114A}=1;
+#$skip{IC116M}=1;
+#$skip{IC201A}=1;
+#$skip{IC203A}=1;
+#$skip{IC207A}=1;
+#$skip{IC209A}=1;
+#$skip{IC213A}=1;
+#$skip{IC216A}=1;
+#$skip{IC222A}=1;
+#$skip{IC223A}=1;
+#$skip{IC224A}=1;
+#$skip{IC225A}=1;
+#$skip{IC226A}=1;
+#$skip{IC227A}=1;
 #$skip{IC228A}=1;
-$skip{IC233A}=1;
-$skip{IC234A}=1;
-$skip{IC235A}=1;
-$skip{IC237A}=1;
-$skip{IC401M}=1;
+#$skip{IC233A}=1;
+#$skip{IC234A}=1;
+#$skip{IC235A}=1;
+#$skip{IC237A}=1;
+#$skip{IC401M}=1;
 
 #$skip{ST101A}=1;
 #$skip{ST102A}=1;