1/*
2   +----------------------------------------------------------------------+
3   | Zend Engine                                                          |
4   +----------------------------------------------------------------------+
5   | Copyright (c) 1998-2016 Zend Technologies Ltd. (http://www.zend.com) |
6   +----------------------------------------------------------------------+
7   | This source file is subject to version 2.00 of the Zend license,     |
8   | that is bundled with this package in the file LICENSE, and is        |
9   | available through the world-wide-web at the following url:           |
10   | http://www.zend.com/license/2_00.txt.                                |
11   | If you did not receive a copy of the Zend license and are unable to  |
12   | obtain it through the world-wide-web, please send a note to          |
13   | license@zend.com so we can mail you a copy immediately.              |
14   +----------------------------------------------------------------------+
15   | Authors: Andi Gutmans <andi@zend.com>                                |
16   |          Zeev Suraski <zeev@zend.com>                                |
17   |          Dmitry Stogov <dmitry@zend.com>                             |
18   +----------------------------------------------------------------------+
19*/
20
21/* $Id$ */
22
23#include "zend.h"
24#include "zend_globals.h"
25#include "zend_variables.h"
26#include "zend_API.h"
27#include "zend_objects_API.h"
28
29ZEND_API void zend_objects_store_init(zend_objects_store *objects, uint32_t init_size)
30{
31	objects->object_buckets = (zend_object **) emalloc(init_size * sizeof(zend_object*));
32	objects->top = 1; /* Skip 0 so that handles are true */
33	objects->size = init_size;
34	objects->free_list_head = -1;
35	memset(&objects->object_buckets[0], 0, sizeof(zend_object*));
36}
37
38ZEND_API void zend_objects_store_destroy(zend_objects_store *objects)
39{
40	efree(objects->object_buckets);
41	objects->object_buckets = NULL;
42}
43
44ZEND_API void zend_objects_store_call_destructors(zend_objects_store *objects)
45{
46	if (objects->top > 1) {
47		uint32_t i;
48		for (i = 1; i < objects->top; i++) {
49			zend_object *obj = objects->object_buckets[i];
50			if (IS_OBJ_VALID(obj)) {
51				if (!(GC_FLAGS(obj) & IS_OBJ_DESTRUCTOR_CALLED)) {
52					GC_FLAGS(obj) |= IS_OBJ_DESTRUCTOR_CALLED;
53					GC_REFCOUNT(obj)++;
54					obj->handlers->dtor_obj(obj);
55					GC_REFCOUNT(obj)--;
56				}
57			}
58		}
59	}
60}
61
62ZEND_API void zend_objects_store_mark_destructed(zend_objects_store *objects)
63{
64	if (objects->object_buckets && objects->top > 1) {
65		zend_object **obj_ptr = objects->object_buckets + 1;
66		zend_object **end = objects->object_buckets + objects->top;
67
68		do {
69			zend_object *obj = *obj_ptr;
70
71			if (IS_OBJ_VALID(obj)) {
72				GC_FLAGS(obj) |= IS_OBJ_DESTRUCTOR_CALLED;
73			}
74			obj_ptr++;
75		} while (obj_ptr != end);
76	}
77}
78
79ZEND_API void zend_objects_store_free_object_storage(zend_objects_store *objects)
80{
81	zend_object **obj_ptr, **end, *obj;
82
83	if (objects->top <= 1) {
84		return;
85	}
86
87	/* Free object contents, but don't free objects themselves, so they show up as leaks */
88	end = objects->object_buckets + 1;
89	obj_ptr = objects->object_buckets + objects->top;
90
91	do {
92		obj_ptr--;
93		obj = *obj_ptr;
94		if (IS_OBJ_VALID(obj)) {
95			if (!(GC_FLAGS(obj) & IS_OBJ_FREE_CALLED)) {
96				GC_FLAGS(obj) |= IS_OBJ_FREE_CALLED;
97				if (obj->handlers->free_obj) {
98					GC_REFCOUNT(obj)++;
99					obj->handlers->free_obj(obj);
100					GC_REFCOUNT(obj)--;
101				}
102			}
103		}
104	} while (obj_ptr != end);
105}
106
107
108/* Store objects API */
109
110ZEND_API void zend_objects_store_put(zend_object *object)
111{
112	int handle;
113
114	if (EG(objects_store).free_list_head != -1) {
115		handle = EG(objects_store).free_list_head;
116		EG(objects_store).free_list_head = GET_OBJ_BUCKET_NUMBER(EG(objects_store).object_buckets[handle]);
117	} else {
118		if (EG(objects_store).top == EG(objects_store).size) {
119			EG(objects_store).size <<= 1;
120			EG(objects_store).object_buckets = (zend_object **) erealloc(EG(objects_store).object_buckets, EG(objects_store).size * sizeof(zend_object*));
121		}
122		handle = EG(objects_store).top++;
123	}
124	object->handle = handle;
125	EG(objects_store).object_buckets[handle] = object;
126}
127
128#define ZEND_OBJECTS_STORE_ADD_TO_FREE_LIST(handle)															\
129            SET_OBJ_BUCKET_NUMBER(EG(objects_store).object_buckets[handle], EG(objects_store).free_list_head);	\
130			EG(objects_store).free_list_head = handle;
131
132ZEND_API void zend_objects_store_free(zend_object *object) /* {{{ */
133{
134	uint32_t handle = object->handle;
135	void *ptr = ((char*)object) - object->handlers->offset;
136
137	GC_REMOVE_FROM_BUFFER(object);
138	efree(ptr);
139	ZEND_OBJECTS_STORE_ADD_TO_FREE_LIST(handle);
140}
141/* }}} */
142
143ZEND_API void zend_objects_store_del(zend_object *object) /* {{{ */
144{
145	/*	Make sure we hold a reference count during the destructor call
146		otherwise, when the destructor ends the storage might be freed
147		when the refcount reaches 0 a second time
148	 */
149	if (EG(objects_store).object_buckets &&
150	    IS_OBJ_VALID(EG(objects_store).object_buckets[object->handle])) {
151		if (GC_REFCOUNT(object) == 0) {
152			int failure = 0;
153
154			if (!(GC_FLAGS(object) & IS_OBJ_DESTRUCTOR_CALLED)) {
155				GC_FLAGS(object) |= IS_OBJ_DESTRUCTOR_CALLED;
156
157				if (object->handlers->dtor_obj) {
158					GC_REFCOUNT(object)++;
159					zend_try {
160						object->handlers->dtor_obj(object);
161					} zend_catch {
162						failure = 1;
163					} zend_end_try();
164					GC_REFCOUNT(object)--;
165				}
166			}
167
168			if (GC_REFCOUNT(object) == 0) {
169				uint32_t handle = object->handle;
170				void *ptr;
171
172				EG(objects_store).object_buckets[handle] = SET_OBJ_INVALID(object);
173				if (!(GC_FLAGS(object) & IS_OBJ_FREE_CALLED)) {
174					GC_FLAGS(object) |= IS_OBJ_FREE_CALLED;
175					if (object->handlers->free_obj) {
176						zend_try {
177							GC_REFCOUNT(object)++;
178							object->handlers->free_obj(object);
179							GC_REFCOUNT(object)--;
180						} zend_catch {
181							failure = 1;
182						} zend_end_try();
183					}
184				}
185				ptr = ((char*)object) - object->handlers->offset;
186				GC_REMOVE_FROM_BUFFER(object);
187				efree(ptr);
188				ZEND_OBJECTS_STORE_ADD_TO_FREE_LIST(handle);
189			}
190
191			if (failure) {
192				zend_bailout();
193			}
194		} else {
195			GC_REFCOUNT(object)--;
196		}
197	}
198}
199/* }}} */
200
201/* zend_object_store_set_object:
202 * It is ONLY valid to call this function from within the constructor of an
203 * overloaded object.  Its purpose is to set the object pointer for the object
204 * when you can't possibly know its value until you have parsed the arguments
205 * from the constructor function.  You MUST NOT use this function for any other
206 * weird games, or call it at any other time after the object is constructed.
207 * */
208ZEND_API void zend_object_store_set_object(zval *zobject, zend_object *object)
209{
210	EG(objects_store).object_buckets[Z_OBJ_HANDLE_P(zobject)] = object;
211}
212
213/* Called when the ctor was terminated by an exception */
214ZEND_API void zend_object_store_ctor_failed(zend_object *obj)
215{
216	GC_FLAGS(obj) |= IS_OBJ_DESTRUCTOR_CALLED;
217}
218
219ZEND_API zend_object_handlers *zend_get_std_object_handlers(void)
220{
221	return &std_object_handlers;
222}
223
224/*
225 * Local variables:
226 * tab-width: 4
227 * c-basic-offset: 4
228 * indent-tabs-mode: t
229 * End:
230 */
231