Changeset 016859d in ada-examples

Timestamp:

07/08/08 15:35:13 (15 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

ada-examples-4-10-branch, ada-examples-4-9-branch, master

Children:

bc4db0b

Parents:

68645f0

Message:

2008-07-08 Joel Sherrill <joel.sherrill@…>

• Makefile.shared: Add -g. Leave temporary files for debug.
• rtems_init.c: zero out workspace and heap automatically. This is required by the GNAT run-time.

Files:

• ChangeLog (modified) (1 diff)
• Makefile.shared (modified) (2 diffs)
• rtems_init.c (modified) (2 diffs)

ChangeLog

@@ +1 @@
+2008-07-08      Joel Sherrill <joel.sherrill@oarcorp.com>
+
+        * Makefile.shared: Add -g.  Leave temporary files for debug.
+        * rtems_init.c: zero out workspace and heap automatically.  This
+        is required by the GNAT run-time.
+
 2008-02-06      Joel Sherrill <joel.sherrill@oarcorp.com>
 

Makefile.shared

@@ -34 +34 @@
 $(PROGRAM).exe: rtems_init.o $(FILESYSTEM_OBJS) $(PROGRAM).adb $(EXTRA_OBJS)
         $(AS:as=gnatmake) \
-            -I$(RTEMS_MAKEFILE_PATH)/lib/include/adainclude \
+            -g -I$(RTEMS_MAKEFILE_PATH)/lib/include/adainclude \
             -v $(EXTRA_GNATFLAGS) \
             -O -gnata -gnatE -gnato -g $(PROGRAM) -o $(@) \
@@ -51 +51 @@
         $(RTEMS_MAKEFILE_PATH)/build-tools/bin2boot -v $(@).bt $(HEADERADDR) \
           $(START16FILE) $(START16ADDR) 0 $(@).bin $(RELOCADDR) 0
-        rm -f $(@).obj $(@).bin
+        # rm -f $(@).obj 
+        rm -f $(@).bin
 endif
 

rtems_init.c

@@ -200 +200 @@
   assert( !status );
 
+  attr.schedpolicy = SCHED_RR;
+  attr.schedparam.sched_priority = 122;
   status = pthread_create( &thread_id, &attr, start_gnat_main, NULL );
   assert( !status );
@@ -247 +249 @@
 #define CONFIGURE_MEMORY_OVERHEAD        (GNAT_MAIN_STACKSPACE)
 
+/* Make sure the C Program Heap and Workspace are zeroed for GNAT */
+#define CONFIGURE_ZERO_WORKSPACE_AUTOMATICALLY TRUE
+
 #define CONFIGURE_INIT
 
+void _flush_cache() {}
 #include <rtems/confdefs.h>