paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 19:38:10 +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
cstreams,
systems,
globals,
verbose,
{$ifdef Delphi}
dmisc;
@ -149,7 +151,10 @@ var
begin
fillchar(arhdr,sizeof(tarhdr),' ');
{ 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
begin
arhdr.name[0]:='/';
@ -278,7 +283,10 @@ end;
end.
{
$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
Revision 1.11 2002/05/16 19:46:42 carl