diff options
Diffstat (limited to 'rtl')
| -rw-r--r-- | rtl/inc/systemh.inc | 4 | ||||
| -rw-r--r-- | rtl/java/jsystemh.inc | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc index 1102c2e7bf..cfc0d2c661 100644 --- a/rtl/inc/systemh.inc +++ b/rtl/inc/systemh.inc @@ -938,12 +938,10 @@ function SarLongint(Const AValue : Longint;Shift : Byte): Longint;[internproc:fp function SarLongint(Const AValue : Longint;const Shift : Byte = 1): Longint; {$endif FPC_HAS_INTERNAL_SAR_DWORD} -{$ifdef FPC_HAS_INTERNAL_SAR_QWORD} function SarInt64(Const AValue : Int64): Int64;[internproc:fpc_in_sar_x]; function SarInt64(Const AValue : Int64;Shift : Byte): Int64;[internproc:fpc_in_sar_x_y]; -{$else FPC_HAS_INTERNAL_SAR_QWORD} +{$ifndef FPC_HAS_INTERNAL_SAR_QWORD} function fpc_SarInt64(Const AValue : Int64;const Shift : Byte): Int64;compilerproc; -function SarInt64(Const AValue : Int64;const Shift : Byte = 1): Int64; [external name 'FPC_SARINT64']; {$endif FPC_HAS_INTERNAL_SAR_QWORD} {$ifdef FPC_HAS_INTERNAL_BSF} diff --git a/rtl/java/jsystemh.inc b/rtl/java/jsystemh.inc index 25b5157391..87f387ecaa 100644 --- a/rtl/java/jsystemh.inc +++ b/rtl/java/jsystemh.inc @@ -334,12 +334,10 @@ function SarLongint(Const AValue : Longint;Shift : Byte): Longint;[internproc:fp function SarLongint(Const AValue : Longint;const Shift : Byte = 1): Longint; {$endif FPC_HAS_INTERNAL_SAR_DWORD} -{$ifdef FPC_HAS_INTERNAL_SAR_QWORD} function SarInt64(Const AValue : Int64): Int64;[internproc:fpc_in_sar_x]; function SarInt64(Const AValue : Int64;Shift : Byte): Int64;[internproc:fpc_in_sar_x_y]; -{$else FPC_HAS_INTERNAL_SAR_QWORD} +{$ifndef FPC_HAS_INTERNAL_SAR_QWORD} function fpc_SarInt64(Const AValue : Int64;const Shift : Byte): Int64;compilerproc; -function SarInt64(Const AValue : Int64;const Shift : Byte = 1): Int64; [external name 'fpc_sarint64']; {$endif FPC_HAS_INTERNAL_SAR_QWORD} {$ifdef FPC_HAS_INTERNAL_BSF} |