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

Function gen_blob_for

src/gpre/languages/ada.cpp:785–795  ·  view source on GitHub ↗

Source from the content-addressed store, hash-verified

783//
784
785static void gen_blob_for( const act* action, USHORT column)
786{
787
788 gen_blob_open(action, column);
789 if (action->act_error)
790 printa(column, "if (isc_status(1) = 0) then");
791 printa(column, "loop");
792 gen_get_segment(action, column + INDENT);
793 printa(column + INDENT,
794 "exit when (isc_status(1) /= 0 and isc_status(1) /= firebird.isc_segment);");
795}
796
797
798#ifdef NOT_USED_OR_REPLACED

Callers 1

ADA_actionFunction · 0.70

Calls 3

gen_blob_openFunction · 0.70
printaFunction · 0.70
gen_get_segmentFunction · 0.70

Tested by

no test coverage detected