Mercurial > hg > octave-lyh
diff src/fsolve.cc @ 488:4481fdfb01b4
[project @ 1994-07-06 14:31:07 by jwe]
| author | jwe |
|---|---|
| date | Wed, 06 Jul 1994 14:31:42 +0000 |
| parents | c23f50e61c58 |
| children | 88614b380d6e |
line wrap: on
line diff
--- a/src/fsolve.cc +++ b/src/fsolve.cc @@ -38,7 +38,7 @@ #include "f-fsolve.h" // Global pointer for user defined function required by hybrd1. -static tree *fsolve_fcn; +static tree_fvc *fsolve_fcn; #ifdef WITH_DLD tree_constant * @@ -110,9 +110,9 @@ args[1] = vars; } - if (fsolve_fcn != NULL_TREE) + if (fsolve_fcn != (tree_fvc *) NULL) { - tree_constant *tmp = fsolve_fcn->eval (args, 2, 1, 0); + tree_constant *tmp = fsolve_fcn->eval (0, 1, args, 2); delete [] args; if (tmp != NULL_TREE_CONST && tmp[0].is_defined ()) { @@ -141,7 +141,7 @@ tree_constant *retval = NULL_TREE_CONST; fsolve_fcn = is_valid_function (args[1], "fsolve", 1); - if (fsolve_fcn == NULL_TREE + if (fsolve_fcn == (tree_fvc *) NULL || takes_correct_nargs (fsolve_fcn, 2, "fsolve", 1) != 1) return retval;