pike.git
/
src
/
constants.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/constants.c:10:
#include "program.h" #include "pike_types.h" #include "stralloc.h" #include "pike_memory.h" #include "interpret.h" #include "mapping.h" #include "pike_error.h" #include "security.h" #include "block_alloc.h"
-
RCSID("$Id: constants.c,v 1.
32
2001/08/
02
22
:
24
:
53
hubbe
Exp $");
+
RCSID("$Id: constants.c,v 1.
33
2001/08/
30
23
:
32
:
29
mast
Exp $");
struct mapping *builtin_constants = 0; PMOD_EXPORT struct mapping *get_builtin_constants(void) { if(!builtin_constants) builtin_constants=allocate_mapping(20); return builtin_constants; }
pike.git/src/constants.c:171:
low_add_efun(n, &s); free_svalue(&s); free_string(n); return ret; } #ifdef PIKE_DEBUG void present_constant_profiling(void) { struct callable_block *b;
-
int
e;
+
size_t
e;
for(b=callable_blocks;b;b=b->next) { for(e=0;e<NELEM(b->x);e++) { if(b->x[e].name) {
-
fprintf(stderr,"%
010d
@E@: %s\n",b->x[e].runs, b->x[e].name->str);
+
fprintf(stderr,"%
010ld
@E@: %s\n",b->x[e].runs, b->x[e].name->str);
} } } } #endif void cleanup_added_efuns(void) { #ifdef DO_PIKE_CLEANUP if(builtin_constants) { free_mapping(builtin_constants); builtin_constants=0; } #endif }