From e321ac764c80ec41485646e4b6f218762e5ef86e Mon Sep 17 00:00:00 2001
From: olle <olle>
Date: Tue, 6 Jul 2004 09:41:46 +0000
Subject: [PATCH]   * fixes compilation on 1.0.*

---
 compiler/scandir.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index e9b5e03514..416be582ff 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -44,7 +44,7 @@ implementation
 
     var
       localswitchesstack: array[0..localswitchesstackmax] of tlocalswitches;
-      localswitchesstackpos: Integer = 0;
+      localswitchesstackpos: Integer;
 
 {*****************************************************************************
                                     Helpers
@@ -1080,12 +1080,15 @@ implementation
         AddDirective('Z4',directive_all, {$ifdef FPCPROCVAR}@{$endif}dir_z4);
       end;
 
-
-
+begin
+  localswitchesstackpos:= 0;
 end.
 {
   $Log$
-  Revision 1.38  2004-07-05 21:49:43  olle
+  Revision 1.39  2004-07-06 09:41:46  olle
+    * fixes compilation on 1.0.*
+
+  Revision 1.38  2004/07/05 21:49:43  olle
     + macpas style: exit, cycle, leave
     + macpas compiler directive: PUSH POP