fix the duplicate output

tsh-hashimoto · tsh-hashimoto · commit 57637a0dbc3f · 2025-11-20T07:33:34.000Z
diff --git a/cobj/codegen.c b/cobj/codegen.c
@@ -5070,6 +5070,9 @@ static void joutput_init_method(struct cb_program *prog) {
         joutput_prefix();
         joutput("%s = new CobolDataStorage(%d);", base_name,
                 blp->f->memory_size);
+        free(base_name);
+        joutput("\t/* %s */\n", blp->f->name);
+        continue;
       }
 
       if (blp->f->flag_external) {

Original file line number	Diff line number	Diff line change
`@@ -5070,6 +5070,9 @@ static void joutput_init_method(struct cb_program *prog) {`
`5070`	`5070`	`joutput_prefix();`
`5071`	`5071`	`joutput("%s = new CobolDataStorage(%d);", base_name,`
`5072`	`5072`	`blp->f->memory_size);`
	`5073`	`+ free(base_name);`
	`5074`	`+ joutput("\t/* %s */\n", blp->f->name);`
	`5075`	`+ continue;`
`5073`	`5076`	`}`
`5074`	`5077`
`5075`	`5078`	`if (blp->f->flag_external) {`