paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 05:40:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* (64 bit int) shl/shr (value > 63) := 0

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-31 18:12:23 +00:00
parent b95efa49e7
commit 8be1033511
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/powerpc/nppcmat.pas
View File

@ -196,7 +196,12 @@ implementation
if (right.nodetype = ordconstn) then
begin
shiftval := tordconstnode(right).value;
if tordconstnode(right).value > 31 then
if shiftval > 63 then
begin
cg.a_load_const_reg(exprasmlist,OS_32,0,location.registerlow);
cg.a_load_const_reg(exprasmlist,OS_32,0,location.registerlow);
end
else if shiftval > 31 then
begin
if nodetype = shln then
begin
@ -508,7 +513,10 @@ begin
end.
{
$Log$
Revision 1.36 2003-12-28 23:49:30 jonas
Revision 1.37 2003-12-31 18:12:23 jonas
* (64 bit int) shl/shr (value > 63) := 0
Revision 1.36 2003/12/28 23:49:30 jonas
* fixed tnotnode for < 32 bit quantities
Revision 1.35 2003/10/17 01:22:08 florian