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

Change parameter type to tcgint for is_imm12 and is_lui_imm functions to avoid range check errors

Browse Source 
git-svn-id: trunk@43609 -
This commit is contained in:
pierre 2019-11-29 10:31:31 +00:00
parent 4715c94789
commit fb33da5f41
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/riscv32/cpubase.pas
View File

@ -313,8 +313,8 @@ uses
Helpers Helpers
*****************************************************************************} *****************************************************************************}
function is_imm12(value: aint): boolean; function is_imm12(value: tcgint): boolean;
function is_lui_imm(value: aint): boolean; function is_lui_imm(value: tcgint): boolean;
function is_calljmp(o:tasmop):boolean; function is_calljmp(o:tasmop):boolean;
@ -359,13 +359,13 @@ implementation
Helpers Helpers
*****************************************************************************} *****************************************************************************}
function is_imm12(value: aint): boolean; function is_imm12(value: tcgint): boolean;
begin begin
result:=(value >= -2048) and (value <= 2047); result:=(value >= -2048) and (value <= 2047);
end; end;
function is_lui_imm(value: aint): boolean; function is_lui_imm(value: tcgint): boolean;
begin begin
result:=SarInt64((value and $FFFFF000) shl 32, 32) = value; result:=SarInt64((value and $FFFFF000) shl 32, 32) = value;
end; end;

8
compiler/riscv64/cpubase.pas
View File

@ -328,8 +328,8 @@ const
Helpers Helpers
*****************************************************************************} *****************************************************************************}
function is_imm12(value: aint): boolean; function is_imm12(value: tcgint): boolean;
function is_lui_imm(value: aint): boolean; function is_lui_imm(value: tcgint): boolean;
function is_calljmp(o:tasmop):boolean; function is_calljmp(o:tasmop):boolean;
@ -374,13 +374,13 @@ implementation
Helpers Helpers
*****************************************************************************} *****************************************************************************}
function is_imm12(value: aint): boolean; function is_imm12(value: tcgint): boolean;
begin begin
result:=(value >= -2048) and (value <= 2047); result:=(value >= -2048) and (value <= 2047);
end; end;
function is_lui_imm(value: aint): boolean; function is_lui_imm(value: tcgint): boolean;
begin begin
result:=SarInt64((value and $FFFFF000) shl 32, 32) = value; result:=SarInt64((value and $FFFFF000) shl 32, 32) = value;
end; end;