From 59c10225f97f79ee4e702211b38dcd5493f05944 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 26 Jul 2009 11:38:49 +0000
Subject: Delphi 7 compatibility fix (eat this, buildbot)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1922 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/base/UPath.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'unicode/src/base')

diff --git a/unicode/src/base/UPath.pas b/unicode/src/base/UPath.pas
index 975fcb6f..03bd82eb 100644
--- a/unicode/src/base/UPath.pas
+++ b/unicode/src/base/UPath.pas
@@ -482,7 +482,7 @@ type
        *}
       function GetPortableString(): UTF8String;
 
-      procedure AssertRefCount; inline;
+      procedure AssertRefCount; {$IFDEF HasInline}inline;{$ENDIF}
 
     public
       constructor Create(const Name: UTF8String; DelimOption: TPathDelimOption);
-- 
cgit v1.2.3