Fix Java code generation for CALL BY VALUE arguments (#809)

* fix: Java code generation for  arguments

* test: add tests for  argument code generation

* test: add test

* fix: apply Claude review

* fix: generate correctly sized CobolDataStorage for CALL BY VALUE SIZE 1/2

Author: tsh-hashimoto

cobj/codegen.c

@@ -3124,7 +3124,7 @@ static void joutput_call(struct cb_call *p) {
             joutput("CobolDataStorage.primitiveToDataStorage(%d)",
                     cb_get_int(x));
           } else {
-            joutput("CobolDataStroage.primitiveToDataStorage(%d)",
+            joutput("CobolDataStorage.primitiveToDataStorage(%d)",
                     CB_LITERAL(x)->data[0]);
           }
           break;
@@ -3146,11 +3146,6 @@ static void joutput_call(struct cb_call *p) {
           case CB_USAGE_DISPLAY:
             sizes = CB_SIZES_INT(l);
             if (sizes == CB_SIZE_AUTO) {
-              if (f->pic->have_sign) {
-                joutput("(unsigned ");
-              } else {
-                joutput("(");
-              }
               if (f->usage == CB_USAGE_PACKED || f->usage == CB_USAGE_DISPLAY) {
                 sizes = f->pic->digits - f->pic->scale;
               } else {
@@ -3185,33 +3180,34 @@ static void joutput_call(struct cb_call *p) {
                 sizes = CB_SIZE_8;
                 break;
               }
-            } else {
-              if (CB_SIZES_INT_UNSIGNED(l)) {
-                joutput("(unsigned ");
-              } else {
-                joutput("(");
-              }
             }
             switch (sizes) {
             case CB_SIZE_1:
-              joutput("char");
+              joutput("CobolDataStorage.primitiveToDataStorage((byte)(");
+              joutput_integer(x);
+              joutput("))");
               break;
             case CB_SIZE_2:
-              joutput("short");
+              joutput("CobolDataStorage.primitiveToDataStorage((short)(");
+              joutput_integer(x);
+              joutput("))");
               break;
             case CB_SIZE_4:
-              joutput("int");
+              joutput("CobolDataStorage.primitiveToDataStorage((int)(");
+              joutput_integer(x);
+              joutput("))");
               break;
             case CB_SIZE_8:
-              joutput("long long");
+              joutput("CobolDataStorage.primitiveToDataStorage((long)(");
+              joutput_integer(x);
+              joutput("))");
               break;
             default:
-              joutput("int");
+              joutput("CobolDataStorage.primitiveToDataStorage((int)(");
+              joutput_integer(x);
+              joutput("))");
               break;
             }
-            joutput(")(");
-            joutput_integer(x);
-            joutput(")");
             break;
           case CB_USAGE_INDEX:
           case CB_USAGE_LENGTH:
@@ -3224,6 +3220,9 @@ static void joutput_call(struct cb_call *p) {
             joutput(")");
             break;
           default:
+            /* FIXME: COMP-1 / COMP-2を使うとここを通ることがある
+             * COMP-1 / COMP-2を実装するときにここも見直す必要がある
+             */
             joutput("*(");
             joutput_data(x);
             joutput(")");

libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/data/CobolDataStorage.java

@@ -149,6 +149,31 @@ public void addIndex(int n) {
         this.index += n;
     }
 
+    /**
+     * TODO: 準備中
+     *
+     * @param n TODO: 準備中
+     * @return TODO: 準備中
+     */
+    public static CobolDataStorage primitiveToDataStorage(byte n) {
+        byte[] bytes = new byte[1];
+        bytes[0] = n;
+        return new CobolDataStorage(bytes);
+    }
+
+    /**
+     * TODO: 準備中
+     *
+     * @param n TODO: 準備中
+     * @return TODO: 準備中
+     */
+    public static CobolDataStorage primitiveToDataStorage(short n) {
+        byte[] bytes = new byte[2];
+        ByteBuffer buffer = ByteBuffer.wrap(bytes);
+        buffer.putShort(n);
+        return new CobolDataStorage(bytes);
+    }
+
     /**
      * TODO: 準備中
      *