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

update YAP_Error arguments

Browse Source 
to be able to compile on Windows...


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1263 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes 2005-03-10 18:04:01 +00:00
parent 5493bd29f9
commit 7f481cef24
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
library/system/sys.c
View File

@ -8,8 +8,16 @@
* *
**************************************************************************
* *
* $Id: sys.c,v 1.21 2004-08-11 16:14:54 vsc Exp $ *
* $Id: sys.c,v 1.22 2005-03-10 18:04:01 rslopes Exp $ *
* mods: $Log: not supported by cvs2svn $
* mods: Revision 1.21 2004/08/11 16:14:54 vsc
* mods: whole lot of fixes:
* mods: - memory leak in indexing
* mods: - memory management in WIN32 now supports holes
* mods: - extend Yap interface, more support for SWI-Interface
* mods: - new predicate mktime in system
* mods: - buffer console I/O in WIN32
* mods:
* mods: Revision 1.20 2004/07/23 19:02:09 vsc
* mods: misc fixes
* mods:
@ -469,7 +477,7 @@ p_environ(void)
return(YAP_Unify(t, YAP_ARG2));
}
#else
YAP_Error("environ not available in this configuration");
YAP_Error(0,0L,"environ not available in this configuration");
return(FALSE);
#endif
}
@ -673,7 +681,7 @@ do_system(void)
}
return(YAP_Unify(YAP_ARG2, YAP_MkIntTerm(sys)));
#else
YAP_Error("system not available in this configuration");
YAP_Error(0,0L,"system not available in this configuration");
return(FALSE);
#endif
}
@ -689,7 +697,7 @@ do_shell(void)
int sys;
if (buf == NULL) {
YAP_Error("No Temporary Space for Shell");
YAP_Error(0,0L,"No Temporary Space for Shell");
return(FALSE);
}
#if HAVE_STRNCPY
@ -713,7 +721,7 @@ do_shell(void)
}
return(YAP_Unify(YAP_ARG4, YAP_MkIntTerm(sys)));
#else
YAP_Error("system not available in this configuration");
YAP_Error(0,0L,"system not available in this configuration");
return(FALSE);
#endif
#else