HELP: DLL's, parameter passing problem

["Roger Pearse" <rpearse@spamtrap.chieftainsys.demon.co.uk>]

I'd be grateful for a bit of help.  I'm trying to do a DLL in
Aonix ObjectAda 7.1.  I've adapted the supplied example,
and I've run into difficulties when trying
to pass and return a parameter (any parameter).  The code
runs, but the value returned seems to be random.

Can anyone tell me what I'm doing wrong?  Also, can I do
IN OUT parameters - I'd like to pass strings.

TIA

Roger Pearse

-----------USEDLL.EXE (console program)----------------
--Calling the DLL
with ada.text_io;
use ada.text_io;
with ada.integer_text_io;
use ada.integer_text_io;

procedure UseDLL is
 function DLLProc(j : integer) return integer ;
 pragma Import(DLL,DLLProc,"DLLProc");
 v,w : integer;
begin
   v := 1;
   w := 1;
   w := DLLProc(v);
   put(w);
end;
----------------------------DLL.DLL----------------

--Creating the DLL

package P is
   function DLLProc(j : integer) return integer ;
   pragma Export(DLL,DLLProc,"DLLProc");
end;
package body P is
   function DLLProc(j : integer) return integer is
       i : integer;
   begin
       i := j + 1;
       return i;
   end DLLProc;
end P;
with P;
procedure DLL is
begin
  null; -- perform any initializations here
end;

--------------------Code ends---------------------