@@ -98,7 +98,7 @@ class FOpenCall extends FunctionCall {
9898}
9999
100100abstract class FileAccess extends FunctionCall {
101- abstract VariableAccess getFileExpr ( ) ;
101+ abstract Expr getFileExpr ( ) ;
102102}
103103
104104pragma [ inline]
@@ -124,7 +124,7 @@ class ImplicitFileAccess extends FileAccess {
124124 }
125125
126126 /** The expression corresponding to the accessed file */
127- override VariableAccess getFileExpr ( ) {
127+ override Expr getFileExpr ( ) {
128128 fileName = result .( VariableAccess ) .getTarget ( ) .( GlobalVariable ) .toString ( ) or
129129 fileName = result .findRootCause ( ) .( Macro ) .getName ( )
130130 }
@@ -141,7 +141,7 @@ class InBandErrorReadFunctionCall extends FileAccess {
141141 }
142142
143143 /** The expression corresponding to the accessed file */
144- override VariableAccess getFileExpr ( ) {
144+ override Expr getFileExpr ( ) {
145145 if this instanceof ImplicitFileAccess
146146 then result = this .( ImplicitFileAccess ) .getFileExpr ( )
147147 else result = [ this .getArgument ( 0 ) , this .getArgument ( 0 ) .( AddressOfExpr ) .getAnOperand ( ) ]
@@ -167,7 +167,7 @@ class FileReadFunctionCall extends FileAccess {
167167 }
168168
169169 /** The expression corresponding to the accessed file */
170- override VariableAccess getFileExpr ( ) {
170+ override Expr getFileExpr ( ) {
171171 if this instanceof ImplicitFileAccess
172172 then result = this .( ImplicitFileAccess ) .getFileExpr ( )
173173 else
@@ -196,7 +196,7 @@ class FileWriteFunctionCall extends FileAccess {
196196 }
197197
198198 /** The expression corresponding to the accessed file */
199- override VariableAccess getFileExpr ( ) {
199+ override Expr getFileExpr ( ) {
200200 if this instanceof ImplicitFileAccess
201201 then result = this .( ImplicitFileAccess ) .getFileExpr ( )
202202 else
@@ -225,7 +225,7 @@ class FilePositioningFunctionCall extends FileAccess {
225225 }
226226
227227 /** The expression corresponding to the accessed file */
228- override VariableAccess getFileExpr ( ) {
228+ override Expr getFileExpr ( ) {
229229 result = [ this .getArgument ( 0 ) , this .getArgument ( 0 ) .( AddressOfExpr ) .getAnOperand ( ) ]
230230 }
231231}
0 commit comments