paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 15:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes compilation on 1.0.*

Browse Source
This commit is contained in:
olle 2004-07-06 09:41:46 +00:00
parent 6b77630880
commit e321ac764c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/scandir.pas
View File

@ -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