Firebird 3.0.7 / PureBasic 5.73 LTS (x64)
Code: Select all
SELECT rdb$get_context('SYSTEM', 'ENGINE_VERSION')
as version from rdb$database;

Code: Select all
SELECT rdb$get_context('SYSTEM', 'ENGINE_VERSION')
as version from rdb$database;
Eval constant value using:#DEBUGMODE = 1
Code: Select all
; Main
CompilerIf Defined(DEBUGMODE, #PB_Constant)
Debug "DEBUG mode"
CompilerEndIf