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.
497
2005/
06
/
09
09
:
25
:
43
grubba
Exp $
+
|| $Id: program.c,v 1.
498
2005/
08
/
14
11
:
27
:
24
jonasw
Exp $
*/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
497
2005/
06
/
09
09
:
25
:
43
grubba
Exp $");
+
RCSID("$Id: program.c,v 1.
498
2005/
08
/
14
11
:
27
:
24
jonasw
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:4661:
zero.type = T_INT; zero.subtype = NUMBER_NUMBER; zero.u.integer=0; UNSETJMP(tmp2); return store_constant(&zero, equal, constant_name); }else{ struct program_constant tmp; unsigned int e;
+
#ifdef USE_VALGRIND
+
int is_int = foo->type == T_INT;
+
int is_num_locked = is_int && (foo->subtype == NUMBER_LOCKED);
+
if (is_num_locked) {
+
#else
if ((foo->type == T_INT) && (foo->subtype == NUMBER_LOCKED)) {
-
+
#endif
/* Allocate a locked entry. */ e = Pike_compiler->new_program->num_constants; } else { for(e=0;e<Pike_compiler->new_program->num_constants;e++) { JMP_BUF tmp1; /* Assume that if `==() throws an error, the svalues aren't equal. */ if (!SETJMP(tmp1)) { struct program_constant *c= Pike_compiler->new_program->constants+e;
-
+
#ifdef USE_VALGRIND
+
int is_int = c->sval.type == T_INT;
+
int is_num_locked = is_int && (c->sval.subtype == NUMBER_LOCKED);
+
if (is_num_locked) {
+
#else
if ((c->sval.type == T_INT) && (c->sval.subtype == NUMBER_LOCKED)) {
-
+
#endif
/* Never share locked entries. */ } else { if((equal ? is_equal(& c->sval,foo) : is_eq(& c->sval,foo)) && c->name == constant_name) { UNSETJMP(tmp1); UNSETJMP(tmp2); return e; } }