pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1:   /*   || 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.541 2003/11/28 15:44:26 grubba Exp $ + || $Id: program.c,v 1.542 2003/12/30 09:24:26 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.541 2003/11/28 15:44:26 grubba Exp $"); + RCSID("$Id: program.c,v 1.542 2003/12/30 09:24:26 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:5002:    return i;    }    }    return id;   }      int low_find_lfun(struct program *p, ptrdiff_t lfun)   {    struct pike_string *lfun_name = lfun_strings[lfun];    unsigned int flags = 0; -  return +  struct identifier *id; +  int i =    really_low_find_shared_string_identifier(lfun_name,    dmalloc_touch(struct program *,    p),    SEE_STATIC); -  +  if (i < 0) return i; +  id = IDENTIFIER_FROM_INT(p, i); +  if (!IDENTIFIER_IS_FUNCTION(id->identifier_flags) || +  (IDENTIFIER_IS_PIKE_FUNCTION(id->identifier_flags) && +  id->func.offset == -1)) { +  /* Non function or prototype. */ +  return -1;    } -  +  return i; + }      int lfun_lookup_id(struct pike_string *lfun_name)   {    struct svalue *id = low_mapping_string_lookup(lfun_ids, lfun_name);    if (!id) return -1;    if (id->type == T_INT) return id->u.integer;    my_yyerror("Bad entry in lfun lookup table for %s.", lfun_name->str);    return -1;   }   
pike.git/src/program.c:5731:   {    linep[0] = 0;       if (prog->program && prog->linenumbers) {    ptrdiff_t offset = pc - prog->program;       if ((offset < (ptrdiff_t)prog->num_program) && (offset >= 0)) {    char *cnt = prog->linenumbers;    INT32 off = 0, line = 0;    char *file = NULL; -  size_t len; -  INT32 shift; +  size_t len = 0; +  INT32 shift = 0;       while(cnt < prog->linenumbers + prog->num_linenumbers)    {    if(*cnt == 127)    {    cnt++;    len = get_small_number(&cnt);    shift = *cnt;    file = ++cnt;    CHECK_FILE_ENTRY (prog, cnt, len, shift);