improvements to compiler: merged instructions and fixes for ->

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1338 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-07-06 15:10:18 +00:00
parent f6da8078ae
commit 6979a873cc
29 changed files with 481 additions and 342 deletions
--- a/C/sysbits.c
+++ b/C/sysbits.c
@@ -1785,8 +1785,10 @@ p_shell (void)
      int child = fork ();
      if (child == 0)
 	{			/* let the children go */
-	  execl (shell, shell, "-c", Yap_FileNameBuf, NIL);
-	  exit (TRUE);
+	  if (!execl (shell, shell, "-c", Yap_FileNameBuf, NIL)) {
+	    exit(-1);
+	  }
+	  exit(TRUE);
 	}
      {				/* put the father on wait */
 	int result = child < 0 ||