paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 12:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* linuxerror fix

Browse Source
This commit is contained in:
marco 2003-11-14 17:14:13 +00:00
parent 4b8e3387a7
commit 0373bbb4fa
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
packages/extra/forms/fd2pascal.pp
View File

@ -507,13 +507,23 @@ var info : stat;
begin
FileName:=Copy(Filename,1,Length(Filename)-3)+'.pp';
{$ifdef ver1_0}fstat{$else}fpstat{$endif}(FileName,info);
{$ifdef ver1_0}
fstat(FileName,info);
if linuxerror=0 then
begin
{ File exists, move to .bak}
{$ifdef ver1_0}link{$else}fplink{$endif} (FileName,FileName+'.bak');
{$ifdef ver1_0}unlink{$else}fpunlink{$endif} (FileName);
link(FileName,FileName+'.bak');
unlink(FileName);
end;
{$else}
if fpstat(FileName,info)<>-1 Then
begin
{ File exists, move to .bak}
fplink (FileName,FileName+'.bak');
fpunlink(FileName);
end;
{$endif}
assign(outfile,filename);
{$i-}
rewrite(outfile);
@ -1126,7 +1136,10 @@ begin
EmitFooter;
CloseOutFile;
end. $Log$
end. Revision 1.3 2003-09-27 12:12:50 peter
end. Revision 1.4 2003-11-14 17:14:13 marco
end. * linuxerror fix
end.
end. Revision 1.3 2003/09/27 12:12:50 peter
end. * fixed for unix
end.
end. Revision 1.2 2002/09/07 15:42:54 peter