Browse Source

* a local buffer for pchar based filename handling was still at TP sizes
(80), and did not follow the libraries abstraction (array [tfsize]) for
length of paths. (Reporter Lichtwicht, lazarusforum.de)

git-svn-id: trunk@12306 -

marco 16 years ago
parent
commit
899809777c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/unzip/src/unzip.pp

+ 1 - 1
packages/unzip/src/unzip.pp

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