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

* shr/shl use and 63 for the shift value

Browse Source
This commit is contained in:
peter 2004-05-23 14:09:43 +00:00
parent 324144db92
commit 71611dd39d
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/int64.inc
View File

@ -36,10 +36,9 @@
{$ifndef FPC_SYSTEM_HAS_SHL_QWORD}
function fpc_shl_qword(value,shift : qword) : qword; [public,alias: 'FPC_SHL_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
begin
shift:=shift and 63;
if shift=0 then
result:=value
else if shift>63 then
result:=0
else if shift>31 then
begin
tqwordrec(result).low:=0;
@ -57,10 +56,9 @@
{$ifndef FPC_SYSTEM_HAS_SHR_QWORD}
function fpc_shr_qword(value,shift : qword) : qword; [public,alias: 'FPC_SHR_QWORD']; {$ifdef hascompilerproc} compilerproc; {$endif}
begin
shift:=shift and 63;
if shift=0 then
result:=value
else if shift>63 then
result:=0
else if shift>31 then
begin
tqwordrec(result).high:=0;
@ -78,10 +76,9 @@
{$ifndef FPC_SYSTEM_HAS_SHL_INT64}
function fpc_shl_int64(value,shift : int64) : int64; [public,alias: 'FPC_SHL_INT64']; {$ifdef hascompilerproc} compilerproc; {$endif}
begin
shift:=shift and 63;
if shift=0 then
result:=value
else if shift>63 then
result:=0
else if shift>31 then
begin
tqwordrec(result).low:=0;
@ -99,10 +96,9 @@
{$ifndef FPC_SYSTEM_HAS_SHR_INT64}
function fpc_shr_int64(value,shift : int64) : int64; [public,alias: 'FPC_SHR_INT64']; {$ifdef hascompilerproc} compilerproc; {$endif}
begin
shift:=shift and 63;
if shift=0 then
result:=value
else if shift>63 then
result:=0
else if shift>31 then
begin
tqwordrec(result).high:=0;
@ -366,7 +362,10 @@
{
$Log$
Revision 1.25 2004-04-29 18:59:43 peter
Revision 1.26 2004-05-23 14:09:43 peter
* shr/shl use and 63 for the shift value
Revision 1.25 2004/04/29 18:59:43 peter
* str() helpers now also use valint/valuint
* int64/qword helpers disabled for cpu64