paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:06:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use random name for tempbuilddir

Browse Source 
* fix uninitialized needfpmkunitsource

git-svn-id: trunk@12160 -
This commit is contained in:
peter 2008-11-18 19:45:34 +00:00
parent 2a952c89a5
commit 514ccae231
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
utils/fppkg/pkgfpmake.pp
View File

@ -5,7 +5,8 @@ unit pkgfpmake;
interface
uses
Classes, SysUtils,pkghandler;
Classes,SysUtils,DateUtils,
pkghandler;
implementation
@ -151,10 +152,9 @@ var
OOptions:=OOptions+maybequoted(s);
end;
const
TempBuildDir = 'build-fpmake';
Var
i : Integer;
TempBuildDir,
DepDir,
FPMakeBin,
FPMakeSrc : string;
@ -163,8 +163,11 @@ Var
P : TFPPackage;
begin
P:=AvailableRepository.PackageByName(PackageName);
NeedFPMKUnitSource:=false;
OOptions:='';
SetCurrentDir(PackageBuildPath(P));
// Generate random name for build path
TempBuildDir:='build_fpmake_'+HexStr(DateTimeToUnix(Now),8)+HexStr(GetProcessId,4);
// Check for fpmake source
FPMakeBin:='fpmake'+ExeExt;
FPMakeSrc:='fpmake.pp';