1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
|
--- a/libcob/call.c 2025-03-22 16:23:49.936261921 +0100
+++ b/libcob/call.c 2025-03-22 16:35:37.333507344 +0100
@@ -181,7 +181,7 @@
#undef COB_SYSTEM_GEN
#define COB_SYSTEM_GEN(cob_name, pmin, pmax, c_name) \
- { cob_name, 0, {(void *(*)(void *))c_name} },
+ { cob_name, 0, {(void *(*)(void))c_name} },
static struct system_table system_tab[] = {
#include "system.def"
@@ -454,7 +454,7 @@
#pragma warning(suppress: 4113) /* funcint is a generic function prototype */
cancel_func = p->module->module_cancel.funcint;
#else
- cancel_func = p->module->module_cancel.funcint;
+ cancel_func = (int (*)(const int, void *, void *, void *, void *))p->module->module_cancel.funcint;
#endif
(void)cancel_func (-1, NULL, NULL, NULL, NULL);
p->module = NULL;
@@ -1302,7 +1302,7 @@
#pragma warning(suppress: 4113) /* funcint is a generic function prototype */
cancel_func = s->cob_cstr_cancel.funcint;
#else
- cancel_func = s->cob_cstr_cancel.funcint;
+ cancel_func = (int (*)(const int, void *, void *, void *, void *))s->cob_cstr_cancel.funcint;
#endif
(void)cancel_func (-1, NULL, NULL, NULL,
NULL);
@@ -1349,7 +1349,160 @@
#else
#error "Invalid MAX_CALL_FIELD_PARAMS value"
#endif
- i = unifunc.funcint (pargv[0], pargv[1], pargv[2], pargv[3]
+ int (*funcint) (
+ void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 16
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 36
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 56
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 76
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 96
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 192
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#endif
+#endif
+#endif
+#endif
+#endif
+#endif
+ ) = (int (*)(
+ void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 16
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 36
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 56
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 76
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 96
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#if MAX_CALL_FIELD_PARAMS > 192
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+ ,void *, void *, void *, void *
+#endif
+#endif
+#endif
+#endif
+#endif
+#endif
+ ))unifunc.funcint;
+ i = funcint (pargv[0], pargv[1], pargv[2], pargv[3]
,pargv[4], pargv[5], pargv[6], pargv[7]
,pargv[8], pargv[9], pargv[10], pargv[11]
,pargv[12], pargv[13], pargv[14], pargv[15]
@@ -1393,6 +1546,7 @@
,pargv[144], pargv[145], pargv[146], pargv[147]
,pargv[148], pargv[149], pargv[130], pargv[131]
,pargv[152], pargv[153], pargv[154], pargv[155]
+ ,pargv[156], pargv[157], pargv[158], pargv[159]
,pargv[160], pargv[161], pargv[162], pargv[163]
,pargv[164], pargv[165], pargv[166], pargv[167]
,pargv[168], pargv[169], pargv[170], pargv[171]
--- a/libcob/common.c 2025-03-22 16:50:20.833569987 +0100
+++ b/libcob/common.c 2025-03-22 16:51:36.499633316 +0100
@@ -764,7 +764,7 @@
nxt = ptr->next;
if (mod && mod->module_cancel.funcint) {
mod->module_active = 0;
- cancel_func = mod->module_cancel.funcint;
+ cancel_func = (int (*)(const int))mod->module_cancel.funcint;
(void)cancel_func (-20); /* Clear just decimals */
}
cob_free (ptr);
@@ -10758,7 +10758,7 @@
for (mod = COB_MODULE_PTR; mod; mod = mod->next) {
if (mod->module_cancel.funcint) {
int (*cancel_func)(const int);
- cancel_func = mod->module_cancel.funcint;
+ cancel_func = (int (*)(const int))mod->module_cancel.funcint;
fprintf (fp, _("Dump Program-Id %s from %s compiled %s"),
mod->module_name, mod->module_source, mod->module_formatted_date);
|
