|
@@ -293,6 +293,9 @@ var
|
|
|
function tppumodule.openppu(ppufiletime:longint):boolean;
|
|
|
|
|
|
function checkheader: boolean;
|
|
|
+ var
|
|
|
+ psi: psysteminfo;
|
|
|
+ system_name: shortstring;
|
|
|
begin
|
|
|
result:=false;
|
|
|
{ check for a valid PPU file }
|
|
@@ -310,13 +313,18 @@ var
|
|
|
{ check the target processor }
|
|
|
if tsystemcpu(ppufile.header.common.cpu)<>target_cpu then
|
|
|
begin
|
|
|
- Message(unit_u_ppu_invalid_processor,@queuecomment);
|
|
|
+ Message1(unit_u_ppu_invalid_processor,cpu2str[tsystemcpu(ppufile.header.common.cpu)],@queuecomment);
|
|
|
exit;
|
|
|
end;
|
|
|
{ check target }
|
|
|
if tsystem(ppufile.header.common.target)<>target_info.system then
|
|
|
begin
|
|
|
- Message(unit_u_ppu_invalid_target,@queuecomment);
|
|
|
+ psi:=targetinfos[tsystem(ppufile.header.common.target)];
|
|
|
+ if assigned(psi) then
|
|
|
+ system_name:=psi^.shortname
|
|
|
+ else
|
|
|
+ system_name:='invalid';
|
|
|
+ Message1(unit_u_ppu_invalid_target,system_name,@queuecomment);
|
|
|
exit;
|
|
|
end;
|
|
|
{$ifdef cpufpemu}
|