summaryrefslogtreecommitdiffstats
path: root/dimension
diff options
context:
space:
mode:
Diffstat (limited to 'dimension')
-rw-r--r--dimension/common.rules9
-rw-r--r--dimension/directives.rules8
-rw-r--r--dimension/parse.c4
3 files changed, 5 insertions, 16 deletions
diff --git a/dimension/common.rules b/dimension/common.rules
index ef4b3dd..2725925 100644
--- a/dimension/common.rules
+++ b/dimension/common.rules
@@ -437,14 +437,7 @@ COLOR_KEYWORD_GROUP: COLOR_KEYWORD_GROUP_INIT COLOR_KEYWORD_ITEM
;
COLOR_KEYWORD_GROUP_INIT: /* empty */ {
- dmnsn_astnode zero =
- dmnsn_new_astnode(DMNSN_AST_INTEGER, @$);
- zero.ptr = malloc(sizeof(long));
- if (!zero.ptr)
- dmnsn_error(DMNSN_SEVERITY_HIGH,
- "Failed to allocate room for integer.");
- *(long *)zero.ptr = 0;
-
+ dmnsn_astnode zero = dmnsn_new_ast_integer(0);
$$ = dmnsn_eval_vector(zero, symtable);
dmnsn_delete_astnode(zero);
}
diff --git a/dimension/directives.rules b/dimension/directives.rules
index db47bb9..5bbd813 100644
--- a/dimension/directives.rules
+++ b/dimension/directives.rules
@@ -48,13 +48,7 @@ RVALUE: ARITH_EXPR ";" %dprec 2 {
CONDITIONAL: ARITH_EXPR {
/* Force the expression to be evaluated logically */
- dmnsn_astnode zero = dmnsn_new_astnode(DMNSN_AST_INTEGER, @$);
- zero.ptr = malloc(sizeof(long));
- if (!zero.ptr)
- dmnsn_error(DMNSN_SEVERITY_HIGH,
- "Failed to allocate room for integer.");
- *(long *)zero.ptr = 0;
-
+ dmnsn_astnode zero = dmnsn_new_ast_integer(0);
$$ = dmnsn_new_astnode2(DMNSN_AST_OR, @$, zero, $1);
}
| ARITH_EXPR "=" ARITH_EXPR {
diff --git a/dimension/parse.c b/dimension/parse.c
index 6ff5628..bd40ff8 100644
--- a/dimension/parse.c
+++ b/dimension/parse.c
@@ -791,7 +791,9 @@ dmnsn_eval(dmnsn_astnode astnode, dmnsn_symbol_table *symtable)
case DMNSN_AST_NONE:
case DMNSN_AST_INTEGER:
case DMNSN_AST_FLOAT:
- ++*astnode.refcount;
+ do {
+ ++*astnode.refcount;
+ } while (*astnode.refcount <= 1);
return astnode;
case DMNSN_AST_VECTOR: