From e374c0c89924619bb0be2d9a18bf8d709b0a1c48 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 28 Jun 2005 19:42:14 +0000
Subject: [PATCH] + ord4() support * made Member() inline * turn off invalid
 fpu exceptions for ppc, because Carbon under Mac OS X 10.4.x   has some bugs

git-svn-id: trunk@516 -
---
 rtl/inc/macpas.pp | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

diff --git a/rtl/inc/macpas.pp b/rtl/inc/macpas.pp
index 395b28a8b7..3005871f06 100644
--- a/rtl/inc/macpas.pp
+++ b/rtl/inc/macpas.pp
@@ -41,7 +41,13 @@ function FOUR_CHAR_CODE(literal: string): LongWord; {$ifdef systeminline}inline;
 operator := (s: ShortString) res: LongWord; {$ifdef systeminline}inline;{$endif}
 
 { Same as the "is" operator }
-Function Member (Instance : TObject; AClass : TClass) : boolean;
+Function Member (Instance : TObject; AClass : TClass) : boolean; {$ifdef systeminline}inline;{$endif}
+
+function ord4(i: smallint): smallint; {$ifdef systeminline}inline;{$endif}
+function ord4(l: longint): longint; {$ifdef systeminline}inline;{$endif}
+function ord4(c: cardinal): cardinal; {$ifdef systeminline}inline;{$endif}
+function ord4(p: pointer): ptrint; {$ifdef systeminline}inline;{$endif}
+
 
 implementation
 
@@ -67,4 +73,34 @@ begin
 end;
 
 
+function ord4(i: smallint): smallint; {$ifdef systeminline}inline;{$endif}
+begin
+  result:=i;
+end;
+
+
+function ord4(l: longint): longint; {$ifdef systeminline}inline;{$endif}
+begin
+  result := l;
+end;
+
+
+function ord4(c: cardinal): cardinal; {$ifdef systeminline}inline;{$endif}
+begin
+  result := c;
+end;
+
+
+function ord4(p: pointer): ptrint; {$ifdef systeminline}inline;{$endif}
+begin
+  result := ptrint(p);
+end;
+
+
+{$ifdef powerpc}
+begin
+  asm
+    mtfsfi 6,1
+  end;
+{$endif powerpc}
 end.