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

* missing parentheses added

Browse Source
This commit is contained in:
Tomas Hajny 2000-03-12 18:32:17 +00:00
parent 4adca35a13
commit c71f5233b1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/dos.pas
View File

@ -620,7 +620,7 @@ function diskfree(drive:byte):int64;
var fi:TFSinfo; var fi:TFSinfo;
begin begin
if os_mode=osDOS or os_mode = osDPMI then if (os_mode=osDOS) or (os_mode = osDPMI) then
{Function 36 is not supported in OS/2.} {Function 36 is not supported in OS/2.}
asm asm
movb 8(%ebp),%dl movb 8(%ebp),%dl
@ -657,7 +657,7 @@ function disksize(drive:byte):int64;
var fi:TFSinfo; var fi:TFSinfo;
begin begin
if os_mode=osDOS or os_mode = osDPMI then if (os_mode=osDOS) or (os_mode = osDPMI) then
{Function 36 is not supported in OS/2.} {Function 36 is not supported in OS/2.}
asm asm
movb 8(%ebp),%dl movb 8(%ebp),%dl
@ -1001,7 +1001,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.21 2000-03-05 19:00:37 hajny Revision 1.22 2000-03-12 18:32:17 hajny
* missing parentheses added
Revision 1.21 2000/03/05 19:00:37 hajny
* DiskFree, DiskSize - int64 result, fix for osDPMI mode * DiskFree, DiskSize - int64 result, fix for osDPMI mode
Revision 1.20 2000/02/09 16:59:33 peter Revision 1.20 2000/02/09 16:59:33 peter