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

* installation to root fixed

Browse Source
This commit is contained in:
Tomas Hajny 1999-07-01 07:56:58 +00:00
parent 7dbd47aaf1
commit 5c8775175e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
install/fpinst/install.pas
View File

@ -678,6 +678,7 @@ program install;
Inc (DSize, DiskSpaceN(cfg.package[i].zip)); Inc (DSize, DiskSpaceN(cfg.package[i].zip));
end; end;
S := FExpand (Data.BasePath); S := FExpand (Data.BasePath);
if S [Length (S)] = DirSep then Dec (S [0]);
Space := DiskFree (byte (S [1]) - 64) shr 10; Space := DiskFree (byte (S [1]) - 64) shr 10;
if Space < DSize then S := 'is not' else S := ''; if Space < DSize then S := 'is not' else S := '';
if Space < DSize + 500 then if Space < DSize + 500 then
@ -999,7 +1000,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.6 1999-06-29 22:20:19 peter Revision 1.7 1999-07-01 07:56:58 hajny
* installation to root fixed
Revision 1.6 1999/06/29 22:20:19 peter
* updated to use tab pages * updated to use tab pages
Revision 1.5 1999/06/25 07:06:30 hajny Revision 1.5 1999/06/25 07:06:30 hajny