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.
625
2007/10/
13
15
:
34
:
59
grubba Exp $
+
|| $Id: program.c,v 1.
626
2007/10/
16
09
:
17
:
20
grubba Exp $
*/ #include "global.h" #include "program.h" #include "object.h" #include "dynamic_buffer.h" #include "pike_types.h" #include "stralloc.h" #include "las.h" #include "lex.h"
pike.git/src/program.c:8440:
*/ if (Pike_compiler->num_parse_error) return; init_string_builder(&s, 0); va_start(args,fmt); string_builder_vsprintf(&s, fmt, args); va_end(args); msg = finish_string_builder(&s); if (master_object) {
+
if (lex.current_file) {
ref_push_string(lex.current_file);
-
+
} else {
+
push_constant_text("-");
+
}
push_int(lex.current_line); push_string(msg); low_safe_apply_handler("compile_warning", error_handler, compat_handler, 3); pop_stack(); } else { if (!msg->size_shift) { fprintf(stderr, "%s:%d: Warning: %s\n", lex.current_file->str, lex.current_line, msg->str);