Browse Source

Give integer value of not found ppufile.header.common.target in CheckHeader

Pierre Muller 3 months ago
parent
commit
317b01db65
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/fppu.pas

+ 1 - 1
compiler/fppu.pas

@@ -323,7 +323,7 @@ var
                if assigned(psi) then
                if assigned(psi) then
                  system_name:=psi^.shortname
                  system_name:=psi^.shortname
                else
                else
-                 system_name:='invalid';
+                 system_name:='invalid ('+tostr(ppufile.header.common.target)+')';
                Message1(unit_u_ppu_invalid_target,system_name,@queuecomment);
                Message1(unit_u_ppu_invalid_target,system_name,@queuecomment);
                exit;
                exit;
              end;
              end;