From 01ec56bec4e2f8e5fe93a0d609ec7b75657eda56 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 24 Sep 1998 15:13:44 +0000
Subject: [PATCH]   * fixed type node which was always set to void :(

---
 compiler/pass_1.pas |  7 +++++--
 compiler/tcld.pas   | 17 ++++++++++++++++-
 2 files changed, 21 insertions(+), 3 deletions(-)

diff --git a/compiler/pass_1.pas b/compiler/pass_1.pas
index be14ab58ac..684e12e82b 100644
--- a/compiler/pass_1.pas
+++ b/compiler/pass_1.pas
@@ -236,7 +236,7 @@ implementation
              firstinline,      {inlinen}
              firstniln,        {niln}
              firsterror,       {errorn}
-             firstnothing,     {typen}
+             firsttype,        {typen}
              firsthnew,        {hnewn}
              firsthdispose,    {hdisposen}
              firstnew,         {newn}
@@ -350,7 +350,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.94  1998-09-23 20:42:22  peter
+  Revision 1.95  1998-09-24 15:13:44  peter
+    * fixed type node which was always set to void :(
+
+  Revision 1.94  1998/09/23 20:42:22  peter
     * splitted pass_1
 
 }
diff --git a/compiler/tcld.pas b/compiler/tcld.pas
index f3d1590249..aac5577b0f 100644
--- a/compiler/tcld.pas
+++ b/compiler/tcld.pas
@@ -30,6 +30,7 @@ interface
     procedure firstassignment(var p : ptree);
     procedure firstfuncret(var p : ptree);
     procedure firstarrayconstruct(var p : ptree);
+    procedure firsttype(var p : ptree);
 
 
 implementation
@@ -381,10 +382,24 @@ implementation
       end;
 
 
+{*****************************************************************************
+                                 Type
+*****************************************************************************}
+
+    procedure firsttype(var p : ptree);
+      begin
+      { do nothing, p^.resulttype is already set }
+      end;
+
+
+
 end.
 {
   $Log$
-  Revision 1.1  1998-09-23 20:42:24  peter
+  Revision 1.2  1998-09-24 15:13:48  peter
+    * fixed type node which was always set to void :(
+
+  Revision 1.1  1998/09/23 20:42:24  peter
     * splitted pass_1
 
 }