Mercurial > octave

comparison src/quad.cc @ 260:74d73a4b3fc7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-12-14 23:57:42 by jwe]
author jwe
date Tue, 14 Dec 1993 23:59:04 +0000
parents a99f28f5e351
children 7ec58832918f
comparison
equal deleted inserted replaced
259:23866011a5f2 260:74d73a4b3fc7
57 args[1] = tree_constant (x); 57 args[1] = tree_constant (x);
58 58
59 if (quad_fcn != NULL_TREE) 59 if (quad_fcn != NULL_TREE)
60 { 60 {
61 tree_constant *tmp = quad_fcn->eval (args, 2, 1, 0); 61 tree_constant *tmp = quad_fcn->eval (args, 2, 1, 0);
62
62 delete [] args; 63 delete [] args;
64
65 if (error_state)
66 {
67 delete [] tmp;
68 quad_integration_error = 1; // XXX FIXME XXX
69 gripe_user_supplied_eval ("quad");
70 return retval;
71 }
72
63 if (tmp != NULL_TREE_CONST && tmp[0].is_defined ()) 73 if (tmp != NULL_TREE_CONST && tmp[0].is_defined ())
64 { 74 {
65 retval = tmp[0].to_scalar (); 75 retval = tmp[0].to_scalar ();
66 delete [] tmp; 76 delete [] tmp;
67 } 77 }
68 else 78 else
69 { 79 {
70 delete [] tmp; 80 delete [] tmp;
81 quad_integration_error = 1; // XXX FIXME XXX
71 gripe_user_supplied_eval ("quad"); 82 gripe_user_supplied_eval ("quad");
72 jump_to_top_level ();
73 } 83 }
74 } 84 }
75 85
76 return retval; 86 return retval;
77 } 87 }