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

Function gen_s_end

src/gpre/languages/ftn.cpp:3059–3077  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

3057//
3058
3059static void gen_s_end(const act* action)
3060{
3061 const gpre_req* request = action->act_request;
3062
3063 if (action->act_type == ACT_close)
3064 gen_cursor_close(request);
3065
3066 printa(COLUMN, "CALL ISC_UNWIND_REQUEST (%s, %s, %s%s%s)",
3067 status_vector(),
3068 request->req_handle, VAL_1, request->req_request_level, VAL_2);
3069
3070 if (action->act_type == ACT_close)
3071 {
3072 printa(COLUMN, "END IF");
3073 printa(COLUMN, "END IF");
3074 }
3075
3076 status_and_stop(action);
3077}
3078
3079
3080//____________________________________________________________

Callers 1

FTN_actionFunction · 0.70

Calls 4

status_and_stopFunction · 0.85
gen_cursor_closeFunction · 0.70
printaFunction · 0.70
status_vectorFunction · 0.70

Tested by

no test coverage detected