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

* fixed compilation broken by rename of unit unzip to unzip51g

Browse Source 
git-svn-id: trunk@13989 -
This commit is contained in:
Tomas Hajny 2009-10-31 21:27:34 +00:00
parent 09b22de964
commit 05346b4ee3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/unzip/src/unzipdll.pp
View File

@ -52,7 +52,7 @@ uses
Windows, Windows,
{$ENDIF WIN32} {$ENDIF WIN32}
{$ENDIF OS2} {$ENDIF OS2}
Unzip, Dos; Unzip51g, Dos;
type type
UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl; UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl;
@ -237,6 +237,6 @@ begin
WriteLn ('under some conditions (e.g. for long names and drives not supporting them).'); WriteLn ('under some conditions (e.g. for long names and drives not supporting them).');
Write (#13#10'Do you want to continue now (y/N)? '); Write (#13#10'Do you want to continue now (y/N)? ');
ReadLn (C); ReadLn (C);
if UpCase (C) = 'Y' then FileUnzipEx := TFileUnzipEx (@Unzip.FileUnzipEx) else Halt (255); if UpCase (C) = 'Y' then FileUnzipEx := TFileUnzipEx (@Unzip51g.FileUnzipEx) else Halt (255);
end; end;
end. end.