[fpc-devel] Proposal to make the compiler message "PPU Invalid Version" a fatal error.

[Bernd Mueller]

Hello,

The compiler message "PPU Invalid Version n" should be made a fatal 
error. This would help Lazarus to display the real problem (wrong ppu 
version), instead of displaying the error Massage "Fatal: Can't find 
unit x", which is misleading in this case.

Regards, Bernd.

Index: compiler/msgtxt.inc
===================================================================
--- compiler/msgtxt.inc    (Revision 11559)
+++ compiler/msgtxt.inc    (Arbeitskopie)
@@ -743,7 +743,7 @@
    '10005_U_PPU Time: $1'#000+
    '10006_U_PPU File too short'#000+
    '10007_U_PPU Invalid Header (no PPU at the begin)'#000+
-  '10008_U_PPU Invalid Ver','sion $1'#000+
+  '10008_F_PPU Invalid Ver','sion $1'#000+
    '10009_U_PPU is compiled for another processor'#000+
    '10010_U_PPU is compiled for an other target'#000+
    '10011_U_PPU Source: $1'#000+
@@ -1127,4 +1127,4 @@
    '**1*_'#010+
    '**1?_Show this help'#010+
    '**1h_Shows this help without waiting'#000
-);
+);
\ Kein Zeilenvorschub am Ende der Datei
Index: compiler/msgidx.inc
===================================================================
--- compiler/msgidx.inc    (Revision 11559)
+++ compiler/msgidx.inc    (Arbeitskopie)
@@ -660,7 +660,7 @@
    unit_u_ppu_time=10005;
    unit_u_ppu_file_too_short=10006;
    unit_u_ppu_invalid_header=10007;
-  unit_u_ppu_invalid_version=10008;
+  unit_f_ppu_invalid_version=10008;
    unit_u_ppu_invalid_processor=10009;
    unit_u_ppu_invalid_target=10010;
    unit_u_ppu_source=10011;
@@ -758,4 +758,4 @@
    MsgIdxMax : array[1..20] of longint=(
      24,87,248,84,64,50,108,22,201,61,
      43,1,1,1,1,1,1,1,1,1
-  );
+  );
\ Kein Zeilenvorschub am Ende der Datei
Index: compiler/fppu.pas
===================================================================
--- compiler/fppu.pas    (Revision 11559)
+++ compiler/fppu.pas    (Arbeitskopie)
@@ -208,7 +208,8 @@
        { check for allowed PPU versions }
          if not (ppufile.GetPPUVersion = CurrentPPUVersion) then
           begin
- 
Message1(unit_u_ppu_invalid_version,tostr(ppufile.GetPPUVersion), at queuecomment);
+           Message1(unit_f_ppu_invalid_version, 
tostr(ppufile.GetPPUVersion) + ': ' +
+                    ppufilename^ , at queuecomment);
             ppufile.free;
             ppufile:=nil;
             exit;
@@ -1569,4 +1570,4 @@
          registerunit:=hp;
        end;

-end.
+end.
\ Kein Zeilenvorschub am Ende der Datei