paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 03:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changes shift parameter of shift helpers into ALUUInt, as there is an "and" used anyways, this does not change semantics but reduces register pressure on 8 bit targets

Browse Source 
git-svn-id: trunk@42200 -
This commit is contained in:
florian 2019-06-09 21:44:18 +00:00
parent 14b9032ef2
commit f92b8d1681
3 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/compproc.inc
View File

@ -637,14 +637,14 @@ function fpc_div_currency(n,z : currency) : currency; compilerproc;
function fpc_mod_currency(n,z : currency) : currency; compilerproc; function fpc_mod_currency(n,z : currency) : currency; compilerproc;
{$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64} {$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
function fpc_shl_qword(value : qword; shift : sizeint) : qword; compilerproc; function fpc_shl_qword(value : qword; shift : ALUUInt) : qword; compilerproc;
function fpc_shr_qword(value : qword; shift : sizeint) : qword; compilerproc; function fpc_shr_qword(value : qword; shift : ALUUInt) : qword; compilerproc;
function fpc_shl_int64(value : int64; shift : sizeint) : int64; compilerproc; function fpc_shl_int64(value : int64; shift : ALUUInt) : int64; compilerproc;
function fpc_shr_int64(value : int64; shift : sizeint) : int64; compilerproc; function fpc_shr_int64(value : int64; shift : ALUUInt) : int64; compilerproc;
procedure fpc_shl_assign_qword(var value : qword; shift : sizeint); compilerproc; procedure fpc_shl_assign_qword(var value : qword; shift : ALUUInt); compilerproc;
procedure fpc_shr_assign_qword(var value : qword; shift : sizeint); compilerproc; procedure fpc_shr_assign_qword(var value : qword; shift : ALUUInt); compilerproc;
procedure fpc_shl_assign_int64(var value : int64; shift : sizeint); compilerproc; procedure fpc_shl_assign_int64(var value : int64; shift : ALUUInt); compilerproc;
procedure fpc_shr_assign_int64(var value : int64; shift : sizeint); compilerproc; procedure fpc_shr_assign_int64(var value : int64; shift : ALUUInt); compilerproc;
{$endif FPC_INCLUDE_SOFTWARE_SHIFT_INT64} {$endif FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
{$ifndef FPC_HAS_INTERNAL_SAR_ASSIGN_QWORD} {$ifndef FPC_HAS_INTERNAL_SAR_ASSIGN_QWORD}
procedure fpc_sar_assign_int64(var AValue : Int64;const Shift : Byte);compilerproc; procedure fpc_sar_assign_int64(var AValue : Int64;const Shift : Byte);compilerproc;

16
rtl/inc/int64.inc
View File

@ -34,7 +34,7 @@
{$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64} {$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
{$ifndef FPC_SYSTEM_HAS_SHL_QWORD} {$ifndef FPC_SYSTEM_HAS_SHL_QWORD}
function fpc_shl_qword(value : qword;shift : sizeint) : qword; [public,alias: 'FPC_SHL_QWORD']; compilerproc; function fpc_shl_qword(value : qword;shift : ALUUInt) : qword; [public,alias: 'FPC_SHL_QWORD']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift=0 then if shift=0 then
@ -54,7 +54,7 @@
{$ifndef FPC_SYSTEM_HAS_SHL_ASSIGN_QWORD} {$ifndef FPC_SYSTEM_HAS_SHL_ASSIGN_QWORD}
procedure fpc_shl_assign_qword(var value : qword;shift : sizeint); [public,alias: 'FPC_SHL_ASSIGN_QWORD']; compilerproc; procedure fpc_shl_assign_qword(var value : qword;shift : ALUUInt); [public,alias: 'FPC_SHL_ASSIGN_QWORD']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift<>0 then if shift<>0 then
@ -75,7 +75,7 @@
{$ifndef FPC_SYSTEM_HAS_SHR_QWORD} {$ifndef FPC_SYSTEM_HAS_SHR_QWORD}
function fpc_shr_qword(value : qword;shift : sizeint) : qword; [public,alias: 'FPC_SHR_QWORD']; compilerproc; function fpc_shr_qword(value : qword;shift : ALUUInt) : qword; [public,alias: 'FPC_SHR_QWORD']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift=0 then if shift=0 then
@ -95,7 +95,7 @@
{$ifndef FPC_SYSTEM_HAS_SHR_ASSIGN_QWORD} {$ifndef FPC_SYSTEM_HAS_SHR_ASSIGN_QWORD}
procedure fpc_shr_assign_qword(var value : qword;shift : sizeint); [public,alias: 'FPC_SHR_ASSIGN_QWORD']; compilerproc; procedure fpc_shr_assign_qword(var value : qword;shift : ALUUInt); [public,alias: 'FPC_SHR_ASSIGN_QWORD']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift<>0 then if shift<>0 then
@ -116,7 +116,7 @@
{$ifndef FPC_SYSTEM_HAS_SHL_INT64} {$ifndef FPC_SYSTEM_HAS_SHL_INT64}
function fpc_shl_int64(value : int64;shift : sizeint) : int64; [public,alias: 'FPC_SHL_INT64']; compilerproc; function fpc_shl_int64(value : int64;shift : ALUUInt) : int64; [public,alias: 'FPC_SHL_INT64']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift=0 then if shift=0 then
@ -136,7 +136,7 @@
{$ifndef FPC_SYSTEM_HAS_SHL_ASSIGN_INT64} {$ifndef FPC_SYSTEM_HAS_SHL_ASSIGN_INT64}
procedure fpc_shl_assign_int64(var value : int64;shift : sizeint); [public,alias: 'FPC_SHL_ASSIGN_INT64']; compilerproc; procedure fpc_shl_assign_int64(var value : int64;shift : ALUUInt); [public,alias: 'FPC_SHL_ASSIGN_INT64']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift<>0 then if shift<>0 then
@ -157,7 +157,7 @@
{$ifndef FPC_SYSTEM_HAS_SHR_INT64} {$ifndef FPC_SYSTEM_HAS_SHR_INT64}
function fpc_shr_int64(value : int64;shift : sizeint) : int64; [public,alias: 'FPC_SHR_INT64']; compilerproc; function fpc_shr_int64(value : int64;shift : ALUUInt) : int64; [public,alias: 'FPC_SHR_INT64']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift=0 then if shift=0 then
@ -177,7 +177,7 @@
{$ifndef FPC_SYSTEM_HAS_SHR_ASSIGN_INT64} {$ifndef FPC_SYSTEM_HAS_SHR_ASSIGN_INT64}
procedure fpc_shr_assign_int64(var value : int64;shift : sizeint); [public,alias: 'FPC_SHR_ASSIGN_INT64']; compilerproc; procedure fpc_shr_assign_int64(var value : int64;shift : ALUUInt); [public,alias: 'FPC_SHR_ASSIGN_INT64']; compilerproc;
begin begin
shift:=shift and 63; shift:=shift and 63;
if shift<>0 then if shift<>0 then

8
rtl/java/jcompproc.inc
View File

@ -614,10 +614,10 @@ function fpc_mul_longint_to_int64(f1,f2 : longint) : int64; compilerproc;
*) *)
{$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64} {$ifdef FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
function fpc_shl_qword(value : qword; shift : sizeint) : qword; compilerproc; function fpc_shl_qword(value : qword; shift : ALUUInt) : qword; compilerproc;
function fpc_shr_qword(value : qword; shift : sizeint) : qword; compilerproc; function fpc_shr_qword(value : qword; shift : ALUUInt) : qword; compilerproc;
function fpc_shl_int64(value : int64; shift : sizeint) : int64; compilerproc; function fpc_shl_int64(value : int64; shift : ALUUInt) : int64; compilerproc;
function fpc_shr_int64(value : int64; shift : sizeint) : int64; compilerproc; function fpc_shr_int64(value : int64; shift : ALUUInt) : int64; compilerproc;
{$endif FPC_INCLUDE_SOFTWARE_SHIFT_INT64} {$endif FPC_INCLUDE_SOFTWARE_SHIFT_INT64}