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

Function gen_ready

src/gpre/languages/pas.cpp:2371–2393  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

2369//
2370
2371static void gen_ready( const act* action, int column)
2372{
2373 const TEXT* vector = status_vector(action);
2374
2375 for (rdy* ready = (rdy*) action->act_object; ready; ready = ready->rdy_next)
2376 {
2377 const gpre_dbb* db = ready->rdy_database;
2378 const TEXT* filename = ready->rdy_filename;
2379 if (!filename)
2380 filename = db->dbb_runtime;
2381 if ((action->act_error || (action->act_flags & ACT_sql)) && ready != (rdy*) action->act_object)
2382 {
2383 printa(column, "if (gds__status[2] = 0) then begin");
2384 }
2385 make_ready(db, filename, vector, column, ready->rdy_request);
2386 if ((action->act_error || (action->act_flags & ACT_sql)) &&
2387 ready != (rdy*) action->act_object)
2388 {
2389 endp(column);
2390 }
2391 }
2392 set_sqlcode(action, column);
2393}
2394
2395
2396//____________________________________________________________

Callers 1

PAS_actionFunction · 0.70

Calls 5

status_vectorFunction · 0.70
printaFunction · 0.70
make_readyFunction · 0.70
endpFunction · 0.70
set_sqlcodeFunction · 0.70

Tested by

no test coverage detected