From 5f81d9e65626212bac84a636ef698d248436526b Mon Sep 17 00:00:00 2001
From: Legolas <legolas@idefix.freepascal.org>
Date: Mon, 18 Dec 2006 18:43:51 +0000
Subject: [PATCH] * arm9 binaries are automatically patched

git-svn-id: trunk@5634 -
---
 compiler/systems/t_nds.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/compiler/systems/t_nds.pas b/compiler/systems/t_nds.pas
index d6964e2d70..01faa975d7 100644
--- a/compiler/systems/t_nds.pas
+++ b/compiler/systems/t_nds.pas
@@ -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;