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

make var names available as a global var

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-03-04 09:35:09 +00:00
parent 9d48f3c3c0
commit 0b90870185
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/iopreds.c
View File

@ -655,7 +655,8 @@ Yap_read_term(term_t t0, IOSTREAM *inp_stream, struct read_data_t *rd)
TR = old_TR; TR = old_TR;
} }
} }
if (!Yap_unify(v, Yap_GetFromSlot( rd->varnames PASS_REGS))) { LOCAL_VarNames = v;
if (!Yap_unify(v, Yap_GetFromSlot( rd->varnames PASS_REGS ))) {
CurrentModule = OCurrentModule; CurrentModule = OCurrentModule;
return FALSE; return FALSE;
} }
@ -682,7 +683,7 @@ Yap_read_term(term_t t0, IOSTREAM *inp_stream, struct read_data_t *rd)
TR = old_TR; TR = old_TR;
} }
} }
if (!Yap_unify(v, Yap_GetFromSlot( rd->variables PASS_REGS))) { if (!Yap_unify(v, Yap_GetFromSlot( rd->variables PASS_REGS ) )) {
CurrentModule = OCurrentModule; CurrentModule = OCurrentModule;
return FALSE; return FALSE;
} }
@ -802,7 +803,7 @@ p_char_conversion( USES_REGS1 )
} }
/* check if we do have a table for converting characters */ /* check if we do have a table for converting characters */
if (CharConversionTable2 == NULL) { if (CharConversionTable2 == NULL) {
GET_LD GET_LD
int i; int i;
/* don't create a table if we don't need to */ /* don't create a table if we don't need to */