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

fix excessive pruning in meta-calls

Browse Source 
fix Term->int breakage in compiler
improve JPL (at least it does something now for amd64).


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1264 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-03-13 06:26:13 +00:00
parent 7f481cef24
commit 59561e2688
20 changed files with 146 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
C/sysbits.c
View File

@@ -2219,6 +2219,12 @@ p_host_type(void) {
return(Yap_unify(out,ARG1));
}
static Int
p_yap_home(void) {
Term out = MkAtomTerm(Yap_LookupAtom(YAP_HOME_DIR));
return(Yap_unify(out,ARG1));
}
/*
* This is responsable for the initialization of all machine dependant
* predicates
@@ -2391,6 +2397,7 @@ Yap_InitSysPreds(void)
Yap_InitCPred ("$system", 1, p_system, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred ("$rename", 2, p_mv, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred ("$cd", 1, p_cd, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred ("$yap_home", 1, p_yap_home, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred ("$getcwd", 1, p_getcwd, SafePredFlag|SyncPredFlag|HiddenPredFlag);
Yap_InitCPred ("$dir_separator", 1, p_dir_sp, SafePredFlag|HiddenPredFlag);
Yap_InitCPred ("$alarm", 2, p_alarm, SafePredFlag|SyncPredFlag|HiddenPredFlag);