handle non-wide atoms correctly.

2009-03-13 19:00:14 +00:00 · 2009-03-13 19:00:14 +00:00 · 08acf82266
parent a1b58f61e0
commit 08acf82266
1 changed files with 1 additions and 0 deletions
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@ -286,6 +286,7 @@ Yap_LookupMaybeWideAtom(wchar_t *atom)
    len++;
  }
  /* not really a wide atom */
+  p = atom;
  ptr0 = ptr = Yap_AllocCodeSpace(len+1);
  if (!ptr)
    return NIL;