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

* fix remembering path of main source file

Browse Source
This commit is contained in:
peter 2004-02-03 16:14:13 +00:00
parent 3077512019
commit c96538d24d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/fppu.pas
View File

@ -680,7 +680,7 @@ uses
if Source_Time<>-1 then if Source_Time<>-1 then
begin begin
if is_main then if is_main then
main_dir:=temp_dir; main_dir:=splitpath(hs);
temp:=' time '+filetimestring(source_time); temp:=' time '+filetimestring(source_time);
if (orgfiletime<>-1) and if (orgfiletime<>-1) and
(source_time<>orgfiletime) then (source_time<>orgfiletime) then
@ -1514,7 +1514,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.51 2004-01-26 16:12:27 daniel Revision 1.52 2004-02-03 16:14:13 peter
* fix remembering path of main source file
Revision 1.51 2004/01/26 16:12:27 daniel
* reginfo now also only allocated during register allocation * reginfo now also only allocated during register allocation
* third round of gdb cleanups: kick out most of concatstabto * third round of gdb cleanups: kick out most of concatstabto