Changeset 14f44a3 in ada-examples for irq_test

Timestamp:

10/17/07 20:55:06 (16 years ago)

Author:

Joel Sherrill <joel.sherrill@…>

Branches:

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

Children:

36fcd41

Parents:

2059da6

Message:

2007-10-17 Joel Sherrill <joel.sherrill@…>

• Makefile, Makefile.shared, rtems_init.c, irq_test/interrupt_pkg.adb, irq_test/interrupt_pkg.ads, irq_test/irqforce.c, irq_test/irqtest.adb, rootfs/etc/hosts: Adding new tests as improvements are made to the RTEMS port of the GNAT run-time.
• empty/Makefile, empty/README, empty/empty.adb, hello_via_task/.cvsignore, hello_via_task/Makefile, hello_via_task/hello.adb, irq_test/.cvsignore, irq_test/Makefile, irq_test/README, irq_test_c/.cvsignore, irq_test_c/Makefile, irq_test_c/README, irq_test_c/init.c, irq_test_c/irqforce.c: New files.

Location:

irq_test

Files:

• .cvsignore (added)
• Makefile (added)
• README (added)
• interrupt_pkg.adb (modified) (7 diffs)
• interrupt_pkg.ads (modified) (1 diff)
• irqforce.c (modified) (1 diff)
• irqtest.adb (modified) (1 diff)

irq_test/interrupt_pkg.adb

@@ -13 +13 @@
 --  European Space Agency, 1999.
 --
+--  The license and distribution terms for this file may be
+--  found in the file LICENSE in this distribution or at
+--  http://www.rtems.com/license/LICENSE.
+--
+--  $Id$
+--
+
 
 
@@ -18 +25 @@
 with System;
 with Ada.Text_IO;
+with Ada.Real_Time; use Ada.Real_Time;
 
 package body Interrupt_pkg is
@@ -25 +33 @@
    Protected_Priority : constant System.Interrupt_Priority :=
      System.Interrupt_Priority'First;
+
+   Start_Time       : Ada.Real_Time.Time;
+   Stop_Time        : Ada.Real_Time.Time;
 
 -- Protected object, including interrupt handler (Signal) and conditional entry.
@@ -42 +53 @@
          BARRIER := LOW;
       end Signal;
+
       entry Wait when (BARRIER = LOW) is
+         Took : Time_Span;
       begin
+         Stop_Time := Ada.Real_Time.Clock;       
          BARRIER := HIGH;
+
+         Took := Stop_Time - Start_Time;
+         
+         Ada.Text_IO.Put_line ( "Interrupt took: " &
+          Duration'Image(To_Duration(Took)));
       end Wait;
    end Handler;
@@ -51 +70 @@
 
    task sporadic is
-      pragma Priority (8);
+      pragma Priority (100);
    end sporadic;
 
    task body sporadic is
-      Message : constant STRING :=
-        "sporadic activated";
+      Message : constant STRING := "sporadic activated";
    begin
       loop
          Handler.Wait;
-         Ada.Text_IO.Put_line (Message);
+
       end loop;
    end sporadic;
@@ -70 +88 @@
       pragma Import (C, irqforce, "irqforce");
    begin
+     
+     Start_Time := Ada.Real_Time.Clock;       
+     Stop_Time := Ada.Real_Time.Clock;       
+     
+     Ada.Text_IO.Put_line ( "Timer Overhead: " &
+      Duration'Image(To_Duration(Stop_Time - Start_Time)));
+
      for i in 1..10 loop
+       Start_Time := Ada.Real_Time.Clock;       
        irqforce(1);
        delay(0.05);
@@ -81 +107 @@
 begin
 
-  itest;
+  --  itest;
+  NULL;
 
 end Interrupt_pkg;

irq_test/interrupt_pkg.ads

@@ +1 @@
+--
+--  The license and distribution terms for this file may be
+--  found in the file LICENSE in this distribution or at
+--  http://www.rtems.com/license/LICENSE.
+--
+--  $Id$
+--
+
 package Interrupt_pkg is
   procedure itest;

irq_test/irqforce.c

@@ +1 @@
+/*
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.rtems.com/license/LICENSE.
+ *
+ *  $Id$
+ */
+
 #include <bsp.h>
 
-irqforce(int irq)
+void irqforce(int irq)
 {
   ERC32_Unmask_interrupt(irq);

irq_test/irqtest.adb

@@ +1 @@
+--
+--  The license and distribution terms for this file may be
+--  found in the file LICENSE in this distribution or at
+--  http://www.rtems.com/license/LICENSE.
+--
+--  $Id$
+--
+
 with Interrupt_pkg;
 
 procedure irqtest is
 begin
-  null;
+  Interrupt_pkg.itest;
 end irqtest;