# revisions: 44389,45572

git-svn-id: branches/fixes_3_2@47094 -

packages/rtl-objpas/src/inc/variants.pp

@@ -54,12 +54,12 @@ type
 
 Const
   OrdinalVarTypes = [varSmallInt, varInteger, varBoolean, varShortInt,
-                     varByte, varWord,varLongWord,varInt64];
+                     varByte, varWord,varLongWord,varInt64,varQWord];
   FloatVarTypes = [
 {$ifndef FPUNONE}
     varSingle, varDouble,
 {$endif}
-    varCurrency];
+    varCurrency, varDecimal];
 
 { Variant support procedures and functions }
 

rtl/objpas/sysutils/disk.inc

@@ -19,7 +19,7 @@ begin
   if length(ADrive)=0 then
     Result:=0
   else
-    Result := (Ord(ADrive[1]))-64;
+    Result := Ord(UpCase(ADrive[1]))-64;
 end;
 
 {$push}