fix limit on atoms to ints

C/c_interface.c

@@ -4151,6 +4151,17 @@ YAP_AtomToInt(Atom At)
   SWI_Atoms[AtomTranslations] = At;
   Yap_PutAtomTranslation(At, AtomTranslations);
   AtomTranslations++;
+  if (AtomTranslations == MaxAtomTranslations) {
+    Atom * nt = (Atom *)malloc(sizeof(Atom)*2*MaxAtomTranslations), *ot = SWI_Atoms;
+    if (nt == NULL) {
+      Yap_Error(SYSTEM_ERROR,MkAtomTerm(At),"No more room for translations");
+      return -1;
+    }
+    memcpy(nt, ot, sizeof(Atom)*MaxAtomTranslations);
+    SWI_Atoms = nt;
+    free( ot );
+    MaxAtomTranslations *= 2;
+  }
   return AtomTranslations-1;
 }
 

C/init.c

@@ -1016,7 +1016,9 @@ InitSWIAtoms(void)
 {
   extern atom_t ATOM_;
 
-  int i=0, j=0;
+  int j=0;
+  MaxAtomTranslations = 2*N_SWI_ATOMS ;
+  SWI_Atoms = (Atom *)malloc(sizeof(Atom)*MaxAtomTranslations);
 #include "iswiatoms.h"
   Yap_InitSWIHash();
   ATOM_ = PL_new_atom("");