From 214644aed45aa85db3e4600975963cea78edb986 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 23 May 2008 21:06:44 +0000
Subject: [PATCH] fix null pointer reference

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2247 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/iopreds.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index 2631cb2ef..cb4549285 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -3870,7 +3870,8 @@ static Int
       } else {
 	if (tokstart != NULL && tokstart->Tok != Ord (eot_tok)) {
 	  /* we got the end of file from an abort */
-	  if (!strcmp(Yap_ErrorMessage,"Abort")) {
+	  if (Yap_ErrorMessage &&
+	      strcmp(Yap_ErrorMessage,"Abort")) {
 	    Yap_clean_tokenizer(tokstart, Yap_VarTable, Yap_AnonVarTable);
 	    return FALSE;
 	  }