MCPcopy Create free account
hub / github.com/FirebirdSQL/firebird / gen_s_end

Function gen_s_end

src/gpre/languages/ada.cpp:2691–2714  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

2689//
2690
2691static void gen_s_end( const act* action, int column)
2692{
2693 gpre_req* request = action->act_request;
2694
2695 if (action->act_type == ACT_close)
2696 {
2697 make_cursor_open_test(ACT_close, request, column);
2698 column += INDENT;
2699 }
2700
2701 printa(column, "firebird.UNWIND_REQUEST (%s %s, %s);", status_vector(action),
2702 request->req_handle, request->req_request_level);
2703
2704 set_sqlcode(action, column);
2705
2706 if (action->act_type == ACT_close)
2707 {
2708 printa(column, "if (SQLCODE = 0) then");
2709 printa(column + INDENT, "isc_%do := 0;", request->req_ident);
2710 endif(column);
2711 column -= INDENT;
2712 endif(column);
2713 }
2714}
2715
2716
2717//____________________________________________________________

Callers 1

ADA_actionFunction · 0.70

Calls 5

make_cursor_open_testFunction · 0.85
printaFunction · 0.70
status_vectorFunction · 0.70
set_sqlcodeFunction · 0.70
endifFunction · 0.70

Tested by

no test coverage detected