paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 12:10:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Units & Exe dir may now contain $fpc... valus

Browse Source 
* version to 1.0.4 increased
This commit is contained in:
florian 2005-03-06 13:48:59 +00:00
parent 2a55c21963
commit 0a9b1e5b63
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/fpcompil.pas
View File

@ -133,6 +133,7 @@ uses
{$ifdef fpc} {$ifdef fpc}
Video, Video,
{$endif fpc} {$endif fpc}
globals,
StdDlg,App,tokens, StdDlg,App,tokens,
FVConsts, FVConsts,
CompHook, Compiler, systems, browcol, CompHook, Compiler, systems, browcol,
@ -966,6 +967,7 @@ begin
EXEFile:=FixFileName(GetEXEPath+NameOf(MainFile)+GetTargetExeExt) EXEFile:=FixFileName(GetEXEPath+NameOf(MainFile)+GetTargetExeExt)
else else
EXEFile:=DirOf(MainFile)+NameOf(MainFile)+GetTargetExeExt; EXEFile:=DirOf(MainFile)+NameOf(MainFile)+GetTargetExeExt;
DefaultReplacements(ExeFile);
{ tokens are created and distroyed by compiler.compile !! PM } { tokens are created and distroyed by compiler.compile !! PM }
InitTokens; InitTokens;
if LinkAfter and if LinkAfter and
@ -1147,9 +1149,9 @@ begin
for I:=0 to SourceFiles^.Count-1 do for I:=0 to SourceFiles^.Count-1 do
begin begin
SF:=SourceFiles^.At(I); SF:=SourceFiles^.At(I);
SourceTime:=GetFileTime(SF^.GetSourceFileName); SourceTime:=wutils.GetFileTime(SF^.GetSourceFileName);
PPUTime:=GetFileTime(SF^.GetPPUFileName); PPUTime:=wutils.GetFileTime(SF^.GetPPUFileName);
ObjTime:=GetFileTime(SF^.GetObjFileName); ObjTime:=wutils.GetFileTime(SF^.GetObjFileName);
{ writeln('S: ',SF^.GetSourceFileName,' - ',SourceTime); { writeln('S: ',SF^.GetSourceFileName,' - ',SourceTime);
writeln('P: ',SF^.GetPPUFileName,' - ',PPUTime); writeln('P: ',SF^.GetPPUFileName,' - ',PPUTime);
writeln('O: ',SF^.GetObjFileName,' - ',ObjTime); writeln('O: ',SF^.GetObjFileName,' - ',ObjTime);
@ -1277,7 +1279,11 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.37 2005-02-28 15:38:38 marco Revision 1.38 2005-03-06 13:48:59 florian
+ Units & Exe dir may now contain $fpc... valus
* version to 1.0.4 increased
Revision 1.37 2005/02/28 15:38:38 marco
* getFPCheapstatus (no, FPC HEAP, not FP CHEAP!) * getFPCheapstatus (no, FPC HEAP, not FP CHEAP!)
Revision 1.36 2005/02/14 17:13:18 peter Revision 1.36 2005/02/14 17:13:18 peter

8
ide/fpconst.pas
View File

@ -22,7 +22,7 @@ uses Views,App,
WViews,WEditor,WHTMLHlp; WViews,WEditor,WHTMLHlp;
const const
VersionStr = '1.0.2'; VersionStr = '1.0.4';
MaxRecentFileCount = 9; MaxRecentFileCount = 9;
MaxToolCount = 16; MaxToolCount = 16;
@ -474,7 +474,11 @@ implementation
END. END.
{ {
$Log$ $Log$
Revision 1.21 2005-02-14 17:13:18 peter Revision 1.22 2005-03-06 13:48:59 florian
+ Units & Exe dir may now contain $fpc... valus
* version to 1.0.4 increased
Revision 1.21 2005/02/14 17:13:18 peter
* truncate log * truncate log
Revision 1.20 2005/01/08 13:43:44 florian Revision 1.20 2005/01/08 13:43:44 florian