paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 07:08:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* RTL: Changed 'shift' parameter of 64-bit shift helpers to CPU-native size, it doesn't have to be 64-bit because only its lower 6 bits are used. Not using 64 bit parameter improves code quality a bit.

Browse Source 
git-svn-id: trunk@25478 -
This commit is contained in:
sergei 2013-09-13 08:32:45 +00:00
parent 7e6092c4f2
commit b99cf8d680
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/compproc.inc
View File

@ -536,10 +536,10 @@ function fpc_mul_qword(f1,f2 : qword;checkoverflow : longbool) : qword; compiler
function fpc_mul_int64(f1,f2 : int64;checkoverflow : longbool) : int64; compilerproc;
{$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
function fpc_shl_qword(value,shift : qword) : qword; compilerproc;
function fpc_shr_qword(value,shift : qword) : qword; compilerproc;
function fpc_shl_int64(value,shift : int64) : int64; compilerproc;
function fpc_shr_int64(value,shift : int64) : int64; compilerproc;
function fpc_shl_qword(value : qword; shift : sizeint) : qword; compilerproc;
function fpc_shr_qword(value : qword; shift : sizeint) : qword; compilerproc;
function fpc_shl_int64(value : int64; shift : sizeint) : int64; compilerproc;
function fpc_shr_int64(value : int64; shift : sizeint) : int64; compilerproc;
{$endif FPC_INCLUDE_SOFTWARE_SHIFT_INT64}

8
rtl/inc/int64.inc
View File

@ -33,7 +33,7 @@
{$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
{$ifndef FPC_SYSTEM_HAS_SHL_QWORD}
function fpc_shl_qword(value,shift : qword) : qword; [public,alias: 'FPC_SHL_QWORD']; compilerproc;
function fpc_shl_qword(value : qword;shift : sizeint) : qword; [public,alias: 'FPC_SHL_QWORD']; compilerproc;
begin
shift:=shift and 63;
if shift=0 then
@ -53,7 +53,7 @@
{$ifndef FPC_SYSTEM_HAS_SHR_QWORD}
function fpc_shr_qword(value,shift : qword) : qword; [public,alias: 'FPC_SHR_QWORD']; compilerproc;
function fpc_shr_qword(value : qword;shift : sizeint) : qword; [public,alias: 'FPC_SHR_QWORD']; compilerproc;
begin
shift:=shift and 63;
if shift=0 then
@ -73,7 +73,7 @@
{$ifndef FPC_SYSTEM_HAS_SHL_INT64}
function fpc_shl_int64(value,shift : int64) : int64; [public,alias: 'FPC_SHL_INT64']; compilerproc;
function fpc_shl_int64(value : int64;shift : sizeint) : int64; [public,alias: 'FPC_SHL_INT64']; compilerproc;
begin
shift:=shift and 63;
if shift=0 then
@ -93,7 +93,7 @@
{$ifndef FPC_SYSTEM_HAS_SHR_INT64}
function fpc_shr_int64(value,shift : int64) : int64; [public,alias: 'FPC_SHR_INT64']; compilerproc;
function fpc_shr_int64(value : int64;shift : sizeint) : int64; [public,alias: 'FPC_SHR_INT64']; compilerproc;
begin
shift:=shift and 63;
if shift=0 then

8
rtl/java/jcompproc.inc
View File

@ -436,10 +436,10 @@ function fpc_mul_int64(f1,f2 : int64;checkoverflow : longbool) : int64; compiler
*)
{$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
function fpc_shl_qword(value,shift : qword) : qword; compilerproc;
function fpc_shr_qword(value,shift : qword) : qword; compilerproc;
function fpc_shl_int64(value,shift : int64) : int64; compilerproc;
function fpc_shr_int64(value,shift : int64) : int64; compilerproc;
function fpc_shl_qword(value : qword; shift : sizeint) : qword; compilerproc;
function fpc_shr_qword(value : qword; shift : sizeint) : qword; compilerproc;
function fpc_shl_int64(value : int64; shift : sizeint) : int64; compilerproc;
function fpc_shr_int64(value : int64; shift : sizeint) : int64; compilerproc;
{$endif FPC_INCLUDE_SOFTWARE_SHIFT_INT64}