diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix garbage collector for dealing with float/longint trie instructions

Browse Source
This commit is contained in:
Ricardo Rocha
2009-08-07 04:34:48 +01:00
parent 7d50687c46
commit 981bee74f0
2 changed files with 17 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
OPTYap/tab.tries.insts.i
View File

@@ -521,10 +521,11 @@
** trie_extension **
** ------------------------ */
#define stack_trie_extension_instr() \
*aux_ptr-- = TrNode_entry(node); \
*aux_ptr = heap_arity + 1; \
YENV = aux_ptr; \
#define stack_trie_extension_instr() \
*aux_ptr-- = 0; /* float/longint extension mark */ \
*aux_ptr-- = TrNode_entry(node); \
*aux_ptr = heap_arity + 2; \
YENV = aux_ptr; \
next_trie_instruction(node)
@@ -1233,13 +1234,15 @@
Term t;
#if SIZEOF_DOUBLE == 2 * SIZEOF_INT_P
heap_arity -= 4;
*t_dbl = *++aux_ptr;
++aux_ptr; /* jump the float/longint extension mark */
*(t_dbl + 1) = *++aux_ptr;
heap_arity -= 2;
#else /* SIZEOF_DOUBLE == SIZEOF_INT_P */
heap_arity -= 2;
*t_dbl = *++aux_ptr;
heap_arity -= 1;
#endif /* SIZEOF_DOUBLE x SIZEOF_INT_P */
++aux_ptr; /* jump the float/longint extension mark */
t = MkFloatTerm(dbl);
stack_trie_float_longint_instr();
ENDPBOp();
@@ -1266,9 +1269,11 @@
int heap_arity = *aux_ptr;
int vars_arity = *(aux_ptr + heap_arity + 1);
int subs_arity = *(aux_ptr + heap_arity + 2);
Term t = MkLongIntTerm(*++aux_ptr);
Term t;
heap_arity -= 1;
heap_arity -= 2;
t = MkLongIntTerm(*++aux_ptr);
++aux_ptr; /* jump the float/longint extension mark */
stack_trie_float_longint_instr();
ENDPBOp();