← Back to branch summary

~ubuntu-branches/ubuntu/trusty/lifelines/trusty

« back to all changes in this revision

Viewing changes to src/interp/eval.c

  • Committer: Bazaar Package Importer
  • Author(s): Felipe Augusto van de Wiel (faw)
  • Date: 2007-05-23 23:49:53 UTC
  • mfrom: (3.1.3 edgy)
  • Revision ID: james.westby@ubuntu.com-20070523234953-ogno9rnbmth61i7p
Tags: 3.0.50-2etch1
http://bugs.debian.org/418347
http://bugs.debian.org/405500
http://bugs.debian.org/356671
* Changing docs/ll-reportmanual.xml and docs/ll-userguide.xml to fix
  documentation build problems (Closes: #418347).

* lifelines-reports
  - Adding a dependency to lifelines >= 3.0.50 to prevent file conflict.
    (Closes: #405500).

* Updating French translation. Thanks to Bernard Adrian. (Closes: #356671).

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/interp/eval.c
46
46
static void trace_outv(STRING fmt, va_list args);
47
47
 
48
48
 
49
 
extern BOOLEAN traceprogram, explicitvars;
 
49
extern BOOLEAN explicitvars;
50
50
 
51
51
/*=============================+
52
52
 * evaluate -- Generic evaluator
231
231
{
232
232
        STRING procname = (STRING) iname(node);
233
233
        PNODE func, arg, parm;
234
 
        SYMTAB newstab = null_symtab();
 
234
        SYMTAB newstab = NULL;
235
235
        PVALUE val=NULL;
236
236
        INTERPTYPE irc;
237
237
        INT count=0;
247
247
                goto ufunc_leave;
248
248
        }
249
249
 
250
 
        create_symtab(&newstab);
 
250
        newstab = create_symtab();
251
251
        arg = (PNODE) iargs(node);
252
252
        parm = (PNODE) iargs(func);
253
253
        while (arg && parm) {
254
254
                BOOLEAN eflg=TRUE;
255
255
                PVALUE value = evaluate(arg, stab, &eflg);
256
256
                if (eflg) {
257
 
                        if (getoptint("FullReportCallStack", 0) > 0)
 
257
                        if (getlloptint("FullReportCallStack", 0) > 0)
258
258
                                prog_error(node, "In user function %s()", iname(node));
259
259
                        return INTERROR;
260
260
                }
282
282
        case INTERROR:
283
283
                break;
284
284
        }
285
 
        if (getoptint("FullReportCallStack", 0) > 0)
 
285
        if (getlloptint("FullReportCallStack", 0) > 0)
286
286
                prog_error(node, "In user function %s()", iname(node));
287
287
        *eflg = TRUE;
288
288
        delete_pvalue(val);
289
289
        val=NULL;
290
290
 
291
291
ufunc_leave:
292
 
        remove_symtab(&newstab);
 
292
        if (newstab) {
 
293
                remove_symtab(newstab);
 
294
                newstab = NULL;
 
295
        }
293
296
        return val;
294
297
}
295
298
/*=====================================