Changeset a8e724d6 in rtems for c/src/ada-tests/support

Timestamp:

Sep 29, 2008, 8:44:58 PM (12 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

4.10, 4.11, 5, master

Children:

c217cf7

Parents:

56abb78

Message:

2008-09-29 Joel Sherrill <joel.sherrill@…>

• support/timer_driver.adb, support/timer_driver.ads, tmtests/tm01/tmtest.adb, tmtests/tm02/tmtest.adb, tmtests/tm03/tmtest.adb, tmtests/tm04/tmtest.adb, tmtests/tm05/tmtest.adb, tmtests/tm06/tmtest.adb, tmtests/tm07/tmtest.adb, tmtests/tm08/tmtest.adb, tmtests/tm09/tmtest.adb, tmtests/tm10/tmtest.adb, tmtests/tm11/tmtest.adb, tmtests/tm12/tmtest.adb, tmtests/tm13/tmtest.adb, tmtests/tm14/tmtest.adb, tmtests/tm15/tmtest.adb, tmtests/tm16/tmtest.adb, tmtests/tm17/tmtest.adb, tmtests/tm18/tmtest.adb, tmtests/tm19/tmtest.adb, tmtests/tm20/config.h, tmtests/tm20/tmtest.adb, tmtests/tm21/tmtest.adb, tmtests/tm22/tmtest.adb, tmtests/tm23/tmtest.adb, tmtests/tm24/tmtest.adb, tmtests/tm25/tmtest.adb, tmtests/tm28/tmtest.adb, tmtests/tm29/tmtest.adb, tmtests/tmck/tmtest.adb, tmtests/tmoverhd/tmtest.adb: Clean up. Verified to run on psim with gcc 4.3.2.

Location:

c/src/ada-tests/support

Files:

• timer_driver.adb (modified) (2 diffs)
• timer_driver.ads (modified) (2 diffs)

c/src/ada-tests/support/timer_driver.adb

@@ -21 +21 @@
 
 with RTEMS;
+with Interfaces.C;
 
 package body Timer_Driver is
+
+--PAGE
+--
+--  Empty_function
+--
+--
+   procedure Empty_Function 
+   is
+   begin
+      Null;
+   end Empty_Function;
 
 --PAGE
@@ -34 +46 @@
    ) is
       procedure Set_Find_Average_Overhead_base (
-         Find_Flag : in     RTEMS.Boolean
+         Find_Flag : in     Interfaces.Unsigned_8
       );
       pragma Import (C, Set_Find_Average_Overhead_base,
-         "Set_find_average_overhead");
+         "benchmark_timer_disable_subtracting_average_overhead");
+      c: Interfaces.Unsigned_8;
    begin
-      Set_Find_Average_Overhead_base (RTEMS.From_Ada_Boolean (Find_Flag));
+      if Find_Flag then
+        c := 1;
+      else
+        c := 0;
+      end if;
+      Set_Find_Average_Overhead_base (c);
    end Set_Find_Average_Overhead;
 

c/src/ada-tests/support/timer_driver.ads

@@ -61 +61 @@
 
    procedure Empty_Function;
-   pragma Import (C, Empty_Function, "Empty_function");
 
 --
@@ -75 +74 @@
       Find_Flag : in     Standard.Boolean
    );
-   pragma Import (C, Set_Find_Average_Overhead,
-      "benchmark_timer_disable_subtracting_average_overhead");
 
 private