gpc-20000707 djgpp native compilation

Maurice Lombardi Maurice.Lombardi at ujf-grenoble.fr
Fri Jul 14 21:09:43 CEST 2000


Frank Heckenbach a écrit :

> Just to be sure, does the following program work?
> 
> program foo;
> 
> var
>   f : Text;
>   s : String (4096);
> 
> begin
>   Rewrite (f, 'c:\djgpp\tmp\GPaaa13491');
>   Writeln (f, 'OK');
>   Reset (f);
>   Readln (f, s);
>   Writeln (s)
> end.

yes

> If this works, could you please try inserting the following line:
> 
>               fprintf (stderr, "internal file name: %s\n", filename);
> 
> into rts/file.c after the line:
> 
>                 filename = _p_nameit (File, mode);
> 
> rebuild the RTS and compile and run the following test program:
> 
> program Foo;
> var f : Text;
> begin
>   Rewrite (f);
> end.
> 
> It should write `internal file name: (null)' 3 times -- that's ok
> (for Input, Output and StdErr), and then the temp name which should
> be a valid, but non-existing file name.

OK but the error comes afterwards:

internal file name: (null)
internal file name: (null)
internal file name: (null)
internal file name: c:\djgpp\tmp\GPaaa14287
c:/lombardi/djgpp/gpc/bug2.exe: permission denied to erase internal file `F' (er
ror #472 at 1597)

This file is indeed created, and it has zero length 

> If this still works, you might want to make sure it really isn't a
> LFN problem. You could change rts/filename.pas, function
> GetTempFileName, so it return a name not longer than 8+3 (e.g., just
> return a constant name for testing), and rebuild the RTS. If the
> problem still exists then, it's no LFN problem...

Same result

internal file name: (null)
internal file name: (null)
internal file name: (null)
internal file name: c:\djgpp\tmp\aaa12508
c:/lombardi/djgpp/gpc/bug2.exe: permission denied to erase internal file `F' (er
ror #472 at 1597)

Hope this helps 

Maurice

-- 
       Maurice Lombardi
Laboratoire de  Spectrometrie Physique,
Universite Joseph Fourier de Grenoble, BP87
38402 Saint Martin d'Heres Cedex     FRANCE
Tel: 33 (0)4 76 51 47 51
Fax: 33 (0)4 76 51 45 44
mailto:Maurice.Lombardi at ujf-grenoble.fr




More information about the Gpc mailing list