[paparazzi-commits] [5478] target before include

[Christophe De Wagter]

Revision: 5478
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=5478
Author:   dewagter
Date:     2010-08-19 13:05:10 +0000 (Thu, 19 Aug 2010)
Log Message:
-----------
target before include

Modified Paths:
--------------
    paparazzi3/trunk/sw/tools/gen_aircraft.ml

Modified: paparazzi3/trunk/sw/tools/gen_aircraft.ml
===================================================================
--- paparazzi3/trunk/sw/tools/gen_aircraft.ml   2010-08-19 12:45:41 UTC (rev 
5477)
+++ paparazzi3/trunk/sw/tools/gen_aircraft.ml   2010-08-19 13:05:10 UTC (rev 
5478)
@@ -174,6 +174,13 @@
             begin try
               has_subtype := not (String.compare (Xml.attrib c "type") "" = 0)
             with _ -> () end;
+            let print_if_subsystem_define = (fun d ->
+              if ExtXml.tag_is d "param" then begin
+                fprintf makefile_ac "%s = %s\n"
+                (String.uppercase(Xml.attrib d "name"))
+                (Xml.attrib d "value");
+              end) in
+            List.iter print_if_subsystem_define (Xml.children c);
             fprintf makefile_ac "include $(CFG_%s)/%s" 
                (String.uppercase(Xml.attrib tag "name"))
                (Xml.attrib c "name");
@@ -181,14 +188,7 @@
               fprintf makefile_ac "_%s" 
                (Xml.attrib c "type");
             
-           fprintf makefile_ac ".makefile\n";
-            let print_if_subsystem_define = (fun d ->
-              if ExtXml.tag_is d "param" then begin
-                fprintf makefile_ac "%s = %s\n"
-                (String.uppercase(Xml.attrib d "name"))
-                (Xml.attrib d "value");
-              end) in
-            List.iter print_if_subsystem_define (Xml.children c)
+           fprintf makefile_ac ".makefile\n"
           end) in
        List.iter print_if_subsystem (Xml.children tag)
       with _ -> () end;