diff options
| author | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-31 21:27:34 +0000 |
|---|---|---|
| committer | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-31 21:27:34 +0000 |
| commit | 7d212ec4b19755fea8df8550729f93cf22ac0e70 (patch) | |
| tree | 1ef18d033e01e9418b898d827a43de15a444653e /packages/unzip | |
| parent | 154b15ece6907ec45ac6603af35d3898e34905cc (diff) | |
| download | fpc-7d212ec4b19755fea8df8550729f93cf22ac0e70.tar.gz | |
* fixed compilation broken by rename of unit unzip to unzip51g
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13989 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/unzip')
| -rw-r--r-- | packages/unzip/src/unzipdll.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/packages/unzip/src/unzipdll.pp b/packages/unzip/src/unzipdll.pp index 06efc20f79..b477c0a946 100644 --- a/packages/unzip/src/unzipdll.pp +++ b/packages/unzip/src/unzipdll.pp @@ -52,7 +52,7 @@ uses Windows, {$ENDIF WIN32} {$ENDIF OS2} - Unzip, Dos; + Unzip51g, Dos; type 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).'); Write (#13#10'Do you want to continue now (y/N)? '); 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. |