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

Function gen_store

src/gpre/languages/cob.cpp:3473–3491  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

3471//
3472
3473static void gen_store( const act* action)
3474{
3475 const gpre_req* request = action->act_request;
3476 gen_compile(action);
3477
3478 // Initialize any blob fields
3479
3480 TEXT name[MAX_REF_SIZE];
3481 const gpre_port* port = request->req_primary;
3482 for (const ref* reference = port->por_references; reference; reference = reference->ref_next)
3483 {
3484 const gpre_fld* field = reference->ref_field;
3485 if (field->fld_flags & FLD_blob)
3486 {
3487 printa(names[COLUMN], true, "CALL \"isc_qtoq\" USING %s, %s",
3488 names[isc_blob_null_pos], gen_name(name, reference, true));
3489 }
3490 }
3491}
3492
3493
3494//____________________________________________________________

Callers 1

COB_actionFunction · 0.70

Calls 3

gen_compileFunction · 0.70
printaFunction · 0.70
gen_nameFunction · 0.70

Tested by

no test coverage detected