@@ -502,21 +502,28 @@ private string stubClassName(Type t) {
502
502
else
503
503
if t instanceof TupleType
504
504
then
505
- if t .( TupleType ) .getArity ( ) < 2
506
- then result = stubClassName ( t .( TupleType ) .getUnderlyingType ( ) )
507
- else
508
- result =
509
- "(" +
510
- concat ( int i , Type element |
511
- element = t .( TupleType ) .getElementType ( i )
512
- |
513
- stubClassName ( element ) , "," order by i
514
- ) + ")"
505
+ exists ( TupleType tt | tt = t |
506
+ if tt .getArity ( ) < 2
507
+ then result = stubClassName ( tt .getUnderlyingType ( ) )
508
+ else
509
+ result =
510
+ "(" +
511
+ concat ( int i , Type element |
512
+ element = tt .getElementType ( i )
513
+ |
514
+ stubClassName ( element ) , "," order by i
515
+ ) + ")"
516
+ )
515
517
else
516
518
if t instanceof FunctionPointerType
517
519
then
518
- exists ( CallingConvention callconvention , string calltext |
519
- callconvention = t .( FunctionPointerType ) .getCallingConvention ( ) and
520
+ exists (
521
+ FunctionPointerType fpt , CallingConvention callconvention ,
522
+ string calltext
523
+ |
524
+ fpt = t
525
+ |
526
+ callconvention = fpt .getCallingConvention ( ) and
520
527
(
521
528
if callconvention instanceof UnmanagedCallingConvention
522
529
then calltext = "unmanaged"
@@ -525,10 +532,10 @@ private string stubClassName(Type t) {
525
532
result =
526
533
"delegate* " + calltext + "<" +
527
534
concat ( int i , Parameter p |
528
- p = t . ( FunctionPointerType ) .getParameter ( i )
535
+ p = fpt .getParameter ( i )
529
536
|
530
537
stubClassName ( p .getType ( ) ) + "," order by i
531
- ) + stubClassName ( t . ( FunctionPointerType ) .getReturnType ( ) ) + ">"
538
+ ) + stubClassName ( fpt .getReturnType ( ) ) + ">"
532
539
)
533
540
else
534
541
if t instanceof ValueOrRefType
0 commit comments