From dc6c26755be8653a5f2fb21d295ae85288e82ac9 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 30 Sep 2000 16:07:40 +0000
Subject: [PATCH]   * filepos when unit not found (merged)

---
 compiler/pmodules.pas | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index bbd5d0c5c2..f2cc4d72db 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -457,10 +457,13 @@ implementation
                  current_module^.search_unit(copy(current_module^.modulename^,1,8),true);
              if not(current_module^.sources_avail) then
                begin
-                  if current_module^.recompile_reason=rr_noppu then
-                    Message1(unit_f_cant_find_ppu,current_module^.modulename^)
+                  hp:=current_module;
+                  current_module:=old_current_module;
+                  if hp^.recompile_reason=rr_noppu then
+                    Message1(unit_f_cant_find_ppu,hp^.modulename^)
                   else
-                    Message1(unit_f_cant_compile_unit,current_module^.modulename^);
+                    Message1(unit_f_cant_compile_unit,hp^.modulename^);
+                  current_module:=hp;
                end
              else
               begin
@@ -1710,7 +1713,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.11  2000-09-24 21:33:47  peter
+  Revision 1.12  2000-09-30 16:07:40  peter
+    * filepos when unit not found (merged)
+
+  Revision 1.11  2000/09/24 21:33:47  peter
     * message updates merges
 
   Revision 1.10  2000/09/24 15:06:22  peter