diff --git a/compiler/xtensa/cgcpu.pas b/compiler/xtensa/cgcpu.pas
index eac742d810..2319667781 100644
--- a/compiler/xtensa/cgcpu.pas
+++ b/compiler/xtensa/cgcpu.pas
@@ -515,6 +515,8 @@ implementation
           end
         else if (op=OP_SHL) and (a>=1) and (a<=31) then
           list.concat(taicpu.op_reg_reg_const(A_SLLI,dst,src,a))
+        else if (op=OP_SAR) and (a>=0) and (a<=31) then
+          list.concat(taicpu.op_reg_reg_const(A_SRAI,dst,src,a))
         else if (op=OP_SHR) and (a>=0) and (a<=15) then
           list.concat(taicpu.op_reg_reg_const(A_SRLI,dst,src,a))
         else if (op=OP_SHR) and (a>15) and (a<=31) then