@@ -12,15 +12,15 @@ public class ProcedureShouldBeFunctionInspectionResult : CodeInspectionResultBas
12
12
{
13
13
private readonly IEnumerable < CodeInspectionQuickFix > _quickFixes ;
14
14
15
- public ProcedureShouldBeFunctionInspectionResult ( IInspection inspection , RubberduckParserState state , QualifiedContext < VBAParser . ArgListContext > argListQualifiedContext , QualifiedContext < VBAParser . SubStmtContext > subStmtQualifiedContext , QualifiedContext < VBAParser . ArgContext > argQualifiedContext )
15
+ public ProcedureShouldBeFunctionInspectionResult ( IInspection inspection , RubberduckParserState state , QualifiedContext < VBAParser . ArgListContext > argListQualifiedContext , QualifiedContext < VBAParser . SubStmtContext > subStmtQualifiedContext )
16
16
: base ( inspection ,
17
17
string . Format ( inspection . Description , subStmtQualifiedContext . Context . ambiguousIdentifier ( ) . GetText ( ) ) ,
18
18
subStmtQualifiedContext . ModuleName ,
19
19
subStmtQualifiedContext . Context . ambiguousIdentifier ( ) )
20
20
{
21
21
_quickFixes = new [ ]
22
22
{
23
- new ChangeProcedureToFunction ( state , argListQualifiedContext , subStmtQualifiedContext , argQualifiedContext , QualifiedSelection ) ,
23
+ new ChangeProcedureToFunction ( state , argListQualifiedContext , subStmtQualifiedContext , QualifiedSelection ) ,
24
24
} ;
25
25
}
26
26
@@ -37,14 +37,15 @@ public class ChangeProcedureToFunction : CodeInspectionQuickFix
37
37
public ChangeProcedureToFunction ( RubberduckParserState state ,
38
38
QualifiedContext < VBAParser . ArgListContext > argListQualifiedContext ,
39
39
QualifiedContext < VBAParser . SubStmtContext > subStmtQualifiedContext ,
40
- QualifiedContext < VBAParser . ArgContext > argQualifiedContext ,
41
40
QualifiedSelection selection )
42
41
: base ( subStmtQualifiedContext . Context , selection , InspectionsUI . ProcedureShouldBeFunctionInspectionQuickFix )
43
42
{
44
43
_state = state ;
45
44
_argListQualifiedContext = argListQualifiedContext ;
46
45
_subStmtQualifiedContext = subStmtQualifiedContext ;
47
- _argQualifiedContext = argQualifiedContext ;
46
+ _argQualifiedContext = new QualifiedContext < VBAParser . ArgContext > ( _argListQualifiedContext . ModuleName ,
47
+ _argListQualifiedContext . Context . arg ( )
48
+ . First ( a => a . BYREF ( ) != null || ( a . BYREF ( ) == null && a . BYVAL ( ) == null ) ) ) ;
48
49
}
49
50
50
51
public override void Fix ( )
0 commit comments