paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +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 if (right.nodetype = ordconstn) then
begin begin
shiftval := tordconstnode(right).value; 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 begin
if nodetype = shln then if nodetype = shln then
begin begin
@ -508,7 +513,10 @@ begin
end. end.
{ {
$Log$ $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 * fixed tnotnode for < 32 bit quantities
Revision 1.35 2003/10/17 01:22:08 florian Revision 1.35 2003/10/17 01:22:08 florian