FIX: InitCPred and friends should check for overflow.

2008-09-24 00:59:41 +01:00
parent 139f591458
commit abcb8f99fe
2 changed files with 77 additions and 24 deletions
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -759,6 +759,8 @@ Yap_NewPredPropByAtom(AtomEntry *ae, Term cur_mod)
 {
  Prop p0;
  PredEntry *p = (PredEntry *) Yap_AllocAtomSpace(sizeof(*p));
+  if (!p)
+    return NIL;

 /* Printf("entering %s:%s/0\n", RepAtom(AtomOfTerm(cur_mod))->StrOfAE, ae->StrOfAE); */