From 1fe6404760f20f19bda26e5dfa5c5d2f412c0003 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Fri, 18 Aug 2017 15:30:33 +0000 Subject: [PATCH] * a touch more inlining git-svn-id: trunk@36939 - --- packages/rtl-objpas/src/inc/rtti.pp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp index a299bbfb3d..d2eeb1d1b9 100644 --- a/packages/rtl-objpas/src/inc/rtti.pp +++ b/packages/rtl-objpas/src/inc/rtti.pp @@ -72,14 +72,14 @@ type public class function Empty: TValue; static; class procedure Make(ABuffer: pointer; ATypeInfo: PTypeInfo; out result: TValue); static; - function IsArray: boolean; + function IsArray: boolean; inline; function AsString: string; function AsExtended: Extended; - function IsClass: boolean; + function IsClass: boolean; inline; function AsClass: TClass; - function IsObject: boolean; + function IsObject: boolean; inline; function AsObject: TObject; - function IsOrdinal: boolean; + function IsOrdinal: boolean; inline; function AsOrdinal: Int64; function AsBoolean: boolean; function AsCurrency: Currency;