Re: Directory Operations

[AndreiK <andrei.krivoshei@gmail.com>]

Now the problem not seems to be in string representaion.
The example code is below.
Calling the function "Test_DLL" from fad.dll without using
"Ada.Directories" works perfectly.
However, uncommenting the line <Path: String :=
Ada.Directories.Current_Directory;> gives non working variant.
Try to call the same function from the DLL now finishes by the DLL
crash.
The line <Path: String := Ada.Directories.Current_Directory;> do
nothing usefull in the example, but it must not invite the DLL to
crash.

Can somebody explain, what is wrong?
May be some compiler, builder, linker switches can be a cause of such
behaviour?
I am using the GNAT compiler from GPS+GNAT(MinGW) complect under
Windows XP.
The DLL was tested using the NI LabVIEW and "ExecDLL (http://
www.codeproject.com/KB/DLL/Execute_DLL_Function.aspx)"

Thanks for everybody for advices.

---------------------------
-- fad.ads ----------------
---------------------------
with Ada.Directories;

package FAD is

   function Pwd return String;   -- I don't use it now
   pragma Export(C, Pwd, "pwd");
   function Pwd return String renames
Ada.Directories.Current_Directory;

   function Test_DLL(A, B: in Integer) return Integer;
   pragma Export(C, Test_DLL, "Test_DLL");

end FAD;

---------------------------
-- fad.adb ----------------
---------------------------
package body FAD is

   function Test_DLL(A, B: in Integer) return Integer is
-- ==>  Path: String := Ada.Directories.Current_Directory;
   begin
      return A*B;
   end Test_DLL;

end FAD;