pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
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);