From 2ff391c25c763d3aa585160c5643293571a37e29 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 17 May 2019 06:39:57 +0000
Subject: [PATCH]  Fix arm-aros rtl compilation

git-svn-id: trunk@42090 -
---
 compiler/arm/aasmcpu.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/arm/aasmcpu.pas b/compiler/arm/aasmcpu.pas
index 55c962dcfb..46bc293d15 100644
--- a/compiler/arm/aasmcpu.pas
+++ b/compiler/arm/aasmcpu.pas
@@ -5577,6 +5577,7 @@ implementation
                     bytes:=bytes or (1 shl 24);
 
                   case oppostfix of
+                    PF_S: bytes:=bytes or (0 shl 22) or (0 shl 15);
                     PF_D: bytes:=bytes or (0 shl 22) or (1 shl 15);
                     PF_E: bytes:=bytes or (1 shl 22) or (0 shl 15);
                     PF_P: bytes:=bytes or (1 shl 22) or (1 shl 15);