Просмотр исходного кода

Fixed null enum default arg. Fixes #523.

Brucey 5 лет назад
Родитель
Сommit
db48057673
1 измененных файлов с 5 добавлено и 1 удалено
  1. 5 1
      ctranslator.bmx

+ 5 - 1
ctranslator.bmx

@@ -5516,7 +5516,11 @@ End Rem
 		EndIf
 		EndIf
 
 
 		If TEnumType(expr.exprType) Then
 		If TEnumType(expr.exprType) Then
-			Return Expr.Eval()
+			If TCastExpr(expr) And TNullExpr(TCastExpr(expr).expr) Then
+				Return TransValue(expr.exprType, Null)
+			Else
+				Return Expr.Eval()
+			End If
 		End If
 		End If
 
 
 		'If TObjectType(expr.exprType) And TNullDecl(TObjectType(expr.exprType).classDecl) Then
 		'If TObjectType(expr.exprType) And TNullDecl(TObjectType(expr.exprType).classDecl) Then