fix argv[0] discovery.

2013-01-13 17:55:13 +00:00
parent ec37045ca3
commit 798afc81c4
16 changed files with 89 additions and 30 deletions
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -4007,8 +4007,11 @@ p_argv( USES_REGS1 )
 static Int 
 p_executable( USES_REGS1 )
 {
-  
-  Yap_TrueFileName (GLOBAL_argv[0], LOCAL_FileNameBuf, FALSE);
+  if (GLOBAL_argv && GLOBAL_argv[0])
+    Yap_TrueFileName (GLOBAL_argv[0], LOCAL_FileNameBuf, FALSE);
+  else
+    strncpy(LOCAL_FileNameBuf,Yap_FindExecutable (), YAP_FILENAME_MAX) ;
+
  return Yap_unify(MkAtomTerm(Yap_LookupAtom(LOCAL_FileNameBuf)),ARG1);
 }