Fix the duplicate output (#750)

tsh-hashimoto · web-flow · commit 23d5559d24e3 · 2025-11-25T11:35:30.000+09:00
* fix the duplicate output

* remove redundant lines
diff --git a/cobj/codegen.c b/cobj/codegen.c
@@ -5068,9 +5068,6 @@ static void joutput_init_method(struct cb_program *prog) {
         prevprog = blp->curr_prog;
         joutput_prefix();
         joutput("/* PROGRAM-ID : %s */\n", prevprog);
-        joutput_prefix();
-        joutput("%s = new CobolDataStorage(%d);", base_name,
-                blp->f->memory_size);
       }
 
       if (blp->f->flag_external) {

Original file line number	Diff line number	Diff line change
`@@ -5068,9 +5068,6 @@ static void joutput_init_method(struct cb_program *prog) {`
`5068`	`5068`	`prevprog = blp->curr_prog;`
`5069`	`5069`	`joutput_prefix();`
`5070`	`5070`	`joutput("/* PROGRAM-ID : %s */\n", prevprog);`
`5071`		`- joutput_prefix();`
`5072`		`- joutput("%s = new CobolDataStorage(%d);", base_name,`
`5073`		`- blp->f->memory_size);`
`5074`	`5071`	`}`
`5075`	`5072`
`5076`	`5073`	`if (blp->f->flag_external) {`