diff options
| author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-11-29 23:26:45 +0000 |
|---|---|---|
| committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-11-29 23:26:45 +0000 |
| commit | bc01d7c70d3000994b1b6dd821bd6750e7c864be (patch) | |
| tree | 585757a60dd53c579b33acdfd71471e4b49c4eba /compiler/riscv64 | |
| parent | cb35383562833261431df946708dba2296123127 (diff) | |
| download | fpc-bc01d7c70d3000994b1b6dd821bd6750e7c864be.tar.gz | |
Add explicit smallint typecast to first marameter of SarSmallint call to avoid range check errors
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43613 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/riscv64')
| -rw-r--r-- | compiler/riscv64/cgcpu.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/riscv64/cgcpu.pas b/compiler/riscv64/cgcpu.pas index d953575800..cd973987f6 100644 --- a/compiler/riscv64/cgcpu.pas +++ b/compiler/riscv64/cgcpu.pas @@ -161,7 +161,7 @@ implementation else list.concat(taicpu.op_reg_const(A_LUI,register,(a shr 12) and $FFFFF)); - list.concat(taicpu.op_reg_reg_const(A_ADDIW,register,register,SarSmallint(a shl 4,4))); + list.concat(taicpu.op_reg_reg_const(A_ADDIW,register,register,SarSmallint(smallint(a shl 4),4))); end else begin |