paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 05:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* arm9 binaries are automatically patched

Browse Source 
git-svn-id: trunk@5634 -
This commit is contained in:
Legolas 2006-12-18 18:43:51 +00:00
parent 8a9d059f60
commit 5f81d9e656
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems/t_nds.pas
View File

@ -758,6 +758,13 @@ begin
true,false);
end;
if success and (apptype=app_arm9) then
begin
success:=DoExec(FindUtil('ndstool'), '-c ' +
ChangeFileExt(current_module.exefilename^, '.nds') + ' -9 ' +
ChangeFileExt(current_module.exefilename^, preName+target_info.exeext),
true,false);
end;
MakeExecutable:=success; { otherwise a recursive call to link method }
end;