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 | |
---|
9 | with Text_IO; use Text_IO; |
---|
10 | |
---|
11 | package 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; |
---|
18 | end Example; |
---|
Note: See
TracBrowser
for help on using the repository browser.