浏览代码

* enabled overloads that were disabled on the JVM target because of
signature conflicts by declaring them as "external", so that they
map to exactly that routine they would normally conflict with

git-svn-id: branches/jvmbackend@18824 -

Jonas Maebe 14 年之前
父节点
当前提交
04478c5f33
共有 1 个文件被更改,包括 21 次插入21 次删除
  1. 21 21
      rtl/java/jsystemh.inc

+ 21 - 21
rtl/java/jsystemh.inc

@@ -71,10 +71,10 @@ Function  hi(i : Int64) : DWord;   [INTERNPROC: fpc_in_hi_qword];
 Function  hi(q : QWord) : DWord;   [INTERNPROC: fpc_in_hi_qword];
 
 Function swap (X : Word) : Word;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_word];
-(* Function Swap (X : Integer) : Integer;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_word]; *)
+Function swap (X : Integer) : Integer;[internconst:fpc_in_const_swap_word]; external;
 Function swap (X : Longint) : Longint;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_long];
-(* Function Swap (X : Cardinal) : Cardinal;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_long]; *)
-(* Function Swap (X : QWord) : QWord;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_qword]; *)
+Function swap (X : Cardinal) : Cardinal;[internconst:fpc_in_const_swap_long]; external;
+Function swap (X : QWord) : QWord;[internconst:fpc_in_const_swap_qword]; external;
 Function swap (X : Int64) : Int64;{$ifdef SYSTEMINLINE}inline;{$endif}[internconst:fpc_in_const_swap_qword];
 
 Function Align (Addr : PtrUInt; Alignment : PtrUInt) : PtrUInt;{$ifdef SYSTEMINLINE}inline;{$endif}
@@ -100,46 +100,46 @@ Function abs(l:Longint):Longint;[internconst:fpc_in_const_abs];{$ifdef SYSTEMINL
 Function abs(l:Int64):Int64;[internconst:fpc_in_const_abs];{$ifdef SYSTEMINLINE}inline;{$endif}
 Function sqr(l:Longint):Longint;[internconst:fpc_in_const_sqr];{$ifdef SYSTEMINLINE}inline;{$endif}
 Function sqr(l:Int64):Int64;[internconst:fpc_in_const_sqr];{$ifdef SYSTEMINLINE}inline;{$endif}
-(* Function sqr(l:QWord):QWord;[internconst:fpc_in_const_sqr];{$ifdef SYSTEMINLINE}inline;{$endif} *)
+Function sqr(l:QWord):QWord;[internconst:fpc_in_const_sqr]; external;
 Function odd(l:Longint):Boolean;[internconst:fpc_in_const_odd];{$ifdef SYSTEMINLINE}inline;{$endif}
-(* Function odd(l:Longword):Boolean;[internconst:fpc_in_const_odd];{$ifdef SYSTEMINLINE}inline;{$endif} *)
+Function odd(l:Longword):Boolean;[internconst:fpc_in_const_odd]; external;
 Function odd(l:Int64):Boolean;[internconst:fpc_in_const_odd];{$ifdef SYSTEMINLINE}inline;{$endif}
-(* Function odd(l:QWord):Boolean;[internconst:fpc_in_const_odd];{$ifdef SYSTEMINLINE}inline;{$endif} *)
+Function odd(l:QWord):Boolean;[internconst:fpc_in_const_odd]; external;
 
 function SwapEndian(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function SwapEndian(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function SwapEndian(const AValue: Word): Word; external;
 function SwapEndian(const AValue: LongInt): LongInt;
-(* function SwapEndian(const AValue: DWord): DWord; *)
+function SwapEndian(const AValue: DWord): DWord; external;
 function SwapEndian(const AValue: Int64): Int64;
-(* function SwapEndian(const AValue: QWord): QWord; *)
+function SwapEndian(const AValue: QWord): QWord; external;
 
 function BEtoN(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function BEtoN(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function BEtoN(const AValue: Word): Word; external;
 function BEtoN(const AValue: LongInt): LongInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function BEtoN(const AValue: DWord): DWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function BEtoN(const AValue: DWord): DWord; external;
 function BEtoN(const AValue: Int64): Int64;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function BEtoN(const AValue: QWord): QWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function BEtoN(const AValue: QWord): QWord; external;
 
 function LEtoN(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function LEtoN(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function LEtoN(const AValue: Word): Word; external;
 function LEtoN(const AValue: LongInt): LongInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function LEtoN(const AValue: DWord): DWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function LEtoN(const AValue: DWord): DWord; external;
 function LEtoN(const AValue: Int64): Int64;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function LEtoN(const AValue: QWord): QWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function LEtoN(const AValue: QWord): QWord; external;
 
 function NtoBE(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function NtoBE(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function NtoBE(const AValue: Word): Word; external;
 function NtoBE(const AValue: LongInt): LongInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function NtoBE(const AValue: DWord): DWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function NtoBE(const AValue: DWord): DWord; external;
 function NtoBE(const AValue: Int64): Int64;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function NtoBE(const AValue: QWord): QWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function NtoBE(const AValue: QWord): QWord; external;
 
 function NtoLE(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function NtoLE(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function NtoLE(const AValue: Word): Word; external;
 function NtoLE(const AValue: LongInt): LongInt;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function NtoLE(const AValue: DWord): DWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function NtoLE(const AValue: DWord): DWord; external;
 function NtoLE(const AValue: Int64): Int64;{$ifdef SYSTEMINLINE}inline;{$endif}
-(* function NtoLE(const AValue: QWord): QWord;{$ifdef SYSTEMINLINE}inline;{$endif} *)
+function NtoLE(const AValue: QWord): QWord; external;
 
 {$ifdef FPC_HAS_INTERNAL_ROX}