1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#ifndef UU_PORT_H
#define UU_PORT_H
#ifdef cBOOL
#undef cBOOL
#endif
#define cBOOL(cbool) ((bool) (cbool))
#ifdef EXPECT
#undef EXPECT
#ifdef HAS_BUILTIN_EXPECT
# define EXPECT(expr,val) __builtin_expect(expr,val)
#else
# define EXPECT(expr,val) (expr)
#endif
#endif
#ifdef LIKELY
#undef LIKELY
#define LIKELY(cond) EXPECT(cBOOL(cond),TRUE)
#endif
#ifdef UNLIKELY
#undef UNLIKELY
#define UNLIKELY(cond) EXPECT(cBOOL(cond),FALSE)
#endif
#ifdef PERL_MALLOC_WRAP
# ifdef _MEM_WRAP_NEEDS_RUNTIME_CHECK
# undef _MEM_WRAP_NEEDS_RUNTIME_CHECK
# endif
# define _MEM_WRAP_NEEDS_RUNTIME_CHECK(n,t) \
(sizeof(MEM_SIZE) < sizeof(n) || sizeof(t) > ((MEM_SIZE)1 << 8*(sizeof(MEM_SIZE) - sizeof(n))))
# ifdef _MEM_WRAP_WILL_WRAP
# undef _MEM_WRAP_WILL_WRAP
# endif
# define _MEM_WRAP_WILL_WRAP(n,t) \
((_MEM_WRAP_NEEDS_RUNTIME_CHECK(n,t) ? (MEM_SIZE)(n) : MEM_SIZE_MAX/sizeof(t)) > MEM_SIZE_MAX/sizeof(t))
# ifdef MEM_WRAP_CHECK
# undef MEM_WRAP_CHECK
# endif
# define MEM_WRAP_CHECK(n,t) \
(void)(UNLIKELY(_MEM_WRAP_WILL_WRAP(n,t)) && (Perl_croak_nocontext("panic: memory wrap"),0))
#endif /* PERL_MALLOC_WRAP */
#ifndef MUTEX_LOCK
# define MUTEX_LOCK(m) NOOP
#endif
#ifndef MUTEX_UNLOCK
# define MUTEX_UNLOCK(m) NOOP
#endif
#ifndef MUTEX_INIT
# define MUTEX_INIT(m) NOOP
#endif
#ifndef MUTEX_DESTROY
# define MUTEX_DESTROY(m) NOOP
#endif
#ifndef SVf_THINKFIRST
#define SVf_THINKFIRST (SVf_READONLY|SVf_PROTECT|SVf_ROK|SVf_FAKE \
|SVs_RMG|SVf_IsCOW)
#endif
#ifndef SvTHINKFIRST
#define SvTHINKFIRST(sv) (SvFLAGS(sv) & SVf_THINKFIRST
#endif
#ifndef SV_CHECK_THINKFIRST_COW_DROP
#define SV_CHECK_THINKFIRST_COW_DROP(sv) \
if (SvTHINKFIRST(sv)) \
sv_force_normal_flags(sv, SV_COW_DROP_PV)
#endif
#ifndef CVf_AUTOLOAD
#define CvAUTOLOAD_off(cv) NOOP
#endif
#ifndef ibcmp
#define ibcmp Perl_my_ibcmp
I32 Perl_my_ibcmp(pTHX_ const char *s1, const char *s2, register I32 len) {
register U8 *a = (U8 *)s1;
register U8 *b = (U8 *)s2;
while (len--) {
if (*a != *b && *a != PL_fold[*b])
return 1;
a++,b++;
}
return 0;
}
#endif
#ifndef NOT_REACHED
#define NOT_REACHED
#endif
#ifndef croak_caller
#define croak_caller my_croak_caller
#endif
#endif
/* ex:set ts=2 sw=2 itab=spaces: */
|
