Merge pull request #58 from moosetechnology/48-part2

removing generation of unused structures
moosetechnology · Sep 25, 2023 · 8d64330 · 8d64330
2 parents f9824b3 + 26c71be
commit 8d64330
Showing 1 changed file with 0 additions and 16 deletions.
diff --git a/src/FAST-Fortran-Generator/FASTFortranGenerator.class.st b/src/FAST-Fortran-Generator/FASTFortranGenerator.class.st
@@ -207,19 +207,6 @@ FASTFortranGenerator >> defineData [
 		             newClassNamed: #Substring
 		             comment: 'I represent Fortran Substring'.
 
-	pointer := builder
-		           newClassNamed: #Pointer
-		           comment: 'I represent Fortran Pointer statement'.
-
-	record := builder
-		          newClassNamed: #Record
-		          comment: 'I represent Fortran Record statement'.
-
-	structure := builder
-		             newClassNamed: #Structure
-		             comment: 'I represent Fortran Structure statement'.
-
-
 	"CONSTANTS"
 
 	asterisk := builder
@@ -465,9 +452,6 @@ FASTFortranGenerator >> defineHierarchy [
 	loopControlExpression --|> tExpression.
 
 	substring --|> tExpression.
-	pointer --|> tExpression.
-	record --|> tExpression.
-	structure --|> tExpression.
 
 	binaryExpression --|> tBinaryExpression.
 	unaryExpression --|> tUnaryExpression.