Browse Source

* Range check error fix

carl 24 years ago
parent
commit
8cdf9a2625
1 changed files with 5 additions and 2 deletions
  1. 5 2
      rtl/win32/dos.pp

+ 5 - 2
rtl/win32/dos.pp

@@ -271,7 +271,7 @@ end;
 
 function dosversion : word;
 begin
-  dosversion:=GetVersion;
+  dosversion:=GetVersion and $ffff;
 end;
 
 
@@ -1011,7 +1011,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.10  2001-11-23 00:36:26  carl
+  Revision 1.11  2001-11-23 01:35:09  carl
+  * Range check error fix
+
+  Revision 1.10  2001/11/23 00:36:26  carl
   * updated behavior of some routines to conform to docs
 
   Revision 1.9  2001/06/13 22:21:53  hajny