4 #include "util.h" /* XSH_ASSERT() */
8 # define XSH_POISON(D, N, T) Poison((D), (N), T)
11 # define XSH_POISON_NEW(D, N, T) PoisonNew((D), (N), T)
12 # define XSH_HAS_POISON_NEW 1
15 # define XSH_POISON_FREE(D, N, T) PoisonFree((D), (N), T)
16 # define XSH_HAS_POISON_FREE 1
21 # ifndef XSH_POISON_NEW
22 # define XSH_POISON_NEW(D, N, T) XSH_POISON(D, N, T)
23 # define XSH_HAS_POISON_NEW 1
25 # ifndef XSH_POISON_FREE
26 # define XSH_POISON_FREE(D, N, T) XSH_POISON(D, N, T)
27 # define XSH_HAS_POISON_FREE 1
31 #ifndef XSH_HAS_POISON_NEW
32 # define XSH_HAS_POISON_NEW 0
34 #ifndef XSH_HAS_POISON_FREE
35 # define XSH_HAS_POISON_FREE 0
38 /* --- Shared memory ------------------------------------------------------- */
40 /* Context for PerlMemShared_*() functions */
41 #ifdef PERL_IMPLICIT_SYS
53 /* ... xsh_shared_alloc() .................................................. */
55 #if XSH_HAS_POISON_NEW
57 static void *xsh_shared_alloc(pPMS_ size_t size) {
58 #define xsh_shared_alloc(S) xsh_shared_alloc(aPMS_ (S))
61 p = PerlMemShared_malloc(size);
64 XSH_POISON_NEW(p, size, char);
69 #else /* XSH_HAS_POISON_NEW */
71 #define xsh_shared_alloc(S) PerlMemShared_malloc(S)
73 #endif /* !XSH_HAS_POISON_NEW */
75 #define XSH_SHARED_ALLOC(D, N, T) ((D) = xsh_shared_alloc((N) * sizeof(T)))
77 /* ... xsh_shared_calloc() ................................................. */
79 #define xsh_shared_calloc(C, S) PerlMemShared_calloc((C), (S))
81 #define XSH_SHARED_CALLOC(D, N, T) ((D) = xsh_shared_calloc((N), sizeof(T)))
83 /* ... xsh_shared_free() ................................................... */
85 #if XSH_HAS_POISON_FREE
87 static void xsh_shared_free(pPMS_ void *p, size_t size) {
88 #define xsh_shared_free(P, S) xsh_shared_free(aPMS_ (P), (S))
90 XSH_POISON_FREE(p, size, char);
92 PerlMemShared_free(p);
97 #else /* XSH_HAS_POISON_FREE */
99 #define xsh_shared_free(P, S) PerlMemShared_free(P)
101 #endif /* !XSH_HAS_POISON_FREE */
103 #define XSH_SHARED_FREE(D, N, T) (xsh_shared_free((D), (N) * sizeof(T)), (D) = NULL)
105 /* ... xsh_shared_realloc() ................................................ */
107 #if XSH_HAS_POISON_NEW && XSH_HAS_POISON_FREE
109 static void *xsh_shared_realloc(pPMS_ void *p, size_t old_size, size_t new_size) {
110 #define xsh_shared_realloc(P, OS, NS) xsh_shared_realloc(aPMS_ (P), (OS), (NS))
114 return xsh_shared_alloc(new_size);
117 xsh_shared_free(p, old_size);
118 return xsh_shared_alloc(1);
121 if (new_size < old_size)
122 XSH_POISON_FREE(((char *) p) + new_size, old_size - new_size, char);
124 q = PerlMemShared_realloc(p, new_size);
127 if (old_size < new_size)
128 XSH_POISON_NEW(((char *) q) + old_size, new_size - old_size, char);
133 #else /* XSH_HAS_POISON_NEW && XSH_HAS_POISON_FREE */
135 #define xsh_shared_realloc(P, OS, NS) PerlMemShared_realloc((P), (NS))
137 #endif /* !XSH_HAS_POISON_NEW || !XSH_HAS_POISON_FREE */
139 #define XSH_SHARED_REALLOC(D, OL, NL, T) ((D) = xsh_shared_realloc((D), (OL) * sizeof(T), (NL) * sizeof(T)))
141 /* ... xsh_shared_recalloc() ............................................... */
143 static void *xsh_shared_recalloc(pPMS_ void *p, size_t old_size, size_t new_size) {
144 #define xsh_shared_recalloc(P, OS, NS) xsh_shared_recalloc(aPMS_ (P), (OS), (NS))
147 #ifdef XSH_POISON_FREE
148 if (new_size < old_size)
149 XSH_POISON_FREE(((char *) p) + new_size, old_size - new_size, char);
150 #endif /* XSH_POISON_FREE */
152 q = PerlMemShared_realloc(p, new_size);
155 if (old_size < new_size)
156 Zero(((char *) q) + old_size, new_size - old_size, char);
161 #define XSH_SHARED_RECALLOC(D, OL, NL, T) ((D) = xsh_shared_recalloc((D), (OL) * sizeof(T), (NL) * sizeof(T)))
163 /* --- Interpreter-local memory -------------------------------------------- */
166 # define Newx(D, N, T) New(0, (D), (N), T)
171 #if XSH_HAS_POISON_NEW
172 # define XSH_LOCAL_ALLOC(D, N, T) (Newx((D), (N), T), XSH_POISON_NEW((D), (N), T))
175 #if XSH_HAS_POISON_FREE
176 # define XSH_LOCAL_FREE(D, N, T) (XSH_POISON_FREE((D), (N), T), Safefree(D))
179 #if XSH_HAS_POISON_NEW && XSH_HAS_POISON_FREE
180 # define XSH_LOCAL_REALLOC(D, OL, NL, T) ((((D) && ((NL) < (OL))) ? XSH_POISON_FREE(((T *) (D)) + (NL), (OL) - (NL), T) : NOOP), Renew((D), (NL), T), (((OL) < (NL)) ? XSH_POISON_NEW(((T *) (D)) + (OL), (NL) - (OL), T) : NOOP))
183 #endif /* !PERL_POISON */
185 #ifndef XSH_LOCAL_ALLOC
186 # define XSH_LOCAL_ALLOC(D, N, T) Newx((D), (N), T)
189 #define XSH_LOCAL_CALLOC(D, N, T) Newxz((D), (N), T)
191 #ifndef XSH_LOCAL_FREE
192 # define XSH_LOCAL_FREE(D, N, T) Safefree(D)
195 #ifndef XSH_LOCAL_REALLOC
196 # define XSH_LOCAL_REALLOC(D, OL, NL, T) Renew((D), (NL), T)
199 #endif /* XSH_MEM_H */