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

* fixed range error

Browse Source
This commit is contained in:
Jonas Maebe 2002-09-02 06:09:02 +00:00
parent aca945888e
commit c7df12f6f0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/powerpc/cgcpu.pas
View File

@ -89,7 +89,7 @@ unit cgcpu;
procedure g_overflowcheck(list: taasmoutput; const p: tnode); override;
{ find out whether a is of the form 11..00..11b or 00..11...00. If }
{ that's the case, we can use rlwinm to do an AND operation }
function get_rlwi_const(a: longint; var l1, l2: longint): boolean;
function get_rlwi_const(a: aword; var l1, l2: longint): boolean;
procedure g_save_standard_registers(list : taasmoutput; usedinproc : tregisterset);override;
procedure g_restore_standard_registers(list : taasmoutput; usedinproc : tregisterset);override;
@ -1476,7 +1476,7 @@ const
{ find out whether a is of the form 11..00..11b or 00..11...00. If }
{ that's the case, we can use rlwinm to do an AND operation }
function tcgppc.get_rlwi_const(a: longint; var l1, l2: longint): boolean;
function tcgppc.get_rlwi_const(a: aword; var l1, l2: longint): boolean;
var
temp, testbit: longint;
@ -1688,7 +1688,10 @@ begin
end.
{
$Log$
Revision 1.50 2002-09-01 21:04:49 florian
Revision 1.51 2002-09-02 06:09:02 jonas
* fixed range error
Revision 1.50 2002/09/01 21:04:49 florian
* several powerpc related stuff fixed
Revision 1.49 2002/09/01 12:09:27 peter