Fix CobolUtil.checkRefMod method (#267)

Author: yutaro-sakamoto

CHANGELOG.md

@@ -16,7 +16,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
   * `C$LIST-DIRECTORY` (#264)
 ### Fixed
 * Fix the message of COB_VERBOSE file sort (#260)
-* Fix the process that checks moving x to numeric (#266)
+* Fix the process that checks MOVE statements (#266, #267)
 ### Optimized
 * Optimize the file reading process (#257)
 

cobj/typeck.c

@@ -858,10 +858,11 @@ cb_tree cb_build_identifier(cb_tree x) {
               r->length ? cb_build_cast_integer(r->length) : cb_int2,
               cb_int(f->size), cb_build_string0((ucharptr)f->name));
         } else {
-          e1 = cb_build_funcall_4(
+          e1 = cb_build_funcall_5(
               "CobolUtil.cobCheckRefMod", cb_build_cast_integer(r->offset),
               r->length ? cb_build_cast_integer(r->length) : cb_int1,
-              cb_int(f->size), cb_build_string0((ucharptr)f->name));
+              cb_int(f->size), cb_build_string0((ucharptr)f->name),
+              cb_int(strlen((ucharptr)f->name)));
         }
         r->check = cb_list_add(r->check, e1);
       }

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

@@ -114,6 +114,17 @@ public static void cobCheckRefModNational(int offset, long length, int size, Str
     CobolUtil.cobCheckRefMod(offset, length, size, name);
   }
 
+  public static void cobCheckRefMod(
+      int offset, long length, int size, CobolDataStorage name, int nameLen)
+      throws CobolStopRunException {
+    cobCheckRefMod(offset, length, size, name.getByteArrayRef(0, nameLen));
+  }
+
+  public static void cobCheckRefMod(int offset, long length, int size, byte[] name, int nameLen)
+      throws CobolStopRunException {
+    cobCheckRefMod(offset, length, size, name);
+  }
+
   public static void cobCheckRefMod(int offset, long length, int size, byte[] name)
       throws CobolStopRunException {
     try {
@@ -123,6 +134,11 @@ public static void cobCheckRefMod(int offset, long length, int size, byte[] name
     }
   }
 
+  public static void cobCheckRefMod(int offset, long length, int size, String name, int nameLen)
+      throws CobolStopRunException {
+    cobCheckRefMod(offset, length, size, name);
+  }
+
   public static void cobCheckRefMod(int offset, long length, int size, String name)
       throws CobolStopRunException {
     /* check the offset */

tests/run.src/ref-mod.at

@@ -262,7 +262,6 @@ AT_CLEANUP
 
 
 AT_SETUP([Offset out of bounds in MOVE (2)])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.