Skip to content

Commit 3d477ba

Browse files
mapgccvmapgccv
committed
20241202
 fgh_read.c in solvers.tgz: change the declaration of f_OPHOL to extern char* f_OPHOL ANSI((expr* A_ASL)); makefile.u in solvers.tgz: remove dependency on arith.h1. 20250727 nlp.h, nlp2.h, pfg_read.c: add and use field cenext (rather than using the vref field for both its intended purpose and a "next" pointer). The old way caused trouble when rereading a large .nl file. (This only affects solvers.tgz; solvers2.tgz is not affected.) 20251122 Fixed a problem in heswork in solvers2 leading to problems with the knitro driver.
1 parent 1736eac commit 3d477ba

File tree

24 files changed

+280
-252
lines changed

24 files changed

+280
-252
lines changed

‎src/solvers/asldate.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
long ASLdate_ASL = 20241202;
1+
long ASLdate_ASL = 20250727;

‎src/solvers/changes‎

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -3461,3 +3461,14 @@ sphes.c will have changed.
34613461
20241122
34623462
asl.h in solvers2.tgz: only require pthreads.h when compiled with
34633463
-DMULTIPLE_THREADS (and not with -DALLOW_OPENMP).
3464+
3465+
20241202
3466+
fgh_read.c in solvers.tgz: change the declaration of f_OPHOL to
3467+
extern char* f_OPHOL ANSI((expr* A_ASL));
3468+
makefile.u in solvers.tgz: remove dependency on arith.h1.
3469+
3470+
20250727
3471+
nlp.h, nlp2.h, pfg_read.c: add and use field cenext (rather than
3472+
using the vref field for both its intended purpose and a "next"
3473+
pointer). The old way caused trouble when rereading a large .nl file.
3474+
(This only affects solvers.tgz; solvers2.tgz is not affected.)

‎src/solvers/nlp.h‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -138,6 +138,7 @@ cexp {
138138
int zlen;
139139
derp *d;
140140
int *vref;
141+
cexp *cenext;
141142
};
142143

143144
struct

‎src/solvers/nlp2.h‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -165,6 +165,7 @@ cexp2 {
165165
derp *d;
166166
int *vref;
167167
hes_fun *hfun;
168+
cexp2 *cenext;
168169
};
169170

170171
struct

‎src/solvers/pfg_read.c‎

Lines changed: 6 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -3433,6 +3433,7 @@ funnelkind(Static *S, int i0, int *ip)
34333433

34343434
ce = cexps + i0;
34353435
ce->vref = 0;
3436+
ce->cenext = 0;
34363437
if (!(nzc0 = nzc))
34373438
return nocopy;
34383439
k1 = k2 = nzcperm(S);
@@ -3458,7 +3459,7 @@ funnelkind(Static *S, int i0, int *ip)
34583459
zci[nzc++] = tl->item.i;
34593460
}
34603461
else {
3461-
cej->vref = (int*)ce2;
3462+
cej->cenext = ce2;
34623463
ce2 = cej;
34633464
}
34643465
}
@@ -3519,8 +3520,8 @@ funnelkind(Static *S, int i0, int *ip)
35193520
if (!ce2)
35203521
goto ret2;
35213522
while((cej = ce2)) {
3522-
ce2 = (cexp*)cej->vref;
3523-
cej->vref = 0;
3523+
ce2 = cej->cenext;
3524+
cej->cenext = 0;
35243525
for(tl = cej->cref; tl; tl = tl->next)
35253526
if (!zc[tl->item.i]++)
35263527
zci[nzc++] = tl->item.i;
@@ -3558,8 +3559,8 @@ funnelkind(Static *S, int i0, int *ip)
35583559
}
35593560
}
35603561
while((cej = ce2)) {
3561-
ce2 = (cexp*)cej->vref;
3562-
cej->vref = 0;
3562+
ce2 = cej->cenext;
3563+
cej->cenext = 0;
35633564
}
35643565
rv = 0;
35653566
if (nocopy || nderp > 3*(nzc0+k1))

