From 89f03f4fdf8a6ccbdf76dedb099e810bd426f96a Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Mon, 14 Aug 2017 20:29:30 +0000
Subject: [PATCH] * adjust casing so that Lazarus keeps from changing it

git-svn-id: trunk@36909 -
---
 packages/rtl-objpas/src/inc/rtti.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index 63baaf0b75..b2501f9866 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -84,7 +84,7 @@ type
     function AsBoolean: boolean;
     function AsCurrency: Currency;
     function AsInteger: Integer;
-    function ToString: string;
+    function ToString: String;
     function IsType(ATypeInfo: PTypeInfo): boolean; inline;
     function TryAsOrdinal(out AResult: int64): boolean;
     property Kind: TTypeKind read GetTypeKind;
@@ -625,7 +625,7 @@ begin
     raise EInvalidCast.Create(SErrInvalidTypecast);
 end;
 
-function TValue.AsOrdinal: int64;
+function TValue.AsOrdinal: Int64;
 begin
   if IsOrdinal then
     case TypeData^.OrdType of