Browse Source

Fix try/except/finally syntax error in last commit

Pierre Muller 3 weeks ago
parent
commit
7d9adb9734
1 changed files with 11 additions and 9 deletions
  1. 11 9
      packages/ide/fpmake.pp

+ 11 - 9
packages/ide/fpmake.pp

@@ -28,15 +28,17 @@ procedure ide_check_gdb_availability(Sender: TObject);
       Cmd:=ExeSearch(AddProgramExtension('git',Defaults.OS),{$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.GetEnvironmentVariable('PATH'));
       Opts:=TStringList.Create;
       try
-        Opts.Add('log');
-        Opts.Add('-1');
-        Opts.Add('--pretty=%cd');
-        Opts.Add('--date=format:%Y/%m/%d');
-        CompilerGitDate:=Installer.BuildEngine.GetExecuteCommandOutput(Cmd,Opts);
-        while (length(CompilerGitDate)>0) and (CompilerGitDate[length(CompilerGitDate)] in [#10,#13]) do
-          SetLength(CompilerGitDate,length(CompilerGitDate)-1);
-      except
-	CompilerGitDate:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.GetEnvironmentVariable('COMPDATESTR');
+        try
+          Opts.Add('log');
+          Opts.Add('-1');
+          Opts.Add('--pretty=%cd');
+          Opts.Add('--date=format:%Y/%m/%d');
+          CompilerGitDate:=Installer.BuildEngine.GetExecuteCommandOutput(Cmd,Opts);
+          while (length(CompilerGitDate)>0) and (CompilerGitDate[length(CompilerGitDate)] in [#10,#13]) do
+            SetLength(CompilerGitDate,length(CompilerGitDate)-1);
+        except
+          CompilerGitDate:={$IFDEF FPC_DOTTEDUNITS}System.{$ENDIF}SysUtils.GetEnvironmentVariable('COMPDATESTR');
+	end;
       finally
         Opts.Free;
       end;