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

use slots

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-06 12:36:59 +00:00
parent 3704392811
commit c104fb946d
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
os/readutil.c
View File

@ -196,18 +196,20 @@ read_stream_to_codes(USES_REGS1)
*HR = t; *HR = t;
HR+=2; HR+=2;
h0 = HR-1; h0 = HR-1;
yhandle_t news, news1, st = Yap_StartSlots();
if (HR >= ASP-1024) { if (HR >= ASP-1024) {
RESET_VARIABLE(h0); RESET_VARIABLE(h0);
ARG4 = AbsPair(HBASE); news = Yap_InitSlot(AbsPair(HBASE));
ARG5 = (CELL)h0; news1 = Yap_InitSlot( (CELL)(h0));
if (!Yap_gcl((ASP-HBASE)*sizeof(CELL), 5, ENV, Yap_gcP())) { if (!Yap_gcl((ASP-HBASE)*sizeof(CELL), 3, ENV, Yap_gcP())) {
Yap_Error(RESOURCE_ERROR_STACK, ARG1, "read_stream_to_codes/3"); Yap_Error(RESOURCE_ERROR_STACK, ARG1, "read_stream_to_codes/3");
return FALSE; return false;
} }
/* build a legal term again */ /* build a legal term again */
h0 = (CELL *)ARG5; h0 = (CELL*)(Yap_GetFromSlot(news1));
HBASE = RepPair(ARG4); HBASE = RepPair(Yap_GetFromSlot(news));
} }
Yap_CloseSlots(st);
} }
UNLOCK(GLOBAL_Stream[sno].streamlock); UNLOCK(GLOBAL_Stream[sno].streamlock);
if (HR == HBASE) if (HR == HBASE)