8
0
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-24 01:23:03 +01:00

Fixed BLR filter for exceptions with strings (EXCEPTION e 'string')

This commit is contained in:
asfernandes 2007-05-11 15:14:31 +00:00
parent bde8d63fe9
commit 6a0e5e1ae0

View File

@ -2945,6 +2945,14 @@ static void blr_print_cond(gds_ctl* control)
blr_print_char(control);
break;
case blr_exception_msg:
blr_format(control, "blr_exception_msg, ");
n = blr_print_byte(control);
while (--n >= 0)
blr_print_char(control);
blr_print_verb(control, 0);
break;
case blr_sql_code:
blr_format(control, "blr_sql_code, ");
blr_print_word(control);