paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 06:49:27 +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',[ LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl' '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' +'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"/> <MainUnit Value="0"/>
<IconPath Value="./"/> <IconPath Value="./"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="2"/> <ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<LazDoc Paths=""/> <LazDoc Paths=""/>
<Units Count="2"> <Units Count="2">
@ -25,14 +25,14 @@
<UsageCount Value="134"/> <UsageCount Value="134"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<CursorPos X="1" Y="126"/> <CursorPos X="23" Y="110"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<Filename Value="mainunit.pas"/> <Filename Value="mainunit.pas"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<ResourceFilename Value="mainunit.lrs"/> <ResourceFilename Value="mainunit.lrs"/>
<TopLine Value="100"/> <TopLine Value="97"/>
<UnitName Value="MainUnit"/> <UnitName Value="MainUnit"/>
<UsageCount Value="134"/> <UsageCount Value="134"/>
</Unit1> </Unit1>
@ -51,13 +51,13 @@
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>
<PackageName Value="gdk2x11"/> <PackageName Value="LCL"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="LazOpenGLContext"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="LazOpenGLContext"/> <PackageName Value="gdk2x11"/>
</Item3> </Item3>
</RequiredPackages> </RequiredPackages>
</ProjectOptions> </ProjectOptions>

1
packager/pkgmanager.pas
View File

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