From ebd2da41dcf64eee8fdc94200c55074b9ba16c59 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 10 Mar 1999 11:23:29 +0000
Subject: [PATCH]  * typecheck for exit(value) : resulttype was not set

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

diff --git a/compiler/pstatmnt.pas b/compiler/pstatmnt.pas
index 07171834da..b480913159 100644
--- a/compiler/pstatmnt.pas
+++ b/compiler/pstatmnt.pas
@@ -690,7 +690,9 @@ unit pstatmnt;
            end
          else
            p:=nil;
-         exit_statement:=gensinglenode(exitn,p);
+         p:=gensinglenode(exitn,p);
+         p^.resulttype:=procinfo.retdef;
+         exit_statement:=p;
       end;
 
 
@@ -1286,7 +1288,10 @@ unit pstatmnt;
 end.
 {
   $Log$
-  Revision 1.70  1999-03-04 13:55:45  pierre
+  Revision 1.71  1999-03-10 11:23:29  pierre
+   * typecheck for exit(value) : resulttype was not set
+
+  Revision 1.70  1999/03/04 13:55:45  pierre
     * some m68k fixes (still not compilable !)
     * new(tobj) does not give warning if tobj has no VMT !