Ver Fonte

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

Pierre Muller há 3 meses atrás
pai
commit
317b01db65
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/fppu.pas

+ 1 - 1
compiler/fppu.pas

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