From f2d894e78f7404aeb7ed412f2f7151647ec5e3ab Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 1 Dec 1999 22:43:17 +0000
Subject: [PATCH]   * fixed sigsegv with casedef=nil

---
 compiler/pstatmnt.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/pstatmnt.pas b/compiler/pstatmnt.pas
index 364295cc08..5834c7e4e6 100644
--- a/compiler/pstatmnt.pas
+++ b/compiler/pstatmnt.pas
@@ -196,7 +196,8 @@ unit pstatmnt;
          do_firstpass(caseexpr);
          casedeferror:=false;
          casedef:=caseexpr^.resulttype;
-         if not(is_ordinal(casedef) or is_64bitint(casedef)) then
+         if (not assigned(casedef)) or
+            not(is_ordinal(casedef) or is_64bitint(casedef)) then
           begin
             Message(type_e_ordinal_expr_expected);
             { set error flag so no rangechecks are done }
@@ -1322,7 +1323,10 @@ unit pstatmnt;
 end.
 {
   $Log$
-  Revision 1.114  1999-12-01 12:42:32  peter
+  Revision 1.115  1999-12-01 22:43:17  peter
+    * fixed sigsegv with casedef=nil
+
+  Revision 1.114  1999/12/01 12:42:32  peter
     * fixed bug 698
     * removed some notes about unused vars