2
0
Эх сурвалжийг харах

* silly mistyping corrected

Tomas Hajny 24 жил өмнө
parent
commit
4bf4581095

+ 5 - 2
rtl/os2/dos.pas

@@ -704,7 +704,7 @@ 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
-            Drive,%dl
+            movb Drive,%dl
             movb $0x36,%ah
             movb $0x36,%ah
             call syscall
             call syscall
             cmpw $-1,%ax
             cmpw $-1,%ax
@@ -1178,7 +1178,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * merging Carl's fixes from the fixes branch
 
 
   Revision 1.10  2001/04/10 18:49:40  hajny
   Revision 1.10  2001/04/10 18:49:40  hajny

+ 5 - 2
rtl/os2/sysutils.pp

@@ -568,7 +568,7 @@ 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
-            Drive,%dl
+            movb Drive,%dl
             movb $0x36,%ah
             movb $0x36,%ah
             call syscall
             call syscall
             movw %dx,%bx
             movw %dx,%bx
@@ -775,7 +775,10 @@ end.
 
 
 {
 {
   $Log$
   $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
     * merging Carl's fixes from the fixes branch
 
 
   Revision 1.9  2001/02/21 21:23:38  hajny
   Revision 1.9  2001/02/21 21:23:38  hajny