fix regression tests

2015-08-07 16:57:53 -05:00
parent dbdae6a930
commit b164f53191
102 changed files with 4996 additions and 1214 deletions
--- a/os/files.c
+++ b/os/files.c
@@ -565,7 +565,7 @@ same_file( USES_REGS1 ) {
    int out;
    struct stat *b1, *b2;
    while ((char *)HR+sizeof(struct stat)*2 > (char *)(ASP-1024)) {
-      if (!Yap_gcl(2*sizeof(struct stat), 2, ENV, gc_P(P,CP))) {
+      if (!Yap_gcl(2*sizeof(struct stat), 2, ENV,Yap_gcP() ) ) {
 	Yap_Error(OUT_OF_STACK_ERROR, TermNil, LOCAL_ErrorMessage);
 	return FALSE;
      }