diff options
Diffstat (limited to 'mps/code/protocol.c')
| -rw-r--r-- | mps/code/protocol.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mps/code/protocol.c b/mps/code/protocol.c index 205f17c180b..ead6730c01a 100644 --- a/mps/code/protocol.c +++ b/mps/code/protocol.c | |||
| @@ -62,7 +62,7 @@ Bool ProtocolIsSubclass(ProtocolClass sub, ProtocolClass super) | |||
| 62 | * This default method must be inherited by any subclass | 62 | * This default method must be inherited by any subclass |
| 63 | * which does not perform a multiple inheritance. | 63 | * which does not perform a multiple inheritance. |
| 64 | */ | 64 | */ |
| 65 | static Bool ProtocolCoerceClass(ProtocolClass *coerceResult, | 65 | static Bool ProtocolCoerceClass(ProtocolClass *coerceResult, |
| 66 | ProtocolClass proClass, | 66 | ProtocolClass proClass, |
| 67 | ProtocolClass super) | 67 | ProtocolClass super) |
| 68 | { | 68 | { |
| @@ -89,7 +89,7 @@ static Bool ProtocolCoerceClass(ProtocolClass *coerceResult, | |||
| 89 | * This default method must be inherited by any subclass | 89 | * This default method must be inherited by any subclass |
| 90 | * which does not perform a multiple inheritance. | 90 | * which does not perform a multiple inheritance. |
| 91 | */ | 91 | */ |
| 92 | static Bool ProtocolCoerceInst(ProtocolInst *coerceResult, | 92 | static Bool ProtocolCoerceInst(ProtocolInst *coerceResult, |
| 93 | ProtocolInst proInst, | 93 | ProtocolInst proInst, |
| 94 | ProtocolClass super) | 94 | ProtocolClass super) |
| 95 | { | 95 | { |
| @@ -113,7 +113,7 @@ static Bool ProtocolCoerceInst(ProtocolInst *coerceResult, | |||
| 113 | 113 | ||
| 114 | /* The class definition for the root of the hierarchy */ | 114 | /* The class definition for the root of the hierarchy */ |
| 115 | 115 | ||
| 116 | DEFINE_CLASS(ProtocolClass, theClass) | 116 | DEFINE_CLASS(ProtocolClass, theClass) |
| 117 | { | 117 | { |
| 118 | theClass->sig = ProtocolClassSig; | 118 | theClass->sig = ProtocolClassSig; |
| 119 | theClass->superclass = theClass; | 119 | theClass->superclass = theClass; |