From 4dd4bcef577f8569f4c70edf19aab2887375ad75 Mon Sep 17 00:00:00 2001
From: bal <devnull@localhost>
Date: Tue, 13 Aug 1985 14:03:23 +0000
Subject: [PATCH] bug fixed: null-pointer dereference.

---
 lang/basic/src.old/basic.lex | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lang/basic/src.old/basic.lex b/lang/basic/src.old/basic.lex
index 69b95686..526b37cf 100644
--- a/lang/basic/src.old/basic.lex
+++ b/lang/basic/src.old/basic.lex
@@ -232,7 +232,7 @@ lookup()
 	for(c=cptr; *c && isalnum(*c);c++) 
 	if( isupper(*c) )
 		*c= tolower((*c));
-	for(k= keywords+kex[*cptr-'a']; *(k->name)== *cptr;k++)
+	for(k= keywords+kex[*cptr-'a']; k->name != 0 && *(k->name)== *cptr;k++)
 	if( strncmp(cptr,k->name,k->length)==0)
 	{
 		/* check functions first*/