pike.git/ src/ program.c

1998-03-01

1998-03-01 11:40:47 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 9e5238fba5b70ee210ab32f1f42baf4bfed2811b (38 lines) (+28/-10) ^{[ Show | Annotate ]}
  Branch: 7.9

better type checking implemented (and a bug in the type checking fixed)

Rev: src/builtin_functions.c:1.76
Rev: src/docode.c:1.33
Rev: src/las.c:1.55
Rev: src/operators.c:1.28
Rev: src/pike_types.c:1.34
Rev: src/program.c:1.65
Rev: src/stralloc.c:1.28
Rev: src/svalue.h:1.13

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.64 1998/02/27 08:39:21 hubbe Exp $"); + RCSID("$Id: program.c,v 1.65 1998/03/01 11:40:47 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1027:    {    if(parent)    { +  if(parent->next == parent) +  { +  struct object *o; +  for(o=fake_object->parent;o!=parent;o=o->parent) +  { + #ifdef DEBUG +  if(!o) fatal("low_inherit with odd fake_object as parent!\n"); + #endif +  inherit.parent_offset++; +  } +  }else{    inherit.parent=parent;    inherit.parent_identifier=parent_identifier;    inherit.parent_offset=0; -  +  }    }else{    inherit.parent_offset+=parent_offset;    }
1864:    */   char *get_line(unsigned char *pc,struct program *prog,INT32 *linep)   { -  char *file; -  INT32 off,line,offset; -  char *cnt; +  static char *file, *cnt; +  static INT32 off,line,pid; +  INT32 offset;       if (prog == 0) return "Unkown program";    offset = pc - prog->program;
1877:    return "Optimizer";    }    +  if(prog->id != pid || offset < off) +  {    cnt=prog->linenumbers;    off=line=0;    file="Line not found"; -  +  pid=prog->id; +  } +     if (offset > (INT32)prog->num_program || offset<0)    return file;