1 /* src/vm/assertion.c - assertion options
3 Copyright (C) 2007, 2008
4 CACAOVM - Verein zur Foerderung der freien virtuellen Maschine CACAO
6 This file is part of CACAO.
8 This program is free software; you can redistribute it and/or
9 modify it under the terms of the GNU General Public License as
10 published by the Free Software Foundation; either version 2, or (at
11 your option) any later version.
13 This program is distributed in the hope that it will be useful, but
14 WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
31 #include "mm/memory.h"
33 #include "toolbox/list.h"
35 #include "vm/assertion.h"
36 #include "vm/global.h"
41 /* -ea/-da options ************************************************************/
43 list_t *list_assertion_names = (list_t *)NULL;
44 int32_t assertion_class_count = 0;
45 int32_t assertion_package_count = 0;
46 bool assertion_user_enabled = false;
47 bool assertion_system_enabled = false;
50 /* assertion_ea_da *************************************************************
52 Handle -ea:/-enableassertions: and -da:/-disableassertions: options.
54 *******************************************************************************/
56 void assertion_ea_da(const char *name, bool enabled)
61 assertion_name_t *item;
65 assertion_user_enabled = enabled;
70 len = os_strlen(name);
72 if (name[len - 1] == '/') {
76 buf = os_strdup(name);
79 vm_abort("assertion_ea_da: strdup failed: %s", strerror(errno));
82 if ((len > 2) && (strcmp(name + (len - 3), "...") == 0)) {
84 assertion_package_count += 1;
85 #if defined(WITH_JAVA_RUNTIME_LIBRARY_OPENJDK)
93 assertion_class_count += 1;
98 for (i = 0; i < len; i++) {
99 #if defined(WITH_JAVA_RUNTIME_LIBRARY_OPENJDK)
110 item = NEW(assertion_name_t);
112 item->enabled = enabled;
113 item->package = package;
115 if (list_assertion_names == NULL) {
116 list_assertion_names = list_create(OFFSET(assertion_name_t, linkage));
119 list_add_last(list_assertion_names, item);
124 * These are local overrides for various environment variables in Emacs.
125 * Please do not remove this and leave it at the end of the file, where
126 * Emacs will automagically detect them.
127 * ---------------------------------------------------------------------
130 * indent-tabs-mode: t
134 * vim:noexpandtab:sw=4:ts=4: