#6

HashLoad · Jun 28, 2022 · aab7bfc · aab7bfc
1 parent e87d5a4
commit aab7bfc
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/samples/lazarus/Console.lpi b/samples/lazarus/Console.lpi
@@ -1,16 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="11"/>
+    <Version Value="12"/>
     <PathDelim Value="\"/>
     <General>
       <Flags>
         <MainUnitHasCreateFormStatements Value="False"/>
         <MainUnitHasTitleStatement Value="False"/>
         <MainUnitHasScaledStatement Value="False"/>
+        <CompatibilityMode Value="True"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="Console"/>
       <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
@@ -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;