pike.git/ src/ program.c

2003-01-31

2003-01-31 01:50:53 by Martin Stjernholm <mast@lysator.liu.se>

• 4145962e3074a9b976b99e7356c277ecdc514a4d (21 lines) (+18/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Added low_get_function_line. Disabled the `() stuff in program_from_svalue
since it does more harm than good in its current state.

Rev: src/program.c:1.476
Rev: src/program.h:1.174

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: program.c,v 1.475 2003/01/15 22:07:19 mast Exp $ + || $Id: program.c,v 1.476 2003/01/31 01:50:53 mast Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.475 2003/01/15 22:07:19 mast Exp $"); + RCSID("$Id: program.c,v 1.476 2003/01/31 01:50:53 mast Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
5236:    return res;   }    + PMOD_EXPORT struct pike_string *low_get_function_line (struct object *o, +  int fun, INT32 *linep) + { +  if (o->prog) { +  struct reference *idref = o->prog->identifier_references + fun; +  struct program *p = PROG_FROM_PTR (o->prog, idref); +  struct identifier *id = p->identifiers + idref->identifier_offset; +  return low_get_line (p->program + id->func.offset, p, linep); +  } +  *linep = 0; +  return NULL; + } +    void my_yyerror(char *fmt,...) ATTRIBUTE((format(printf,1,2)))   {    va_list args;
6834:       if (!p) return 0;    + #if 0    if ((call_fun = FIND_LFUN(p, LFUN_CALL)) >= 0) {    /* Get the program from the return type. */    struct identifier *id = ID_FROM_INT(p, call_fun);    /* FIXME: do it. */ -  /* fprintf(stderr, "Object type has `()().\n"); */ +     return 0;    } -  + #endif    push_svalue(s);    f_object_program(1);    p=program_from_svalue(Pike_sp-1);