better emulation of SWI atom_t and functor_t.

C/init.c

@@ -28,6 +28,7 @@ static char     SccsId[] = "%W% %G%";
 #include "alloc.h"
 #include "clause.h"
 #include "Foreign.h"
+
 #ifdef LOW_LEVEL_TRACER
 #include "tracer.h"
 #endif
@@ -1067,6 +1068,16 @@ InitLogDBErasedMarker(void)
   INIT_CLREF_COUNT(Yap_heap_regs->logdb_erased_marker);
 }
 
+#define SWIAtomToAtom(X) SWI_Atoms[(X)>>1]
+
+static void 
+InitSWIAtoms(void)
+{
+  int i=0, j=0;
+#include "iswiatoms.h"
+  Yap_InitSWIHash();
+}
+
 static void 
 InitAtoms(void)
 {