‎src/solvers/xsum0.out‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ arithchk.c 63b0185 6532
88
asl.h 1fe3527a 42925
99
asl_pfg.h 6483336 1268
1010
asl_pfgh.h 49b5a53 1288
11-
asldate.c e6a239aa 29
11+
asldate.c 1fcf1cdc 29
1212
atof.c 1fabc7d3 1747
1313
auxinfo.c 1a3c8690 1488
1414
avltree.c 10aeaa58 11346
@@ -85,8 +85,8 @@ mqpcheckv.c e60e70cf 19903
8585
mypow.c f6f74614 2464
8686
names.c 1fc87a42 4343
8787
nl_obj.c e8fa1e1 2560
88-
nlp.h 10ba87d3 5384
89-
nlp2.h fcdcbc2a 7126
88+
nlp.h fdc4f902 5399
89+
nlp2.h f8d1da3a 7142
9090
nqpcheck.c 1e266369 18358
9191
nqpcheckZ.c ea215f98 1188
9292
obj2val.c e939c11 4492
@@ -102,7 +102,7 @@ op_type.hd f803bc0b 1287
102102
op_typeb.hd 1c1e0c07 1287
103103
opcode.hd 12bc8de3 1348
104104
opnos.hd 1a7c2f8d 78
105-
pfg_read.c 1dca51d4 98321
105+
pfg_read.c f698b925 98328
106106
pfghread.c b815512 1107
107107
printf.c 147de217 24293
108108
pshvprod.c 1dcadea7 32089

‎src/solvers2/asl.h‎

