#define AssertWarn(expression) If (expression) = 0 Then : fb_AssertWarn( __FILE__, __LINE__, __FUNCTION__, #expression ) : End If

AssertWarn( expression )

expression

Макрос AssertWarn предназначен для использования в отладке и работает только при указанной опции -g в командной строке FBC. В этом случае он выдает предупреждающее сообщение, если expression оценивается как 0. Макрос не останавливает выполнение программы, как Assert.

Его обычное использование: проверка правильности значения переменных во время отладки.

Если -g не указана с fbc, макрос не генерирует никакого кода.

Sub foo
  Dim a As Integer
  a=0
  AssertWarn(a=1)
End Sub

foo 

'' If -g is used this code prints: test.bas(3): assertion failed at FOO: a=1 

• Не доступно в диалекте -lang qb , но есть псевдоним __ASSERTWARN.
  
  

• Новое в FreeBASIC
  
  

• Assert