@@ -173,7 +173,7 @@ class ClassList extends TClassList {
173173 this .duplicate ( n ) and result = this .deduplicate ( n + 1 )
174174 or
175175 exists ( ClassObjectInternal cls , ClassList tail |
176- deduplicateCons ( n , cls , tail ) and
176+ this . deduplicateCons ( n , cls , tail ) and
177177 result = Cons ( cls , tail )
178178 )
179179 }
@@ -281,17 +281,17 @@ private class ClassListList extends TClassListList {
281281 removed_head = this .removedClassPartsCons1 ( cls , removed_tail , n ) .removeHead ( cls )
282282 }
283283
284- pragma [ noinline ]
284+ pragma [ nomagic ]
285285 predicate removedClassPartsCons0 ( ClassObjectInternal cls , ClassListList removed_tail , int n ) {
286286 exists ( ClassList prev_head , ClassListList prev_tail |
287287 this .removedClassParts ( cls , prev_head , prev_tail , n + 1 ) and
288288 removed_tail = ConsList ( prev_head , prev_tail )
289289 )
290290 }
291291
292- pragma [ noinline ]
292+ pragma [ nomagic ]
293293 ClassList removedClassPartsCons1 ( ClassObjectInternal cls , ClassListList removed_tail , int n ) {
294- removedClassPartsCons0 ( cls , removed_tail , n ) and
294+ this . removedClassPartsCons0 ( cls , removed_tail , n ) and
295295 result = this .getItem ( n )
296296 }
297297
@@ -310,7 +310,7 @@ private class ClassListList extends TClassListList {
310310 cl = this .getItem ( n ) and
311311 j = cl .length ( )
312312 or
313- legalMergeCandidateNonEmpty ( cls , n , cl , j + 1 ) and
313+ this . legalMergeCandidateNonEmpty ( cls , n , cl , j + 1 ) and
314314 j >= 1 and
315315 cls != cl .getItem ( j )
316316 }
@@ -321,14 +321,14 @@ private class ClassListList extends TClassListList {
321321 this .legalMergeCandidate ( cls , n + 1 ) and
322322 this .getItem ( n ) = Empty ( )
323323 or
324- legalMergeCandidateNonEmpty ( cls , n , _, 1 )
324+ this . legalMergeCandidateNonEmpty ( cls , n , _, 1 )
325325 }
326326
327327 predicate legalMergeCandidate ( ClassObjectInternal cls ) { this .legalMergeCandidate ( cls , 0 ) }
328328
329329 predicate illegalMergeCandidate ( ClassObjectInternal cls ) {
330330 exists ( ClassList cl , int j |
331- legalMergeCandidateNonEmpty ( cls , _, cl , j + 1 ) and
331+ this . legalMergeCandidateNonEmpty ( cls , _, cl , j + 1 ) and
332332 j >= 1 and
333333 cls = cl .getItem ( j )
334334 )
0 commit comments