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

* fix win32 compilation if DEBUG cond is set

Browse Source
This commit is contained in:
pierre 2002-02-28 17:02:08 +00:00
parent c2478e9ba6
commit 0d6bc08f63
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
installer/install.pas
View File

@ -237,6 +237,10 @@ program install;
const const
UnzipErr: longint = 0; UnzipErr: longint = 0;
{$ENDIF} {$ENDIF}
{$ifdef MAYBE_LFN}
const
locallfnsupport : boolean = false;
{$endif MAYBE_LFN}
{***************************************************************************** {*****************************************************************************
@ -901,7 +905,7 @@ program install;
if file_exists(package[i].zip,startpath) then if file_exists(package[i].zip,startpath) then
begin begin
{$ifdef MAYBE_LFN} {$ifdef MAYBE_LFN}
if not(lfnsupport) then if not(locallfnsupport) then
begin begin
if not(haslfn(package[i].zip,startpath)) then if not(haslfn(package[i].zip,startpath)) then
begin begin
@ -1591,13 +1595,16 @@ begin
if CheckOS2 then Halt; if CheckOS2 then Halt;
{$ENDIF} {$ENDIF}
createlog:=false; createlog:=false;
{$ifdef MAYBE_LFN}
locallfnsupport:=system.lfnsupport;
{$endif MAYBE_LFN}
for i:=1 to paramcount do for i:=1 to paramcount do
begin begin
if paramstr(i)='-l' then if paramstr(i)='-l' then
createlog:=true createlog:=true
{$ifdef MAYBE_LFN} {$ifdef MAYBE_LFN}
else if paramstr(i)='--nolfn' then else if paramstr(i)='--nolfn' then
lfnsupport:=false locallfnsupport:=false
{$endif MAYBE_LFN} {$endif MAYBE_LFN}
else if paramstr(i)='-h' then else if paramstr(i)='-h' then
begin begin
@ -1621,8 +1628,8 @@ begin
begin begin
assign(log,'install.log'); assign(log,'install.log');
rewrite(log); rewrite(log);
{$ifdef GO32V2} {$ifdef MAYBE_LFN}
if not(lfnsupport) then if not(locallfnsupport) then
writeln(log,'OS doesn''t have LFN support'); writeln(log,'OS doesn''t have LFN support');
{$endif} {$endif}
end; end;
@ -1651,7 +1658,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-01-29 22:01:17 peter Revision 1.3 2002-02-28 17:02:08 pierre
* fix win32 compilation if DEBUG cond is set
Revision 1.2 2002/01/29 22:01:17 peter
* support fvision * support fvision
Revision 1.1 2002/01/29 17:59:15 peter Revision 1.1 2002/01/29 17:59:15 peter