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

AssertWarn( expression )

expression

AssertWarn宏旨在用于调试，只有在FBC命令行中选择了-g选项后才可使用。在这种情况下，如果expression 评估为0，则会打印一条警告消息。它不会停止像Assert这样的程序执行。

它的正常使用是在调试期间检查变量的正确值。

如果-g未传递到fbc，则该宏不生成任何代码。

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

foo 

''如果使用-g，则代码打印：test.bas（3）：在FOO：a = 1时断言失败

• 在-lang qb 方言中不可用，除非使用别名__ASSERTWARN引用。
  
  

• 新的FreeBASIC
  
  

• Assert