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

* FPC compatibility issues

Browse Source
This commit is contained in:
Tomas Hajny 2000-10-18 20:14:32 +00:00
parent a9656de262
commit 5b862ff5b9
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
install/fpinst/unzipdll.pas
View File

@ -14,11 +14,6 @@ unit UnzipDLL;
interface interface
const const
{$IFDEF OS2}
AllFiles: string [1] = '*';
{$ELSE}
AllFiles: string [3] = '*.*';
{$ENDIF}
UnzipErr: longint = 0; UnzipErr: longint = 0;
type type
@ -55,6 +50,13 @@ type
UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl; UzpMainFunc = function (ArgC: longint; var ArgV: TArgV): longint; cdecl;
const const
{$IFDEF OS2}
AllFiles: string [1] = '*';
{$ELSE}
{$IFDEF WIN32}
AllFiles: string [3] = '*.*';
{$ENDIF}
{$ENDIF}
{$IFDEF OS2} {$IFDEF OS2}
LibPath = 'LIBPATH'; LibPath = 'LIBPATH';
{$ELSE} {$ELSE}
@ -97,7 +99,11 @@ begin
Write (#13#10'Error while loading module '); Write (#13#10'Error while loading module ');
WriteLn (PChar (@ErrPath)); WriteLn (PChar (@ErrPath));
end; end;
{$IFDEF FPC}
end else DLLInit := DosQueryProcAddr (DLLHandle, UzpMainOrd, nil, pointer (UzpMain)) = 0;
{$ELSE}
end else DLLInit := DosQueryProcAddr (DLLHandle, UzpMainOrd, nil, @UzpMain) = 0; end else DLLInit := DosQueryProcAddr (DLLHandle, UzpMainOrd, nil, @UzpMain) = 0;
{$ENDIF}
{$ELSE} {$ELSE}
{$IFDEF WIN32} {$IFDEF WIN32}
DLLHandle := LoadLibrary (@DLLPath [1]); DLLHandle := LoadLibrary (@DLLPath [1]);
@ -210,7 +216,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 06:30:22 michael Revision 1.2 2000-10-18 20:14:32 hajny
* FPC compatibility issues
Revision 1.1 2000/07/13 06:30:22 michael
+ Initial import + Initial import
Revision 1.5 2000/06/18 18:27:32 hajny Revision 1.5 2000/06/18 18:27:32 hajny