fix null pointer reference

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2247 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-05-23 21:06:44 +00:00
parent 501e3d7c30
commit 214644aed4
1 changed files with 2 additions and 1 deletions

View File

@ -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;
}