paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 12:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

# revisions: 44389,45572

Browse Source 
git-svn-id: branches/fixes_3_2@47094 -
This commit is contained in:
marco 2020-10-11 15:49:03 +00:00
parent 9d6e63f2e3
commit 124bf1d108
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-objpas/src/inc/variants.pp
View File

@ -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 }

2
rtl/objpas/sysutils/disk.inc
View File

@ -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}