pike.git/
src/
program.h
Branch:
Tag:
Non-build tags
All tags
No tags
2004-03-16
2004-03-16 12:46:51 by Henrik Grubbström (Grubba) <grubba@grubba.org>
f1ad631a486bb09dd21f84a7803ee4028aa063e3 (
26
lines) (+
25
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Cleaned up handling of COMPILATION_FORCE_RESOLVE.
Rev: src/program.h:1.201
2:
|| 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.h,v 1.
200
2004/03/
13
14
:
45
:
06
grubba Exp $
+
|| $Id: program.h,v 1.
201
2004/03/
16
12
:
46
:
51
grubba Exp $
*/ #ifndef PROGRAM_H
26:
* that we don't get a placeholder back. Used for inherits. */ #define COMPILATION_FORCE_RESOLVE 0x02
+
/* #define FORCE_RESOLVE_DEBUG */
+
/* Helper macros for force_resolve */
+
#ifdef FORCE_RESOLVE_DEBUG
+
#define DO_IF_FRD(X) X
+
#else /* !FORCE_RESOLVE_DEBUG */
+
#define DO_IF_FRD(X)
+
#endif /* FORCE_RESOLVE_DEBUG */
+
#define SET_FORCE_RESOLVE(OLD) do { \
+
int tmp_ = (OLD) = Pike_compiler->flags; \
+
Pike_compiler->flags |= COMPILATION_FORCE_RESOLVE; \
+
DO_IF_FRD(fprintf(stderr, \
+
"Force resolve on. Flags:0x%04x (0x%04x)\n", \
+
Pike_compiler->flags, tmp_)); \
+
} while(0)
+
#define UNSET_FORCE_RESOLVE(OLD) do { \
+
int tmp_ = (Pike_compiler->flags & ~COMPILATION_FORCE_RESOLVE) | \
+
((OLD) & COMPILATION_FORCE_RESOLVE); \
+
DO_IF_FRD(fprintf(stderr, \
+
"Force resolve unset. Flags:0x%04x (0x%04x)\n", \
+
tmp_, Pike_compiler->flags)); \
+
Pike_compiler->flags = tmp_; \
+
} while(0)
+
extern struct pike_string *this_program_string; #define LFUN___INIT 0