pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:1:
/* -*- c -*- || 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: builtin.cmod,v 1.
145
2003
/
12
/
08
11
:
13
:
12
nilsson
Exp $
+
|| $Id: builtin.cmod,v 1.
146
2004
/
02
/
10
22
:
26
:
45
mast
Exp $
*/ #include "global.h" #include "interpret.h" #include "svalue.h" #include "pike_macros.h" #include "object.h" #include "program.h" #include "array.h" #include "pike_error.h"
pike.git/src/builtin.cmod:1233:
*/ PIKEFUN int(0..1) _is_type(string t) { INT_TYPE res = (t == findstring("array")); pop_n_elems(args); push_int(res); } static void fill_in_file_and_line() {
-
struct pike_string *file;
+
struct pike_string *file
= NULL
;
assert (THIS->lineno == -1); if (THIS->pc && THIS->prog) { file = low_get_line(THIS->pc, THIS->prog, &THIS->lineno); THIS->pc = NULL; } else if (THIS->fun.type == PIKE_T_FUNCTION) file = low_get_function_line (THIS->fun.u.object, THIS->fun.subtype, &THIS->lineno); else if (THIS->prog) file = low_get_program_line (THIS->prog, &THIS->lineno);
-
+
if (file) {
if (!THIS->filename) THIS->filename = file; else free_string (file);
-
+
}
if (THIS->prog) { free_program(THIS->prog); THIS->prog = NULL; } } /*! @decl string _sprintf(int c, mapping|void opts) */ PIKEFUN string _sprintf(int c, mapping|void opts)