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 +-
 unicode/src/lib/TntUnicodeControls/TntSysUtils.pas | 2 +-
 unicode/src/lib/freetype/ftoutln.inc               | 2 +-
 unicode/src/lib/freetype/ftstroke.inc              | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'unicode')

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);
diff --git a/unicode/src/lib/TntUnicodeControls/TntSysUtils.pas b/unicode/src/lib/TntUnicodeControls/TntSysUtils.pas
index 0b0f5c5e..b7cf2467 100644
--- a/unicode/src/lib/TntUnicodeControls/TntSysUtils.pas
+++ b/unicode/src/lib/TntUnicodeControls/TntSysUtils.pas
@@ -401,7 +401,7 @@ implementation
 uses
   ActiveX, ComObj, SysConst,
   {$IFDEF COMPILER_9_UP} WideStrUtils, {$ENDIF} TntWideStrUtils,
-  TntSystem;//, TntFormatStrUtils;
+  TntSystem, TntFormatStrUtils;
 
 //---------------------------------------------------------------------------------------------
 //                                 Tnt - SysUtils
diff --git a/unicode/src/lib/freetype/ftoutln.inc b/unicode/src/lib/freetype/ftoutln.inc
index a47f7bab..997c6cb3 100644
--- a/unicode/src/lib/freetype/ftoutln.inc
+++ b/unicode/src/lib/freetype/ftoutln.inc
@@ -1,4 +1,4 @@
-(***************************************************************************)
+(***************************************************************************)
 (*                                                                         *)
 (*  ftoutln.h                                                              *)
 (*                                                                         *)
diff --git a/unicode/src/lib/freetype/ftstroke.inc b/unicode/src/lib/freetype/ftstroke.inc
index 72ec774f..bf8a00ae 100644
--- a/unicode/src/lib/freetype/ftstroke.inc
+++ b/unicode/src/lib/freetype/ftstroke.inc
@@ -1,4 +1,4 @@
-{***************************************************************************}
+{***************************************************************************}
 {*                                                                         *}
 {*  ftstroke.h                                                             *}
 {*                                                                         *}
-- 
cgit v1.2.3