From c96538d24def0b1e86a74022d628dedb9c7bfbe3 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 3 Feb 2004 16:14:13 +0000
Subject: [PATCH]   * fix remembering path of main source file

---
 compiler/fppu.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/fppu.pas b/compiler/fppu.pas
index 02d7b325c4..e9331ad0a4 100644
--- a/compiler/fppu.pas
+++ b/compiler/fppu.pas
@@ -680,7 +680,7 @@ uses
               if Source_Time<>-1 then
                 begin
                   if is_main then
-                    main_dir:=temp_dir;
+                    main_dir:=splitpath(hs);
                   temp:=' time '+filetimestring(source_time);
                   if (orgfiletime<>-1) and
                      (source_time<>orgfiletime) then
@@ -1514,7 +1514,10 @@ uses
 end.
 {
   $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
     * third round of gdb cleanups: kick out most of concatstabto