From c1e26b15742acc6ce91dc51f8f382bbc6b4cb25f Mon Sep 17 00:00:00 2001
From: Jan Vrany <jan.vrany@labware.com>
Date: Fri, 20 Oct 2023 21:36:21 +0100
Subject: [PATCH] POWER: refactor `?store` evaluators

...to use common helper.
---
 .../TRPPC64CodeEvaluator.class.st             | 51 ++++++++++++++++---
 1 file changed, 45 insertions(+), 6 deletions(-)

diff --git a/src/Tinyrossa-POWER/TRPPC64CodeEvaluator.class.st b/src/Tinyrossa-POWER/TRPPC64CodeEvaluator.class.st
index ad9cfbb..ad386a4 100644
--- a/src/Tinyrossa-POWER/TRPPC64CodeEvaluator.class.st
+++ b/src/Tinyrossa-POWER/TRPPC64CodeEvaluator.class.st
@@ -33,6 +33,30 @@ TRPPC64CodeEvaluator >> commonLoad: node [
 	^dstReg.
 ]
 
+{ #category : #'evaluation-helpers' }
+TRPPC64CodeEvaluator >> commonStore: node [
+	"Handles astore, lstore, istore, sstore & bstore"  
+
+	| srcReg offset type |
+
+	offset := (AcDSLSymbol value: node symbol name).
+	srcReg := self evaluate: node child1.
+
+	type := node type.
+	(type == Address or:[type == Int64]) ifTrue:[
+		self shouldImplement
+	] ifFalse:[ type == Int32 ifTrue:[
+		 generate
+			stw: srcReg, (gr1 + offset).             
+	] ifFalse:[ type == Int16 ifTrue:[
+		self shouldImplement
+	] ifFalse:[ type == Int8 ifTrue:[
+		self shouldImplement
+	]]]].
+
+	^nil.
+]
+
 { #category : #evaluation }
 TRPPC64CodeEvaluator >> evaluate_aconst: node [
 	^self evaluate_lconst: node
@@ -43,6 +67,11 @@ TRPPC64CodeEvaluator >> evaluate_aload: node [
 	^ self commonLoad: node
 ]
 
+{ #category : #evaluation }
+TRPPC64CodeEvaluator >> evaluate_astore: node [
+	^ self commonStore: node
+]
+
 { #category : #evaluation }
 TRPPC64CodeEvaluator >> evaluate_bconst: node [
 	^ self evaluate_iconst: node
@@ -53,6 +82,11 @@ TRPPC64CodeEvaluator >> evaluate_bload: node [
 	^ self commonLoad: node
 ]
 
+{ #category : #evaluation }
+TRPPC64CodeEvaluator >> evaluate_bstore: node [
+	^ self commonStore: node
+]
+
 { #category : #evaluation }
 TRPPC64CodeEvaluator >> evaluate_goto: node [
 	generate b: node symbol.
@@ -185,12 +219,7 @@ TRPPC64CodeEvaluator >> evaluate_imul: node [
 
 { #category : #evaluation }
 TRPPC64CodeEvaluator >> evaluate_istore: node [
-	| symbol srcReg |
-
-	symbol := node symbol.
-	srcReg := self evaluate: node child1.
-	generate stw: srcReg, (gr1 + (AcDSLSymbol value: symbol name)).
-	^ nil
+	^ self commonStore: node
 ]
 
 { #category : #evaluation }
@@ -229,6 +258,11 @@ TRPPC64CodeEvaluator >> evaluate_lload: node [
 	^ self commonLoad: node
 ]
 
+{ #category : #evaluation }
+TRPPC64CodeEvaluator >> evaluate_lstore: node [
+	^ self commonStore: node
+]
+
 { #category : #evaluation }
 TRPPC64CodeEvaluator >> evaluate_sconst: node [
 	^ self evaluate_iconst: node
@@ -238,3 +272,8 @@ TRPPC64CodeEvaluator >> evaluate_sconst: node [
 TRPPC64CodeEvaluator >> evaluate_sload: node [
 	^ self commonLoad: node
 ]
+
+{ #category : #evaluation }
+TRPPC64CodeEvaluator >> evaluate_sstore: node [
+	^ self commonStore: node
+]