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

* change upper -> upcase

Browse Source 
* fixed stupid debugging leftover with diskspace check
This commit is contained in:
peter 2000-02-06 12:59:39 +00:00
parent a6a748cc9a
commit 630699d7f1
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
install/fpinst/install.pas
View File

@ -421,7 +421,7 @@ program install;
procedure tunzipdialog.do_unzip(s,topath : string); procedure tunzipdialog.do_unzip(s,topath : string);
var var
again : boolean; again : boolean;
s,fn,dir,wild : string; fn,dir,wild : string;
begin begin
Disposestr(filetext^.text); Disposestr(filetext^.text);
filetext^.Text:=NewStr('File: '+s); filetext^.Text:=NewStr('File: '+s);
@ -729,12 +729,12 @@ program install;
S := FExpand (Data.BasePath); S := FExpand (Data.BasePath);
if S [Length (S)] = DirSep then if S [Length (S)] = DirSep then
Dec (S [0]); Dec (S [0]);
Space := DiskFree (byte (Upper(S [1])) - 64) shr 10; Space := DiskFree (byte (Upcase(S [1])) - 64) shr 10;
if Space < DSize then if Space < DSize then
S := 'is not' S := 'is not'
else else
S := ''; S := '';
if true or (Space < DSize + 500) then if (Space < DSize + 500) then
begin begin
if S = '' then if S = '' then
S := 'might not be'; S := 'might not be';
@ -1112,7 +1112,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.15 2000-02-02 17:19:10 pierre Revision 1.16 2000-02-06 12:59:39 peter
* change upper -> upcase
* fixed stupid debugging leftover with diskspace check
Revision 1.15 2000/02/02 17:19:10 pierre
* avoid diskfree problem and get mouse visible * avoid diskfree problem and get mouse visible
Revision 1.14 2000/02/02 15:21:31 peter Revision 1.14 2000/02/02 15:21:31 peter