Skip to content

Commit d974e14

Browse files
Fix a test in tests/run.src/miscellaneous.at (#278)
1 parent dd640a2 commit d974e14

File tree

2 files changed

+2
-8
lines changed

2 files changed

+2
-8
lines changed

cobj/codegen.c

Lines changed: 0 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2947,8 +2947,6 @@ static void joutput_call(struct cb_call *p) {
29472947
if (CB_LITERAL_P(p->name)) {
29482948
callp = cb_encode_program_id((char *)(CB_LITERAL(p->name)->data));
29492949
lookup_call(callp);
2950-
joutput_line("if (call_%s == null) {", callp);
2951-
joutput_indent_level += 2;
29522950
if (cb_java_package_name) {
29532951
joutput_line("call_%s = CobolResolve.resolve(\"%s\", \"%s\", call_%s);",
29542952
callp, cb_java_package_name,
@@ -2957,8 +2955,6 @@ static void joutput_call(struct cb_call *p) {
29572955
joutput_line("call_%s = CobolResolve.resolve(null, \"%s\", call_%s);",
29582956
callp, (char *)(CB_LITERAL(p->name)->data), callp);
29592957
}
2960-
joutput_indent_level -= 2;
2961-
joutput_line("}");
29622958
} else {
29632959
callp = NULL;
29642960
joutput_prefix();

tests/run.src/miscellaneous.at

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1799,7 +1799,6 @@ AT_CHECK([java prog], [0],
17991799
AT_CLEANUP
18001800

18011801
AT_SETUP([CALL with OMITTED parameter])
1802-
AT_CHECK([${SKIP_TEST}])
18031802

18041803
AT_DATA([callee.cob], [
18051804
IDENTIFICATION DIVISION.
@@ -1829,9 +1828,8 @@ AT_DATA([caller.cob], [
18291828
STOP RUN.
18301829
])
18311830

1832-
AT_CHECK([${COMPILE_MODULE} callee.cob])
1833-
AT_CHECK([${COMPILE} -o caller caller.cob])
1834-
AT_CHECK([./caller], [0],
1831+
AT_CHECK([${COMPILE} callee.cob caller.cob])
1832+
AT_CHECK([java caller], [0],
18351833
[OKOKOK
18361834
])
18371835

0 commit comments

Comments
 (0)