atom_oncat was not allocating memory right

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@353 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/errors.c

@@ -344,6 +344,8 @@ Error (yap_error_number type, Term where, char *format,...)
     unify(t, where);
     where = Deref(where);
   }
+  /* Exit Abort Mode, if we were there */
+  PrologMode &= ~AbortMode;
   PrologMode |= InErrorMode;
   where = CopyTerm(where);
   va_start (ap, format);

C/stdpreds.c

@@ -622,7 +622,7 @@ static Int
 p_atom_concat(void)
 {
   Term t1 = Deref(ARG1);
-  char *cptr = (char *)PreAllocCodeSpace(), *cpt0;
+  char *cptr = ((AtomEntry *)PreAllocCodeSpace())->StrOfAE, *cpt0;
   char *top = (char *)AuxSp;
   char *atom_str;
   UInt sz;
@@ -670,8 +670,8 @@ p_atom_concat(void)
   if (t1 == TermNil) {
     Term tout;
     cptr[0] = '\0';
-    ReleasePreAllocCodeSpace((ADDR)cpt0);
     tout = MkAtomTerm(LookupAtom(cpt0));
+    ReleasePreAllocCodeSpace((ADDR)cpt0);
     return(unify(ARG2, tout));
   }
   ReleasePreAllocCodeSpace((ADDR)cpt0);

C/sysbits.c

@@ -2033,7 +2033,7 @@ set_fpu_exceptions(int flag)
 #if defined(__hpux)
     fpsetmask(FP_X_INV|FP_X_DZ|FP_X_OFL|FP_X_UFL);
 #endif
-#if HAVE_FPU_CONTROL_H && i386
+#if HAVE_FPU_CONTROL_H && i386 && defined(__GNUC__)
     /* I shall ignore denormalization and precision errors */
     int v = _FPU_IEEE & ~(_FPU_MASK_IM|_FPU_MASK_ZM|_FPU_MASK_OM|_FPU_MASK_UM);
     _FPU_SETCW(v);
@@ -2047,7 +2047,7 @@ set_fpu_exceptions(int flag)
 #if defined(__hpux)
     fpsetmask(FP_X_CLEAR);
 #endif
-#if HAVE_FPU_CONTROL_H && i386
+#if HAVE_FPU_CONTROL_H && i386 && defined(__GNUC__)
     /* this will probably not work in older releases of Linux */
     int v = _FPU_IEEE;
    _FPU_SETCW(v);

README.nt

@@ -38,23 +38,23 @@ To the best of my knowledge, Yap compiles cleanly under VC++ release
 
 First, it is a good idea to build Yap as a DLL:
 
-1. create a project named yapdll using File.New. The project will be a
+1. create a project named yap using File.New. The project will be a
 DLL project, initially *empty*.
 
-NOTICE: Either the project is named yapdll or you must replace
-YAPDLL_EXPORTS to match your project names in c_interface.h and
+NOTICE: Either the project is named yap or you must replace
+YAP_EXPORTS to match your project names in c_interface.h and
 c_interface.c.
 
-o add all .c files in the $YAPSRC/C directory and in the
-$YAPSRC/OPTYap directory to the "Source Files" (use FileView).
+o Use the FileView tab to add all .c files in the $YAPSRC/C directory
+and in the $YAPSRC/OPTYap directory to the "Source Files".
 
-o add all .h files in the $YAPSRC/H director, $YAPSRC/include directory and in the $YAPSRC/OPTYap subdirectory to the "Header Files".
+o add all .h files in the $YAPSRC/H directory, $YAPSRC/include directory and in the $YAPSRC/OPTYap subdirectory to the "Header Files".
 
 o include the .h from .m4 files and config.h. You can find these files at $YAPSRC/VC/include.
 
 o You may want to go to Build.Set Active Configuration and set Project Type to Release
 
-o set Project.Project Settings.C/C++.Preprocessor.Additional Include Directories to include the $YAPSRC/H, $YAPSRC/VC/include, $YAPSRC/OPTYap and $YAPSRC/include.
+o set Project.Settings.C/C++.Preprocessor.Additional Include Directories to include the $YAPSRC/H, $YAPSRC/VC/include, $YAPSRC/OPTYap and $YAPSRC/include.
 
 The syntax is:
 

changes4.3.html

@@ -16,6 +16,13 @@
 
 <h2>Yap-4.3.21:</h2>
 <ul>
+	<li>FIXED: atom_concat was not allocating heap correctly (Nicos Angelopoulos).</li>
+	<li>NEW: ord_intersection/4 (Nicos Angelopoulos).</li>
+	<li>NEW: file_search_path/2 (Nicos Angelopoulos).</li>
+	<li>FIXED: fix yap_flag(host_type).</li>
+	<li>FIXED: make Yap compile under VC++ again.</li>
+	<li>FIXED: don't try to handle X/0 the ISO way.</li>
+	<li>FIXED: make Yap runnable in WIN98.</li>
 	<li>FIXED: access to non-existing dynamic array should not core-dump.</li>
 	<li>FIXED: abolish(_) should give error in ISO mode.</li>
 	<li>NEW: yap_flag(argv,L) (Nicos Angelopoulos).</li>

configure

@@ -1965,7 +1965,7 @@ test -n "$target_alias" &&
   program_prefix=${target_alias}-
 
 cat >>confdefs.h <<EOF
-#define HOST_ALIAS "${host_alias}"
+#define HOST_ALIAS "${host}"
 EOF
 
 if test "$GCC" = "yes"

configure.in

@@ -119,7 +119,7 @@ eval "AC_DEFINE(UsrTrailSpace,($yap_cv_trail_space))"
 
 AC_CANONICAL_SYSTEM
 
-AC_DEFINE_UNQUOTED(HOST_ALIAS,"${host_alias}")
+AC_DEFINE_UNQUOTED(HOST_ALIAS,"${host}")
 
 dnl Compilation Flags
 if test "$GCC" = "yes"