Fix five test cases in tests/run.src/extensions.at (#269)

Author: yutaro-sakamoto

cobj/codegen.c

@@ -2946,6 +2946,8 @@ static void joutput_call(struct cb_call *p) {
     if (CB_LITERAL_P(p->name)) {
       callp = cb_encode_program_id((char *)(CB_LITERAL(p->name)->data));
       lookup_call(callp);
+      joutput_line("if (call_%s == null) {", callp);
+      joutput_indent_level += 2;
       if (cb_java_package_name) {
         joutput_line("call_%s = CobolResolve.resolve(\"%s\", \"%s\", call_%s);",
                      callp, cb_java_package_name,
@@ -2954,6 +2956,8 @@ static void joutput_call(struct cb_call *p) {
         joutput_line("call_%s = CobolResolve.resolve(null, \"%s\", call_%s);",
                      callp, (char *)(CB_LITERAL(p->name)->data), callp);
       }
+      joutput_indent_level -= 2;
+      joutput_line("}");
     } else {
       callp = NULL;
       joutput_prefix();
@@ -3150,9 +3154,7 @@ static void joutput_call(struct cb_call *p) {
   if (!system_call) {
     if (cb_sticky_linkage || cb_flag_null_param) {
       for (n = 0; n < 4; n++) {
-        if (n != 0 || parmnum != 0) {
-          joutput(", ");
-        }
+        joutput(", ");
         joutput("null");
       }
     }
@@ -4741,7 +4743,7 @@ static void joutput_internal_function(struct cb_program *prog,
   /* Entry dispatch */
   joutput_line("/* Entry dispatch */");
   if (cb_list_length(prog->entry_list) > 1) {
-    joutput_line("multiple entry dispatch is not implemented");
+    joutput_line("//multiple entry dispatch is not implemented");
     joutput_newline();
     joutput_line("switch (entry)");
     joutput_line("  {");

cobj/typeck.c

@@ -714,7 +714,7 @@ cb_tree cb_build_identifier(cb_tree x) {
       if (p->flag_item_based ||
           (f->storage == CB_STORAGE_LINKAGE && !p->flag_is_pdiv_parm)) {
         current_statement->null_check = cb_build_funcall_2(
-            "cob_check_based",
+            "CobolUtil.cobCheckBased",
             cb_build_address(cb_build_field_reference(p, NULL)),
             cb_build_string0((ucharptr)name));
       }

libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/common/CobolUtil.java

@@ -156,6 +156,13 @@ public static void cobCheckRefMod(int offset, long length, int size, String name
     }
   }
 
+  public static void cobCheckBased(CobolDataStorage x, byte[] name) throws CobolStopRunException {
+    if (x == null) {
+      CobolUtil.runtimeError(String.format("BASED/LINKAGE item '%s' has NULL address", name));
+      CobolStopRunException.stopRunAndThrow(1);
+    }
+  }
+
   /** libcob/common.cのcob_initの実装 TODO 未完成 */
   public static void cob_init(String[] argv, boolean cobInitialized) {
     if (!cobInitialized) {

tests/run.src/extensions.at

@@ -1151,7 +1151,6 @@ AT_CHECK([java prog CHECKPAR], [0],
 AT_CLEANUP
 
 AT_SETUP([DECIMAL-POINT is COMMA (1)])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -1178,7 +1177,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([DECIMAL-POINT is COMMA (2)])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -1205,7 +1203,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([DECIMAL-POINT is COMMA (3)])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -1232,7 +1229,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([DECIMAL-POINT is COMMA (4)])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -1259,7 +1255,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([DECIMAL-POINT is COMMA (5)])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.