Explorar o código

* 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 %!s(int64=17) %!d(string=hai) anos
pai
achega
899809777c
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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;
   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}