Removing FASTEsopeAttributeDeref because already exist as FASTFortran…

…FieldAccess
moosetechnology · Jan 10, 2025 · 79ea192 · 79ea192
1 parent 158fc79
commit 79ea192
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/src/FAST-Esope-Generator/FASTEsopeGenerator.class.st b/src/FAST-Esope-Generator/FASTEsopeGenerator.class.st
@@ -19,7 +19,6 @@ Class {
 		'variableDeclarationStatement',
 		'pointeurDeclarationStatement',
 		'variable',
-		'attributeDerefVariable',
 		'binaryExpression',
 		'arrayDimensionExpression'
 	],
@@ -52,7 +51,9 @@ FASTEsopeGenerator >> defineClasses [
 	super defineClasses.
 
 	arrayDimensionExpression := self newClassNamed: #ArrayDimensionExpression comment: 'I represent a slash operator ptr.attr(/1)'.
-	attributeDerefVariable := self newClassNamed: #AttributeDerefVariable comment: 'I represent an attribute in  ptr.attr'.
+
+	"already exists in FASTFortran as FASTFortranFieldAccess
+	attributeDerefVariable := self newClassNamed: #AttributeDerefVariable comment: 'I represent an attribute in  ptr.attr'."
 
 	segment := self newClassNamed: #Segment comment: 'comment for segment'.
 
@@ -81,8 +82,6 @@ FASTEsopeGenerator >> defineClasses [
 { #category : 'definition' }
 FASTEsopeGenerator >> defineHierarchy [
 
-	attributeDerefVariable --|> variable.
-
 	arrayDimensionExpression --|> binaryExpression.
 
 	segment --|> #TType.
@@ -110,9 +109,6 @@ FASTEsopeGenerator >> defineHierarchy [
 FASTEsopeGenerator >> defineRelations [ 
 	super defineRelations.
 
-	(attributeDerefVariable property: #pointer) - (variable property: #pointerInParentDeref).
-	(attributeDerefVariable property: #attribute) - (variable property: #attributeInParentDeref).
-
 	esopeCommand -* variable.
 
 	pointeurDeclarationStatement -* variableDeclarationStatement.