From 2f9a95274730c0f3c16c0201d5325fcc7b806803 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 28 Aug 2005 12:41:29 +0000
Subject: [PATCH] * better clean up

git-svn-id: trunk@960 -
---
 utils/h2pas/h2pas.pas | 15 +++++++++++----
 utils/h2pas/h2pas.y   | 14 ++++++++++----
 2 files changed, 21 insertions(+), 8 deletions(-)

diff --git a/utils/h2pas/h2pas.pas b/utils/h2pas/h2pas.pas
index 05381fd097..8225a6c2e6 100644
--- a/utils/h2pas/h2pas.pas
+++ b/utils/h2pas/h2pas.pas
@@ -1548,9 +1548,16 @@ begin
          popshift;
          popshift;
          end;
-         if assigned(yyv[yysp-4])then  dispose(yyv[yysp-4],done);
-         if assigned(yyv[yysp-3])then  dispose(yyv[yysp-3],done);
-         if assigned(yyv[yysp-1])then  dispose(yyv[yysp-1],done);
+         if assigned(yyv[yysp-4]) then
+         dispose(yyv[yysp-4],done);
+         if assigned(yyv[yysp-3]) then
+         dispose(yyv[yysp-3],done);
+         if assigned(yyv[yysp-2]) then
+         dispose(yyv[yysp-2],done);
+         if assigned(yyv[yysp-1]) then
+         dispose(yyv[yysp-1],done);
+         if assigned(yyv[yysp-0]) then
+         dispose(yyv[yysp-0],done);
          
        end;
   29 : begin
@@ -8752,4 +8759,4 @@ begin
   PTypeList.Free;
   freedynlibproc.free;
   loaddynlibproc.free;
-end.
+end.
\ No newline at end of file
diff --git a/utils/h2pas/h2pas.y b/utils/h2pas/h2pas.y
index a0ab7806cf..7a9468a9ee 100644
--- a/utils/h2pas/h2pas.y
+++ b/utils/h2pas/h2pas.y
@@ -1473,9 +1473,16 @@ declaration :
              popshift;
              popshift;
           end;
-        if assigned($1)then  dispose($1,done);
-        if assigned($2)then  dispose($2,done);
-        if assigned($4)then  dispose($4,done);
+        if assigned($1) then
+          dispose($1,done);
+        if assigned($2) then
+          dispose($2,done);
+        if assigned($3) then
+          dispose($3,done);
+        if assigned($4) then
+          dispose($4,done);
+        if assigned($5) then
+          dispose($5,done);
      }
      | dec_specifier type_specifier dec_modifier declarator_list systrap_specifier SEMICOLON
      {
@@ -2941,4 +2948,3 @@ begin
   freedynlibproc.free;
   loaddynlibproc.free;
 end.
-