paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 05:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed missing filestatecache invalidate on ForceDirectories

Browse Source 
git-svn-id: trunk@8410 -
This commit is contained in:
mattias 2006-01-02 08:51:41 +00:00
parent b69992a7da
commit 95647ebc31
3 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/opengl/example/mainunit.lrs
View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl'
+'ientWidth'#3#144#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'p'#18'H'

12
components/opengl/example/testopenglcontext1.lpi
View File

@ -12,7 +12,7 @@
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="2"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<LazDoc Paths=""/>
<Units Count="2">
@ -25,14 +25,14 @@
<UsageCount Value="134"/>
</Unit0>
<Unit1>
<CursorPos X="1" Y="126"/>
<CursorPos X="23" Y="110"/>
<EditorIndex Value="0"/>
<Filename Value="mainunit.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<ResourceFilename Value="mainunit.lrs"/>
<TopLine Value="100"/>
<TopLine Value="97"/>
<UnitName Value="MainUnit"/>
<UsageCount Value="134"/>
</Unit1>
@ -51,13 +51,13 @@
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="gdk2x11"/>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
<PackageName Value="LazOpenGLContext"/>
</Item2>
<Item3>
<PackageName Value="LazOpenGLContext"/>
<PackageName Value="gdk2x11"/>
</Item3>
</RequiredPackages>
</ProjectOptions>

1
packager/pkgmanager.pas
View File

@ -579,6 +579,7 @@ begin
if DirectoryIsWritableCached(AnOutDirectory) then exit;
ForceDirectory(AnOutDirectory);
InvalidateFileStateCache;
if DirectoryIsWritableCached(AnOutDirectory) then exit;
//debugln('TPkgManager.GetWritablePkgOutputDirectory AnOutDirectory=',AnOutDirectory,' ',dbgs(DirectoryIsWritable(AnOutDirectory)));