コンパイラによって設定された、組み込み定義(マクロ値)
構文:
__FB_ERR__
記述:
値 |
旗 |
内容 |
0 |
no flag |
|
1 |
errorcheck |
implied by '-e', '-ex', '-exx' |
2 |
resumeerr |
implied by '-ex', '-exx' |
4 |
extraerrchk |
implied by '-exx' |
8 |
arrayboundchk |
implied by '-earray', '-exx' |
16 |
nullptrchk |
implied by '-enullptr', '-exx' |
32 |
assertions |
implied by '-eassert', '-g' |
64 |
debuginfo |
implied by '-edebuginfo', '-g' |
128 |
debug |
implied by '-edebug', '-g' |
256 |
errlocation |
implied by '-elocation', '-exx' |
512 |
unwindinfo |
implied by '-eunwind', '-e', '-ex', '-exx' |
'__FB_ERR__ の使い方を示すコード例
Dim fb_err_value As Integer
fb_err_value = __FB_ERR__
If fb_err_value = 0 Then
Print "no flag enabled"
Else
If fb_err_value And 1 Then
Print "'errorcheck' flag enabled"
End If
If fb_err_value And 2 Then
Print "'resumeerr' flag enabled"
End If
If fb_err_value And 4 Then
Print "'extraerrchk' flag enabled"
End If
If fb_err_value And 8 Then
Print "'arrayboundchk' flag enabled"
End If
If fb_err_value And 16 Then
Print "'nullptrchk' flag enabled"
End If
If fb_err_value And 32 Then
Print "'assertions' flag enabled"
End If
If fb_err_value And 64 Then
Print "'debuginfo' flag enabled"
End If
If fb_err_value And 128 Then
Print "'debug' flag enabled"
End If
If fb_err_value And 256 Then
Print "'errlocation' flag enabled"
End If
If fb_err_value And 512 Then
Print "'unwindinfo' flag enabled"
End If
End If
旧例:
'__FB_ERR__ の使い方を示す、コード例
Dim err_command_line As UByte
err_command_line = __FB_ERR__
Select Case err_command_line
Case 0
Print "コマンド・ラインで有効にされた エラー・チェック はありません!"
Case 1
Print "コマンド・ラインで いずれかのエラー・チェック が有効にされました!"
Case 3
Print "コマンド・ラインで、QBasic スタイル エラー・チェック が有効にされました!"
Case 7
Print "コマンド・ラインで、Extreme エラー・チェックが有効にされました!"
Case Else
Print "未知のエラー・レベルが設定されました!"
End Select
Sleep
バージョン:
QBからの違い:
参照: