@@ -1237,11 +1237,15 @@ void SpecRefinedActionForYieldProcedure(ref ActionDeclRef refinedAction, IToken
12371237 ImplBody ( out locals , out stmtList ) ;
12381238 if ( refinedAction == null ) {
12391239 var actionName = m . val == "_" ? null : m . val ;
1240- var actionDecl = new ActionDecl ( tok , actionName , moverType , Formal . StripWhereClauses ( ins ) , Formal . StripWhereClauses ( outs ) ,
1240+ var inParams = new List < Variable > ( ins ) ;
1241+ inParams . RemoveAll ( x => x . HasAttribute ( CivlAttributes . HIDE ) ) ;
1242+ var outParams = new List < Variable > ( outs ) ;
1243+ outParams . RemoveAll ( x => x . HasAttribute ( CivlAttributes . HIDE ) ) ;
1244+ var actionDecl = new ActionDecl ( tok , actionName , moverType , Formal . StripWhereClauses ( inParams ) , Formal . StripWhereClauses ( outParams ) ,
12411245 false , new List < ActionDeclRef > ( ) , null , null ,
12421246 new List < Requires > ( ) , new List < CallCmd > ( ) , new List < AssertCmd > ( ) , new List < IdentifierExpr > ( ) , null , akv ) ;
12431247 Pgm . AddTopLevelDeclaration ( actionDecl ) ;
1244- var impl = new Implementation ( tok , actionDecl . Name , new List < TypeVariable > ( ) , Formal . StripWhereClauses ( ins ) , Formal . StripWhereClauses ( outs ) ,
1248+ var impl = new Implementation ( tok , actionDecl . Name , new List < TypeVariable > ( ) , Formal . StripWhereClauses ( inParams ) , Formal . StripWhereClauses ( outParams ) ,
12451249 locals , stmtList , akv == null ? null : ( QKeyValue ) akv . Clone ( ) ) ;
12461250 Pgm . AddTopLevelDeclaration ( impl ) ;
12471251 refinedAction = new ActionDeclRef ( tok , actionDecl . Name ) ;
0 commit comments