paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* silly mistyping corrected

Browse Source
This commit is contained in:
Tomas Hajny 2001-05-21 20:50:19 +00:00
parent db66b45c55
commit 4bf4581095
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/os2/dos.pas
View File

@ -704,7 +704,7 @@ begin
if (os_mode = osDOS) or (os_mode = osDPMI) then
{Function 36 is not supported in OS/2.}
asm
Drive,%dl
movb Drive,%dl
movb $0x36,%ah
call syscall
cmpw $-1,%ax
@ -1178,7 +1178,10 @@ begin
end.
{
$Log$
Revision 1.11 2001-05-20 18:55:48 hajny
Revision 1.12 2001-05-21 20:50:19 hajny
* silly mistyping corrected
Revision 1.11 2001/05/20 18:55:48 hajny
* merging Carl's fixes from the fixes branch
Revision 1.10 2001/04/10 18:49:40 hajny

7
rtl/os2/sysutils.pp
View File

@ -568,7 +568,7 @@ begin
if (os_mode = osDOS) or (os_mode = osDPMI) then
{Function 36 is not supported in OS/2.}
asm
Drive,%dl
movb Drive,%dl
movb $0x36,%ah
call syscall
movw %dx,%bx
@ -775,7 +775,10 @@ end.
{
$Log$
Revision 1.10 2001-05-20 18:40:33 hajny
Revision 1.11 2001-05-21 20:50:19 hajny
* silly mistyping corrected
Revision 1.10 2001/05/20 18:40:33 hajny
* merging Carl's fixes from the fixes branch
Revision 1.9 2001/02/21 21:23:38 hajny