source: ada-examples/ada_from_c_task/example.adb @ 92f495a

ada-examples-4-10-branch
Last change on this file since 92f495a was 8325959, checked in by Joel Sherrill <joel.sherrill@…>, on 07/23/08 at 18:08:05

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

  • Makefile, ada_from_c.adb, app.c, config.h, example.adb, example.ads: New files. New test to demonstrate C calling Ada.
  • Property mode set to 100644
File size: 409 bytes
Line 
1--
2--  The license and distribution terms for this file may be
3--  found in the file LICENSE in this distribution or at
4--  http://www.rtems.com/license/LICENSE.
5--
6--  $Id$
7--
8
9with Text_IO; use Text_IO;
10
11package body Example is
12  procedure ToBeCalled (
13    iterations : in Integer
14  ) is
15  begin
16    Put_Line ( "Ada method called " & Integer'Image (iterations) & " times" );
17  end ToBeCalled;
18end Example;
Note: See TracBrowser for help on using the repository browser.