[PolyORB-users] Temporary Files in Idl_Fe.Lexer get wrong filenames with mingw build

[Martin Krischik]

    POLYORB VERSION:

cvs update from 09.12.2004

    HOST MACHINE and OPERATING SYSTEM:

i686-pc-mingw

    COMPILER VERSION

GNATLS 3.4.2 (mingw-special) Copyright 1997-2004 Free Software Foundation, 
Inc.

Source Search Path:
   <Current_Directory>
   .\
   D:\MinGW\local\msys\1.0\opt\ada\include\bc\
   D:\MinGW\local\msys\1.0\opt\ada\include\xmlada\
   D:\MinGW\local\msys\1.0\opt\ada\include\asis\
   D:\MinGW\local\msys\1.0\opt\ada\include\florist\
   D:/MinGW/lib/gcc/mingw32/3.4.2/adainclude/


Object Search Path:
   <Current_Directory>
   .\
   D:\MinGW\local\msys\1.0\opt\ada\include\bc\Linux-Object\
   D:\MinGW\local\msys\1.0\opt\ada\include\xmlada\
   D:\MinGW\local\msys\1.0\opt\ada\include\asis\
   D:\MinGW\local\msys\1.0\opt\ada\include\florist\
   D:/MinGW/lib/gcc/mingw32/3.4.2/adalib/

    DESCRIPTION:

idlac won't compile any files. With each run two temporary files are created - 
on ending on ".exe" the other one beeing empty.

-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a00112*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a00112.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a00264*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a00264.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 10:00 GNAT-a00312*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 10:00 GNAT-a003120*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a00372*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a00372.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a00384*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a00384.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a01000*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a01000.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a01100*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a01100.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a01132*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a01132.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a01156*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a01156.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a01176*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a01176.exe*
-rwxrwxr--+   1 martin   users           0 2004-12-10 08:19 GNAT-a01236*
-rwxrwxr--+   1 martin   users         18K 2004-12-10 08:19 GNAT-a01236.exe*

idlac end with an error message indication premature end of file.

Temporary Files are not deleted (good for finding the bug - but not so good 
later on).

    REPEAT BY:

Just compiling PolyORB itself wont work.

    SAMPLE FIX/WORKAROUND:

Index: idl_fe-lexer.adb
===================================================================
RCS file: /anoncvs/polyorb/compilers/idlac/idl_fe-lexer.adb,v
retrieving revision 1.15
diff -u -3 -p -r1.15 idl_fe-lexer.adb
--- idl_fe-lexer.adb    18 Oct 2004 15:00:29 -0000      1.15
+++ idl_fe-lexer.adb    10 Dec 2004 09:09:00 -0000
@@ -1458,6 +1458,11 @@ package body Idl_Fe.Lexer is

       Close (Fd);

+      --
+      --  Create_Temp_File returns a '\0' terminated string for use
+      --  with C functions - repace with '0'.
+      --
+      Tmp_File_Name (Tmp_File_Name'Last) := '0';
       Add_Argument ("-o");
       Add_Argument (Tmp_File_Name & Platform.CXX_Preprocessor_Suffix);
       Add_Argument (Filename);

With Regards

Martin
-- 
Martin Krischik
mailto://krischik@users.sourceforge.net
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : /pipermail/polyorb-users/attachments/20041210/754f7e36/attachment.bin