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

CACHE REGS

Browse Source
This commit is contained in:
Miguel Areias 2012-02-14 14:32:24 +00:00
parent 8c556f21ba
commit 952ef65a2e
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
os/pl-write.c
View File

@ -168,7 +168,9 @@ format_float(double f, char *buf)
char * char *
varName(term_t t, char *name) varName(term_t t, char *name)
{ CELL *adr = (CELL *)Yap_GetFromSlot(t); {
CACHE_REGS
CELL *adr = (CELL *)Yap_GetFromSlot(t PASS_REGS);
if (IsAttVar(adr)) { if (IsAttVar(adr)) {
Ssprintf(name, "_D%ld", (CELL)adr - (CELL)H0); Ssprintf(name, "_D%ld", (CELL)adr - (CELL)H0);
@ -183,6 +185,7 @@ varName(term_t t, char *name)
static bool static bool
writeTerm(term_t t, int prec, write_options *options) writeTerm(term_t t, int prec, write_options *options)
{ {
CACHE_REGS
UInt yap_flag = Use_SWI_Stream_f; UInt yap_flag = Use_SWI_Stream_f;
int flags = options->flags; int flags = options->flags;
Term old_module; Term old_module;
@ -207,7 +210,7 @@ writeTerm(term_t t, int prec, write_options *options)
yap_flag |= Blob_Portray_f; yap_flag |= Blob_Portray_f;
old_module = CurrentModule; old_module = CurrentModule;
CurrentModule = options->module; CurrentModule = options->module;
Yap_plwrite(Yap_GetFromSlot(t), options->out, options->max_depth, yap_flag, prec); Yap_plwrite(Yap_GetFromSlot(t PASS_REGS), options->out, options->max_depth, yap_flag, prec);
CurrentModule = old_module; CurrentModule = old_module;
return TRUE; return TRUE;
} }