paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +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
UnzipErr: longint = 0;
{$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
begin
{$ifdef MAYBE_LFN}
if not(lfnsupport) then
if not(locallfnsupport) then
begin
if not(haslfn(package[i].zip,startpath)) then
begin
@ -1591,13 +1595,16 @@ begin
if CheckOS2 then Halt;
{$ENDIF}
createlog:=false;
{$ifdef MAYBE_LFN}
locallfnsupport:=system.lfnsupport;
{$endif MAYBE_LFN}
for i:=1 to paramcount do
begin
if paramstr(i)='-l' then
createlog:=true
{$ifdef MAYBE_LFN}
else if paramstr(i)='--nolfn' then
lfnsupport:=false
locallfnsupport:=false
{$endif MAYBE_LFN}
else if paramstr(i)='-h' then
begin
@ -1621,8 +1628,8 @@ begin
begin
assign(log,'install.log');
rewrite(log);
{$ifdef GO32V2}
if not(lfnsupport) then
{$ifdef MAYBE_LFN}
if not(locallfnsupport) then
writeln(log,'OS doesn''t have LFN support');
{$endif}
end;
@ -1651,7 +1658,10 @@ begin
end.
{
$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
Revision 1.1 2002/01/29 17:59:15 peter