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

* a local buffer for pchar based filename handling was still at TP sizes

Browse Source 
(80), and did not follow the libraries abstraction (array [tfsize]) for
   length of paths. (Reporter Lichtwicht, lazarusforum.de)

git-svn-id: trunk@12306 -
This commit is contained in:
marco 2008-12-06 12:22:10 +00:00
parent cba8503e2b
commit 899809777c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/unzip/src/unzip.pp
View File

@ -2225,7 +2225,7 @@ FUNCTION unzipfile ( in_name : pchar;out_name : pchar;offset : longint;
hFileAction : word;cm_index : integer ) : integer; hFileAction : word;cm_index : integer ) : integer;
VAR err : integer; VAR err : integer;
header : plocalheader; header : plocalheader;
buf : ARRAY [ 0..80 ] of char; buf : ARRAY [ 0..tfSize+1 ] of char;
{$ifndef unix} {$ifndef unix}
buf0 : ARRAY [ 0..3 ] of char; buf0 : ARRAY [ 0..3 ] of char;
{$endif} {$endif}