Lines changed: 48 additions & 48 deletions
Original file line numberDiff line numberDiff line change
@@ -233,43 +233,43 @@ Edagpars {
233233
int want_derivs_;
234234
int ihd_limit_;
235235
int solve_code_;
236-
real (*Objval) (EvalWorkspace*,int nobj, real *X, fint *nerror);
237-
real (*Objval_nomap) (EvalWorkspace*,int nobj, real *X, fint *nerror);
238-
void (*Objgrd) (EvalWorkspace*,int nobj, real *X, real *G, fint *nerror);
239-
void (*Objgrd_nomap) (EvalWorkspace*,int nobj, real *X, real *G, fint *nerror);
240-
void (*Conval) (EvalWorkspace*,real *X, real *R, fint *nerror);
241-
void (*Jacval) (EvalWorkspace*,real *X, real *J, fint *nerror);
242-
real (*Conival) (EvalWorkspace*,int ncon, real *X, fint *nerror);
243-
real (*Conival_nomap) (EvalWorkspace*,int ncon, real *X, fint *nerror);
244-
void (*Congrd) (EvalWorkspace*,int nc, real *X, real *G, fint *nerror);
245-
void (*Congrd_nomap) (EvalWorkspace*,int nc, real *X, real *G, fint *nerror);
246-
void (*Hvcomp) (EvalWorkspace*,real *hv, real *p, int no, real *ow, real *y);
247-
void (*Hvcomp_nomap) (EvalWorkspace*,real *hv, real *p, int no, real *ow, real *y);
248-
void (*Hvcompe) (EvalWorkspace*,real *hv, real *p, int no, real *ow, real *y, fint*);
249-
void (*Hvcompe_nomap) (EvalWorkspace*,real *hv, real *p, int no, real *ow, real *y, fint*);
250-
void (*Hvcompd) (EvalWorkspace*,real *hv, real *p, int co);
251-
void (*Hvcompde) (EvalWorkspace*,real *hv, real *p, int co, fint*);
252-
varno_t (*Hvcomps) (EvalWorkspace*,real *hv, real *p, int co, varno_t nz, varno_t *z);
253-
varno_t (*Hvcompse) (EvalWorkspace*,real *hv, real *p, int co, varno_t nz, varno_t *z, fint*);
254-
void (*Hvinit) (EvalWorkspace*,int hid_limit, int nobj, real *ow, real *y);
255-
void (*Hvinit_nomap) (EvalWorkspace*,int hid_limit, int nobj, real *ow, real *y);
256-
void (*Hvinite) (EvalWorkspace*,int hid_limit, int nobj, real *ow, real *y, fint*);
257-
void (*Hvinite_nomap) (EvalWorkspace*,int hid_limit, int nobj, real *ow, real *y, fint*);
236+
real (*Objval) (EvalWorkspace*,int nobj, const real *X, fint *nerror);
237+
real (*Objval_nomap) (EvalWorkspace*,int nobj, const real *X, fint *nerror);
238+
void (*Objgrd) (EvalWorkspace*,int nobj, const real *X, real *G, fint *nerror);
239+
void (*Objgrd_nomap) (EvalWorkspace*,int nobj, const real *X, real *G, fint *nerror);
240+
void (*Conval) (EvalWorkspace*,const real *X, real *R, fint *nerror);
241+
void (*Jacval) (EvalWorkspace*,const real *X, real *J, fint *nerror);
242+
real (*Conival) (EvalWorkspace*,int ncon, const real *X, fint *nerror);
243+
real (*Conival_nomap) (EvalWorkspace*,int ncon, const real *X, fint *nerror);
244+
void (*Congrd) (EvalWorkspace*,int nc, const real *X, real *G, fint *nerror);
245+
void (*Congrd_nomap) (EvalWorkspace*,int nc, const real *X, real *G, fint *nerror);
246+
void (*Hvcomp) (EvalWorkspace*,real *hv, const real *p, int no, const real *ow, const real *y);
247+
void (*Hvcomp_nomap) (EvalWorkspace*,real *hv, const real *p, int no, const real *ow, const real *y);
248+
void (*Hvcompe) (EvalWorkspace*,real *hv, const real *p, int no, const real *ow, const real *y, fint*);
249+
void (*Hvcompe_nomap) (EvalWorkspace*,real *hv, const real *p, int no, const real *ow, const real *y, fint*);
250+
void (*Hvcompd) (EvalWorkspace*,real *hv, const real *p, int co);
251+
void (*Hvcompde) (EvalWorkspace*,real *hv, const real *p, int co, fint*);
252+
varno_t (*Hvcomps) (EvalWorkspace*,real *hv, const real *p, int co, varno_t nz, varno_t *z);
253+
varno_t (*Hvcompse) (EvalWorkspace*,real *hv, const real *p, int co, varno_t nz, varno_t *z, fint*);
254+
void (*Hvinit) (EvalWorkspace*,int hid_limit, int nobj, const real *ow, const real *y);
255+
void (*Hvinit_nomap) (EvalWorkspace*,int hid_limit, int nobj, const real *ow, const real *y);
256+
void (*Hvinite) (EvalWorkspace*,int hid_limit, int nobj, const real *ow, const real *y, fint*);
257+
void (*Hvinite_nomap) (EvalWorkspace*,int hid_limit, int nobj, const real *ow, const real *y, fint*);
258258
/* void (*Hesset) (EvalWorkspace*,int flags, int no, int nno, int nc, int nnc);*/
259-
int (*Lconval) (EvalWorkspace*,int ncon, real *X, fint *nerror);
260-
int (*Xknown) (EvalWorkspace*,real*, fint*);
261-
void (*Duthes) (EvalWorkspace*,real *H, int nobj, real *ow, real *y);
262-
void (*Duthes_nomap) (EvalWorkspace*,real *H, int nobj, real *ow, real *y);
263-
void (*Duthese) (EvalWorkspace*,real *H, int nobj, real *ow, real *y, fint*);
264-
void (*Duthese_nomap) (EvalWorkspace*,real *H, int nobj, real *ow, real *y, fint*);
265-
void (*Fulhes) (EvalWorkspace*,real *H, fint LH, int no, real *ow, real *y);
266-
void (*Fulhes_nomap) (EvalWorkspace*,real *H, fint LH, int no, real *ow, real *y);
267-
void (*Fulhese) (EvalWorkspace*,real *H, fint LH, int no, real *ow, real *y, fint*);
268-
void (*Fulhese_nomap) (EvalWorkspace*,real *H, fint LH, int no, real *ow, real *y, fint*);
269-
void (*Sphes) (EvalWorkspace*,SputInfo**, real *H, int nobj, real *ow, real *y);
270-
void (*Sphes_nomap) (EvalWorkspace*,SputInfo**, real *H, int nobj, real *ow, real *y);
271-
void (*Sphese) (EvalWorkspace*,SputInfo**, real *H, int nobj, real *ow, real *y, fint*);
272-
void (*Sphese_nomap) (EvalWorkspace*,SputInfo**, real *H, int nobj, real *ow, real *y, fint*);
259+
int (*Lconval) (EvalWorkspace*,int ncon, const real *X, fint *nerror);
260+
int (*Xknown) (EvalWorkspace*, const real*, fint*);
261+
void (*Duthes) (EvalWorkspace*,real *H, int nobj, const real *ow, const real *y);
262+
void (*Duthes_nomap) (EvalWorkspace*,real *H, int nobj, const real *ow, const real *y);
263+
void (*Duthese) (EvalWorkspace*,real *H, int nobj, const real *ow, const real *y, fint*);
264+
void (*Duthese_nomap) (EvalWorkspace*,real *H, int nobj, const real *ow, const real *y, fint*);
265+
void (*Fulhes) (EvalWorkspace*,real *H, fint LH, int no, const real *ow, const real *y);
266+
void (*Fulhes_nomap) (EvalWorkspace*,real *H, fint LH, int no, const real *ow, const real *y);
267+
void (*Fulhese) (EvalWorkspace*,real *H, fint LH, int no, const real *ow, const real *y, fint*);
268+
void (*Fulhese_nomap) (EvalWorkspace*,real *H, fint LH, int no, const real *ow, const real *y, fint*);
269+
void (*Sphes) (EvalWorkspace*,SputInfo**, real *H, int nobj, const real *ow, const real *y);
270+
void (*Sphes_nomap) (EvalWorkspace*,SputInfo**, real *H, int nobj, const real *ow, const real *y);
271+
void (*Sphese) (EvalWorkspace*,SputInfo**, real *H, int nobj, const real *ow, const real *y, fint*);
272+
void (*Sphese_nomap) (EvalWorkspace*,SputInfo**, real *H, int nobj, const real *ow, const real *y, fint*);
273273
fint (*Sphset) (EvalWorkspace*,SputInfo**, int nobj, int ow, int y, int uptri);
274274
fint (*Sphset_nomap) (EvalWorkspace*,SputInfo**, int nobj, int ow, int y, int uptri);
275275
EvalWorkspace* (*EWalloc)(ASL*);
@@ -1146,7 +1146,7 @@ QPinfo {
11461146
extern void deriv_errclear_ASL(EvalWorkspace *);
11471147
extern void derprop(derpblock*, real*, real*, real);
11481148
extern char *dtoa_r(double, int, int, int*, int*, char**, char*, size_t);
1149-
extern void duthes_ew_ASL(EvalWorkspace*, real *H, int nobj, real *ow, real *y);
1149+
extern void duthes_ew_ASL(EvalWorkspace*, real *H, int nobj, const real *ow, const real *y);
11501150
extern ufunc *dynlink_ASL(const char*);
11511151
extern int edag_peek(EdRead*);
11521152
extern void equ_adjust_ASL(ASL*, int*, int*);
@@ -1162,7 +1162,7 @@ QPinfo {
11621162
extern void fintrouble_ASL(EvalWorkspace*, func_info*, const char*, TMInfo*);
11631163
extern void flagsave_ASL(ASL*, int);
11641164
extern char *fread_sol_ASL(ASL*, const char *fname, real**xp, real **yp);
1165-
extern void fullhes_ew_ASL(EvalWorkspace*, real *H, fint LH, int no, real *ow, real *y);
1165+
extern void fullhes_ew_ASL(EvalWorkspace*, real *H, fint LH, int no, const real *ow, const real *y);
11661166
extern Sig_ret_type fpecatch(int);
11671167
extern jmp_buf fpe_jmpbuf_ASL;
11681168
extern func_info *func_lookup(ASL*, const char*, int add);
@@ -1227,7 +1227,7 @@ QPinfo {
12271227
extern char *obj_name_ASL(ASL*,int);
12281228
extern int obj_prec(void);
12291229
extern void obj_adj_ASL(ASL*);
1230-
extern void obj_adj_xy_ASL(ASL *asl, real *x, real *x0, real *y);
1230+
extern void obj_adj_xy_ASL(ASL *asl, real *x, const real *x0, real *y);
12311231
extern real objconst_ASL(ASL*,int);
12321232
extern void objgrd_(fint *N, real *X, fint *NOBJ, real *G, fint *nerror);
12331233
extern real objval_(fint *N, real *X, fint *NOBJ, fint *nerror);
@@ -1252,7 +1252,7 @@ QPinfo {
12521252
extern void sigcatch_ASL(void);
12531253
extern void* sos_add_ASL(ASL*, FILE*, int);
12541254
extern int sos_finish_ASL(ASL*,void**,int,int*,int**,int*,int**,int**,real**);
1255-
extern void sphes_ew_ASL(EvalWorkspace*, SputInfo**, real *H, int nobj, real *ow, real *y);
1255+
extern void sphes_ew_ASL(EvalWorkspace*, SputInfo**, real *H, int nobj, const real *ow, const real *y);
12561256
extern fint sphsetup_ew_ASL(EvalWorkspace*, SputInfo**, int nobj, int ow, int y, int uptri);
12571257
extern void student_check_ASL(ASL*);
12581258
extern void suf_declare_ASL(ASL*, SufDecl*, int);
@@ -1264,19 +1264,19 @@ QPinfo {
12641264
extern char *var_name_nomap_ASL(ASL*,int,int*);
12651265
extern void varscale_ASL(ASL*, int, real, fint*);
12661266
extern void what_prog(void);
1267-
extern void write_sol_ASL(ASL*, const char *msg, double *x, double *y, Option_Info*);
1268-
extern int write_solf_ASL(ASL*, const char *msg, double *x, double *y, Option_Info *,
1267+
extern void write_sol_ASL(ASL*, const char *msg, const double *x, const double *y, Option_Info*);
1268+
extern int write_solf_ASL(ASL*, const char *msg, const double *x, const double *y, Option_Info *,
12691269
const char*);
1270-
extern int write_solfx_ASL(ASL*, const char *msg, double *x, double *y, Option_Info *,
1270+
extern int write_solfx_ASL(ASL*, const char *msg, const double *x, const double *y, Option_Info *,
12711271
Fwrite, Fwrite, Fwrite, const char*);
1272-
extern void wrsolw_(char *msg, fint *nmsg, real *x, real *y, fint *wantsol,
1272+
extern void wrsolw_(char *msg, fint *nmsg, const real *x, const real *y, fint *wantsol,
12731273
ftnlen msg_len);
1274-
extern void wrtsol_(char *msg, fint *nmsg, real *x, real *y,
1274+
extern void wrtsol_(char *msg, fint *nmsg, const real *x, const real *y,
12751275
ftnlen msg_len);
12761276
extern real xectim_(void);
1277-
extern void xknown_ASL(EvalWorkspace*, real*, fint*);
1278-
extern void xknowe_(real *x, fint *nerror);
1279-
extern void xknown_(real *x);
1277+
extern void xknown_ASL(EvalWorkspace*, const real*, fint*);
1278+
extern void xknowe_(const real *x, fint *nerror);
1279+
extern void xknown_(const real *x);
12801280
extern void xunkno_(void);
12811281
extern void xunknown_ASL(EvalWorkspace*);
12821282
extern void zero_div_ASL(EvalWorkspace*, real, const char*);

‎src/solvers2/asldate.c‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
long ASLdate_ASL = 20241122;
1+
long ASLdate_ASL = 20251121;

‎src/solvers2/duthes.c‎

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -41,18 +41,19 @@ add_op(real *w, real *H, psg_elem *g, real t)
4141
}
4242

4343
void
44-
duthes_ew_ASL(EvalWorkspace *ew, real *H, int nobj, real *ow, real *y)
44+
duthes_ew_ASL(EvalWorkspace *ew, real *H, int nobj, const real *ow, const real *y)
4545
{
4646
/* dense upper triangle of Hessian */
4747
ASL *a;
4848
ASL_pfgh *asl;
4949
Varval *V, *v;
50+
const real *owi;
5051
int i, j, n, no, noe, *ov, *ov1, *ov1e, *ove;
5152
linarg *la, **lap, **lap1, **lape;
5253
ps_func *p, *pe;
5354
psg_elem *g, *ge;
5455
range *r, *r0;
55-
real *Hj, *cscale, g2, *oc, *oc1, *owi, *s, *si, t, t1, *w;
56+
real *Hj, *cscale, g2, *oc, *oc1, *s, *si, t, t1, *w;
5657

5758
asl = (ASL_pfgh*)(a = ew->asl);
5859
ASL_CHECK(a, ASL_read_pfgh, "duthes");
@@ -139,7 +140,7 @@ duthes_ew_ASL(EvalWorkspace *ew, real *H, int nobj, real *ow, real *y)
139140
similarly to the final nerror argument to objval_(), etc. */
140141

141142
void
142-
duthese_ew_ASL(EvalWorkspace *ew, real *H, int nobj, real *ow, real *y, fint *nerror)
143+
duthese_ew_ASL(EvalWorkspace *ew, real *H, int nobj, const real *ow, const real *y, fint *nerror)
143144
{
144145
Jmp_buf **Jp, *Jsave, b;
145146

‎src/solvers2/eval1.c‎

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1470,7 +1470,7 @@ dv_funnel(ASL_fg *asl, EvalWorkspace *ew, cexp **dvf)
14701470
}
14711471

14721472
static int
1473-
x0_check1(EvalWorkspace *ew, real *X)
1473+
x0_check1(EvalWorkspace *ew, const real *X)
14741474
{
14751475
ASL_fg *asl;
14761476
int i, nv, *vm;
@@ -1513,7 +1513,7 @@ x0_check1(EvalWorkspace *ew, real *X)
15131513
}
15141514

15151515
int
1516-
x1known_ew_ASL(EvalWorkspace *ew, real *X, fint *nerror)
1516+
x1known_ew_ASL(EvalWorkspace *ew, const real *X, fint *nerror)
15171517
{
15181518
ASL_fg *asl;
15191519
Jmp_buf err_jmp0;
@@ -1540,7 +1540,7 @@ x1known_ew_ASL(EvalWorkspace *ew, real *X, fint *nerror)
15401540
}
15411541

15421542
real
1543-
obj1val_ew_ASL(EvalWorkspace *ew, int nobj, real *X, fint *nerror)
1543+
obj1val_ew_ASL(EvalWorkspace *ew, int nobj, const real *X, fint *nerror)
15441544
{
15451545
ASL_fg *asl;
15461546
Jmp_buf err_jmp0;
@@ -1613,7 +1613,7 @@ obj1val_ew_ASL(EvalWorkspace *ew, int nobj, real *X, fint *nerror)
16131613
}
16141614

16151615
real
1616-
con1ival_ew_ASL(EvalWorkspace *ew, int ncon, real *X, fint *nerror)
1616+
con1ival_ew_ASL(EvalWorkspace *ew, int ncon, const real *X, fint *nerror)
16171617
{
16181618
ASL_fg *asl;
16191619
Jmp_buf err_jmp0;
@@ -1690,7 +1690,7 @@ con1ival_ew_ASL(EvalWorkspace *ew, int ncon, real *X, fint *nerror)
16901690
}
16911691

16921692
void
1693-
con1val_ew_ASL(EvalWorkspace *ew, real *X, real *F, fint *nerror)
1693+
con1val_ew_ASL(EvalWorkspace *ew, const real *X, real *F, fint *nerror)
16941694
{
16951695
ASL_fg *asl;
16961696
Jmp_buf err_jmp0;
@@ -1781,7 +1781,7 @@ con1val_ew_ASL(EvalWorkspace *ew, real *X, real *F, fint *nerror)
17811781
}
17821782

17831783
int
1784-
lcon1val_ew_ASL(EvalWorkspace *ew, int i, real *X, fint *nerror)
1784+
lcon1val_ew_ASL(EvalWorkspace *ew, int i, const real *X, fint *nerror)
17851785
{
17861786
ASL_fg *asl;
17871787
Jmp_buf err_jmp0;
@@ -1823,7 +1823,7 @@ lcon1val_ew_ASL(EvalWorkspace *ew, int i, real *X, fint *nerror)
18231823
}
18241824

18251825
void
1826-
obj1grd_ew_ASL(EvalWorkspace *ew, int nobj, real *X, real *G, fint *nerror)
1826+
obj1grd_ew_ASL(EvalWorkspace *ew, int nobj, const real *X, real *G, fint *nerror)
18271827
{
18281828
ASL_fg *asl;
18291829
Jmp_buf err_jmp0;
@@ -1933,7 +1933,7 @@ obj1grd_ew_ASL(EvalWorkspace *ew, int nobj, real *X, real *G, fint *nerror)
19331933
}
19341934

19351935
void
1936-
con1grd_ew_ASL(EvalWorkspace *ew, int nc, real *X, real *G, fint *nerror)
1936+
con1grd_ew_ASL(EvalWorkspace *ew, int nc, const real *X, real *G, fint *nerror)
19371937
{
19381938
ASL_fg *asl;
19391939
Jmp_buf err_jmp0;
@@ -2060,7 +2060,7 @@ con1grd_ew_ASL(EvalWorkspace *ew, int nc, real *X, real *G, fint *nerror)
20602060
}
20612061

20622062
void
2063-
jac1val_ew_ASL(EvalWorkspace *ew, real *X, real *G, fint *nerror)
2063+
jac1val_ew_ASL(EvalWorkspace *ew, const real *X, real *G, fint *nerror)
20642064
{
20652065
ASL_fg *asl;
20662066
Jmp_buf err_jmp0;

0 commit comments

Comments
 (0)