paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

strip path from filenames of members, because win32 changes .\ to ./ for long filenames

Browse Source
This commit is contained in:
peter 2004-05-09 11:07:39 +00:00
parent 7ac9ea3e0e
commit ab9f272431
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/owar.pas
View File

@ -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