[m-dev.] trivial diff: update extras/dynamic_linking/hello.m

[Fergus Henderson]

Estimated hours taken: 0.1

extras/dynamic_linking/hello.m:
	Add the function `add3int', which is used by the dl_test.m
	test case.  I forgot to commit this with my previous change.

Workspace: /home/pgrad/fjh/ws/gcc/mercury
Index: extras/dynamic_linking/hello.m
===================================================================
RCS file: /home/mercury1/repository/mercury/extras/dynamic_linking/hello.m,v
retrieving revision 1.2
diff -u -d -r1.2 hello.m
--- extras/dynamic_linking/hello.m	2000/12/18 14:11:27	1.2
+++ extras/dynamic_linking/hello.m	2001/01/11 01:33:38
@@ -8,7 +8,7 @@
 :- module hello.
 :- interface.
 :- import_module io.
-:- import_module float.
+:- import_module float, int.
 
 % a very basic test: print "Hello world"
 :- pred hello(state::di, state::uo) is det.
@@ -16,8 +16,12 @@
 % test passing floating point arguments
 :- func add3(float, float, float) = float.
 
+% test passing integer arguments
+:- func add3int(int, int, int) = int.
+
 :- implementation.
 
 hello --> print("Hello, world\n").
 
 add3(X, Y, Z) = X + Y + Z.
+add3int(X, Y, Z) = X + Y + Z.

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
                                    |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-developers mailing list
Post messages to:       mercury-developers at cs.mu.oz.au
Administrative Queries: owner-mercury-developers at cs.mu.oz.au
Subscriptions:          mercury-developers-request at cs.mu.oz.au
--------------------------------------------------------------------------