mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 12:09:24 +02:00
strip path from filenames of members, because win32 changes .\ to ./ for long filenames
This commit is contained in:
parent
7ac9ea3e0e
commit
ab9f272431
@ -67,6 +67,8 @@ implementation
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
cstreams,
|
cstreams,
|
||||||
|
systems,
|
||||||
|
globals,
|
||||||
verbose,
|
verbose,
|
||||||
{$ifdef Delphi}
|
{$ifdef Delphi}
|
||||||
dmisc;
|
dmisc;
|
||||||
@ -149,7 +151,10 @@ var
|
|||||||
begin
|
begin
|
||||||
fillchar(arhdr,sizeof(tarhdr),' ');
|
fillchar(arhdr,sizeof(tarhdr),' ');
|
||||||
{ create ar header }
|
{ create ar header }
|
||||||
fn:=fn+'/';
|
{ win32 will change names starting with .\ to ./ when using lfn, corrupting
|
||||||
|
the sort order required for the idata sections. To prevent this strip
|
||||||
|
always the path from the filename. (PFV) }
|
||||||
|
fn:=SplitFileName(fn)+'/';
|
||||||
if length(fn)>16 then
|
if length(fn)>16 then
|
||||||
begin
|
begin
|
||||||
arhdr.name[0]:='/';
|
arhdr.name[0]:='/';
|
||||||
@ -278,7 +283,10 @@ end;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.12 2002-05-18 13:34:11 peter
|
Revision 1.13 2004-05-09 11:07:39 peter
|
||||||
|
strip path from filenames of members, because win32 changes .\ to ./ for long filenames
|
||||||
|
|
||||||
|
Revision 1.12 2002/05/18 13:34:11 peter
|
||||||
* readded missing revisions
|
* readded missing revisions
|
||||||
|
|
||||||
Revision 1.11 2002/05/16 19:46:42 carl
|
Revision 1.11 2002/05/16 19:46:42 carl
|
||||||
|
Loading…
Reference in New Issue
Block a user