[JVCL-Checkins] dev/JVCL3/install/JVCLInstall Compile.pas,1.63,1.64 JVCLInstall.dpr,1.12,1.13 Utils.pas,1.23,1.24 - - Fixed memory leak - Smaller bugfixes

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15595/install/JVCLInstall

Modified Files:
	Compile.pas JVCLInstall.dpr Utils.pas 
Log Message:
- Fixed memory leak
- Smaller bugfixes


Index: JVCLInstall.dpr
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/JVCLInstall.dpr,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** JVCLInstall.dpr	28 Feb 2006 22:40:18 -0000	1.12
--- JVCLInstall.dpr	7 Mar 2006 12:55:34 -0000	1.13
***************
*** 30,33 ****
--- 30,34 ----
  
  uses
+   FastMM4,
    JvGnugettext,
    Forms,

Index: Utils.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/Utils.pas,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Utils.pas	28 Feb 2006 22:40:18 -0000	1.23
--- Utils.pas	7 Mar 2006 12:55:34 -0000	1.24
***************
*** 32,36 ****
  
  uses
!   Windows, ShellAPI, SysUtils, Classes, JvConsts;
  
  function WordWrapString(const S: string; Width: Integer = 75): string;
--- 32,36 ----
  
  uses
!   Windows, ShellAPI, SysUtils, Classes, JvConsts, JvVCL5Utils;
  
  function WordWrapString(const S: string; Width: Integer = 75): string;
***************
*** 60,63 ****
--- 60,64 ----
  
  function FindFilename(const Paths: string; const Filename: string): string;
+ function ForceDirectoriesEx(const Directory: string): Boolean;
  
   { DirContainsFiles returns True if the directory Dir contains at least one file
***************
*** 311,314 ****
--- 312,323 ----
  end;
  
+ function ForceDirectoriesEx(const Directory: string): Boolean;
+ begin
+   if Directory <> '' then
+     Result := ForceDirectories(Directory)
+   else
+     Result := True;
+ end;
+ 
  function DirContainsFiles(const Dir, Mask: string): Boolean;
  var

Index: Compile.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/Compile.pas,v
retrieving revision 1.63
retrieving revision 1.64
diff -C2 -d -r1.63 -r1.64
*** Compile.pas	1 Mar 2006 11:59:32 -0000	1.63
--- Compile.pas	7 Mar 2006 12:55:34 -0000	1.64
***************
*** 1519,1531 ****
      if DebugUnits then
      begin
!       ForceDirectories(TargetConfig.DebugUnitOutDir);
!       ForceDirectories(TargetConfig.DebugBplDir);
!       ForceDirectories(TargetConfig.DebugDcpDir);
!       ForceDirectories(TargetConfig.DebugHppDir);
      end;
  
      { Create include directory if necessary }
      if TargetConfig.Target.SupportsPersonalities([persBCB]) then
!       ForceDirectories(TargetConfig.Target.ExpandDirMacros(TargetConfig.HppDir));
  
     // *****************************************************************
--- 1519,1531 ----
      if DebugUnits then
      begin
!       ForceDirectoriesEx(TargetConfig.DebugUnitOutDir);
!       ForceDirectoriesEx(TargetConfig.DebugBplDir);
!       ForceDirectoriesEx(TargetConfig.DebugDcpDir);
!       ForceDirectoriesEx(TargetConfig.DebugHppDir);
      end;
  
      { Create include directory if necessary }
      if TargetConfig.Target.SupportsPersonalities([persBCB]) then
!       ForceDirectoriesEx(TargetConfig.Target.ExpandDirMacros(TargetConfig.HppDir));
  
     // *****************************************************************