paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:50:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ ord4() support

Browse Source 
* 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 -
This commit is contained in:
Jonas Maebe 2005-06-28 19:42:14 +00:00
parent 88392fa21d
commit e374c0c899
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
rtl/inc/macpas.pp
View File

@ -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.