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

Fixed detecting wrong type for string conversion.

woollybah 9 лет назад
Родитель
Сommit
55fa3f2e3d
1 измененных файлов с 2 добавлено и 1 удалено
  1. 2 1
      ctranslator.bmx

+ 2 - 1
ctranslator.bmx

@@ -1348,7 +1348,8 @@ t:+"NULLNULLNULL"
 
 
 			If TStringType(src) Then
 			If TStringType(src) Then
 				Local tmp:String
 				Local tmp:String
-				If IsPointerType( dst, 0, TType.T_SHORT_PTR ) Then
+
+				If IsPointerType( dst, 0, TType.T_SHORT_PTR ) Or IsPointerType( dst, TType.T_SHORT, TType.T_PTR ) Then
 					tmp = CreateLocal2(NewPointerType(TType.T_SHORT), t)
 					tmp = CreateLocal2(NewPointerType(TType.T_SHORT), t)
 				Else
 				Else
 					tmp = CreateLocal2(NewPointerType(TType.T_BYTE), t)
 					tmp = CreateLocal2(NewPointerType(TType.T_BYTE), t)