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

* adjust casing so that Lazarus keeps from changing it

Browse Source 
git-svn-id: trunk@36909 -
This commit is contained in:
svenbarth 2017-08-14 20:29:30 +00:00
parent 89e47e098a
commit 89f03f4fdf
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -84,7 +84,7 @@ type
function AsBoolean: boolean; function AsBoolean: boolean;
function AsCurrency: Currency; function AsCurrency: Currency;
function AsInteger: Integer; function AsInteger: Integer;
function ToString: string; function ToString: String;
function IsType(ATypeInfo: PTypeInfo): boolean; inline; function IsType(ATypeInfo: PTypeInfo): boolean; inline;
function TryAsOrdinal(out AResult: int64): boolean; function TryAsOrdinal(out AResult: int64): boolean;
property Kind: TTypeKind read GetTypeKind; property Kind: TTypeKind read GetTypeKind;
@ -625,7 +625,7 @@ begin
raise EInvalidCast.Create(SErrInvalidTypecast); raise EInvalidCast.Create(SErrInvalidTypecast);
end; end;
function TValue.AsOrdinal: int64; function TValue.AsOrdinal: Int64;
begin begin
if IsOrdinal then if IsOrdinal then
case TypeData^.OrdType of case TypeData^.OrdType of