@@ -1423,6 +1423,12 @@ module MakeImpl<LocationSig Location, InputSig<Location> Lang> {
1423
1423
1424
1424
private class TypOption = TypOption:: Option ;
1425
1425
1426
+ private string ppStored ( TypOption stored ) {
1427
+ exists ( string ppt | ppt = stored .toString ( ) |
1428
+ if stored .isNone ( ) or ppt = "" then result = "" else result = " : " + ppt
1429
+ )
1430
+ }
1431
+
1426
1432
/* Begin: Stage logic. */
1427
1433
pragma [ nomagic]
1428
1434
private Typ getNodeTyp ( NodeEx node ) {
@@ -1604,14 +1610,8 @@ module MakeImpl<LocationSig Location, InputSig<Location> Lang> {
1604
1610
1605
1611
private string ppTyp ( ) { result = t .toString ( ) and result != "" }
1606
1612
1607
- private string ppStored ( ) {
1608
- exists ( string ppt | ppt = stored .toString ( ) |
1609
- if stored .isNone ( ) or ppt = "" then result = "" else result = " : " + ppt
1610
- )
1611
- }
1612
-
1613
1613
override string toString ( ) {
1614
- result = p + concat ( " : " + this .ppTyp ( ) ) + " " + ap + this . ppStored ( )
1614
+ result = p + concat ( " : " + this .ppTyp ( ) ) + " " + ap + ppStored ( stored )
1615
1615
}
1616
1616
1617
1617
override Location getLocation ( ) { result = p .getLocation ( ) }
@@ -3050,12 +3050,6 @@ module MakeImpl<LocationSig Location, InputSig<Location> Lang> {
3050
3050
)
3051
3051
}
3052
3052
3053
- private string ppStored ( ) {
3054
- exists ( string ppt | ppt = stored .toString ( ) |
3055
- if stored .isNone ( ) or ppt = "" then result = "" else result = " : " + ppt
3056
- )
3057
- }
3058
-
3059
3053
private string ppCtx ( ) { result = " <" + cc + ">" }
3060
3054
3061
3055
private string ppSummaryCtx ( ) {
@@ -3066,7 +3060,7 @@ module MakeImpl<LocationSig Location, InputSig<Location> Lang> {
3066
3060
}
3067
3061
3068
3062
override string toString ( ) {
3069
- result = node .toString ( ) + this .ppType ( ) + this .ppAp ( ) + this . ppStored ( )
3063
+ result = node .toString ( ) + this .ppType ( ) + this .ppAp ( ) + ppStored ( stored )
3070
3064
}
3071
3065
3072
3066
/**
@@ -3075,7 +3069,7 @@ module MakeImpl<LocationSig Location, InputSig<Location> Lang> {
3075
3069
*/
3076
3070
string toStringWithContext ( ) {
3077
3071
result =
3078
- node .toString ( ) + this .ppType ( ) + this .ppAp ( ) + this . ppStored ( ) + this .ppCtx ( ) +
3072
+ node .toString ( ) + this .ppType ( ) + this .ppAp ( ) + ppStored ( stored ) + this .ppCtx ( ) +
3079
3073
this .ppSummaryCtx ( )
3080
3074
}
3081
3075
0 commit comments