cuda fixes by Carlos and other diverse (fact init, configure).

This commit is contained in:
Vítor Santos Costa
2013-10-12 12:46:01 +01:00
parent 0dc78f106b
commit 691e977a68
10 changed files with 124 additions and 24 deletions

View File

@@ -85,7 +85,6 @@ in_hash(ADDR key)
static inline atom_t
AtomToSWIAtom(Atom at)
{
atom_t ats;
TranslationEntry *p;
if ((p = Yap_GetTranslationProp(at)) != NULL)
@@ -96,7 +95,7 @@ AtomToSWIAtom(Atom at)
static inline Atom
SWIAtomToAtom(atom_t at)
{
if ((CELL)at < 2*N_SWI_ATOMS+1)
if ((CELL)at & 1)
return SWI_Atoms[at/2];
return (Atom)at;
}