mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-10 18:18:50 +02:00
* fix win32 compilation if DEBUG cond is set
This commit is contained in:
parent
c2478e9ba6
commit
0d6bc08f63
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user