diff --git a/samples/lazarus/Console.lpi b/samples/lazarus/Console.lpi index 3ec0e08..e19146c 100644 --- a/samples/lazarus/Console.lpi +++ b/samples/lazarus/Console.lpi @@ -1,16 +1,16 @@ - + + - <UseAppBundle Value="False"/> <ResourceType Value="res"/> @@ -24,7 +24,6 @@ </PublishOptions> <RunParams> <FormatVersion Value="2"/> - <Modes Count="0"/> </RunParams> <Units Count="1"> <Unit0> @@ -44,6 +43,11 @@ <OtherUnitFiles Value="..\..\src;..\..\modules\horse\src;..\..\modules\horse-logger\src;..\..\modules\horse-utils-clientip\src"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> </SearchPaths> + <Linking> + <Debugging> + <DebugInfoType Value="dsDwarf2Set"/> + </Debugging> + </Linking> <Other> <CustomOptions Value="-dUseCThreads"/> </Other> diff --git a/src/Horse.Logger.Provider.LogFile.pas b/src/Horse.Logger.Provider.LogFile.pas index f6b8ff9..1b33a1d 100644 --- a/src/Horse.Logger.Provider.LogFile.pas +++ b/src/Horse.Logger.Provider.LogFile.pas @@ -190,7 +190,7 @@ function THorseLoggerLogFileConfig.SetDir(const ADir: string): THorseLoggerLogFi begin Result := Self; if not DirectoryExists(ADir) then - CreateDir(ADir); + ForceDirectories(ADir); FDir := ADir; end;