@@ -98,7 +98,7 @@ class FOpenCall extends FunctionCall {
98
98
}
99
99
100
100
abstract class FileAccess extends FunctionCall {
101
- abstract VariableAccess getFileExpr ( ) ;
101
+ abstract Expr getFileExpr ( ) ;
102
102
}
103
103
104
104
pragma [ inline]
@@ -124,7 +124,7 @@ class ImplicitFileAccess extends FileAccess {
124
124
}
125
125
126
126
/** The expression corresponding to the accessed file */
127
- override VariableAccess getFileExpr ( ) {
127
+ override Expr getFileExpr ( ) {
128
128
fileName = result .( VariableAccess ) .getTarget ( ) .( GlobalVariable ) .toString ( ) or
129
129
fileName = result .findRootCause ( ) .( Macro ) .getName ( )
130
130
}
@@ -141,7 +141,7 @@ class InBandErrorReadFunctionCall extends FileAccess {
141
141
}
142
142
143
143
/** The expression corresponding to the accessed file */
144
- override VariableAccess getFileExpr ( ) {
144
+ override Expr getFileExpr ( ) {
145
145
if this instanceof ImplicitFileAccess
146
146
then result = this .( ImplicitFileAccess ) .getFileExpr ( )
147
147
else result = [ this .getArgument ( 0 ) , this .getArgument ( 0 ) .( AddressOfExpr ) .getAnOperand ( ) ]
@@ -167,7 +167,7 @@ class FileReadFunctionCall extends FileAccess {
167
167
}
168
168
169
169
/** The expression corresponding to the accessed file */
170
- override VariableAccess getFileExpr ( ) {
170
+ override Expr getFileExpr ( ) {
171
171
if this instanceof ImplicitFileAccess
172
172
then result = this .( ImplicitFileAccess ) .getFileExpr ( )
173
173
else
@@ -196,7 +196,7 @@ class FileWriteFunctionCall extends FileAccess {
196
196
}
197
197
198
198
/** The expression corresponding to the accessed file */
199
- override VariableAccess getFileExpr ( ) {
199
+ override Expr getFileExpr ( ) {
200
200
if this instanceof ImplicitFileAccess
201
201
then result = this .( ImplicitFileAccess ) .getFileExpr ( )
202
202
else
@@ -225,7 +225,7 @@ class FilePositioningFunctionCall extends FileAccess {
225
225
}
226
226
227
227
/** The expression corresponding to the accessed file */
228
- override VariableAccess getFileExpr ( ) {
228
+ override Expr getFileExpr ( ) {
229
229
result = [ this .getArgument ( 0 ) , this .getArgument ( 0 ) .( AddressOfExpr ) .getAnOperand ( ) ]
230
230
}
231
231
}
0 commit comments