|
@@ -273,14 +273,13 @@ Class ClassType Extends Type
|
|
If func.ftype.argTypes Continue
|
|
If func.ftype.argTypes Continue
|
|
hasDefaultCtor=True
|
|
hasDefaultCtor=True
|
|
Next
|
|
Next
|
|
- Else
|
|
|
|
|
|
+ Else If Not cdecl.IsExtension
|
|
If superType And Not superType.hasDefaultCtor
|
|
If superType And Not superType.hasDefaultCtor
|
|
Try
|
|
Try
|
|
Throw New SemantEx( "Super class '"+superType.Name+"' has no default constructor" )
|
|
Throw New SemantEx( "Super class '"+superType.Name+"' has no default constructor" )
|
|
Catch ex:SemantEx
|
|
Catch ex:SemantEx
|
|
End
|
|
End
|
|
Endif
|
|
Endif
|
|
-
|
|
|
|
hasDefaultCtor=True
|
|
hasDefaultCtor=True
|
|
Endif
|
|
Endif
|
|
|
|
|