jrmarino / adabase Goto Github PK

Near perfect, but...

Making a query such as "SHOW TABLES" fails, but there is a C API call which is not implemented, mysql_list_tables(). We can seem to list columns just fine.

Perhaps, it can be updated, it's only been 5 years with ne'er a problem until now.

Please advise

/gnat/2021/bin/../libexec/gcc/x86_64-w64-mingw32/10.3.1/ld.exe: cannot find -lmysql

Much obliged

ToyMakerUSMC

spatial_data.adb does compile on 10.2.0, but not on 11.3.0.

It barfs with:

   [Ada]          spatial_data.adb
/tmp/ccHCc73u.s: Assembler messages:
/tmp/ccHCc73u.s:14356: Error: bad immediate value for offset (4096)

This is on a RPi3 32bit, after having to change type Real18 is digits 18; to type Real18 is digits 15; in ./src/results/adabase-results.ads & ./src/miscellaneous/spatial_data.ads, which has always worked previously, at least for my workloads.

I have following issue with an MySQL type decimal(10,2) in the database.

Following types are defined in adabase-results.ads
type Real9 is digits 9;
type Real18 is digits 18;

But i probably need something like:
type Real10 is delta 0.01 digits 10;

I am really happy about any hint or advice how to implement this MySQL decimal type in Adabase.

Great Database !

Compiler GNAT 10.3.1 -> works fine
Compiler GNAT 13.3.1 -> there is an error with the database.

GNAT.Exception_Traces.Trace_On (GNAT.Exception_Traces.Every_Raise);

raised CONSTRAINT_ERROR : a-chtgop.adb:168 index check failed

Exception raised
raised PROGRAM_ERROR : adabase-statement-base.ads:773 finalize/adjust raised exception

Exception raised
raised PROGRAM_ERROR : adabase-statement-base-mysql.ads:166 finalize/adjust raised exception

Exception raised
raised PROGRAM_ERROR : main.adb:59 finalize/adjust raised exception

I usually compile my projekts with -gnatwa

package Compiler is
for Switches ("ada") use ("-fstack-check", "-O2", "-gnatf", "-g", "-gnat12", "-gnatwa");
end Compiler;

Maybee its possible to fix these warning Issues ?
By myself i am not shure if gnatwa warning Issues need to be fixed.

Compile
[Ada] adabase-connection.ads
[Ada] adabase-connection-base.adb
[Ada] adabase-connection-base-mysql.adb
adabase-connection-base-mysql.adb:305:10: warning: "result" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:312:10: warning: "result" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:319:10: warning: "result" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:326:10: warning: "result" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:397:07: warning: use clause for type "Trax_Isolation" defined at adabase.ads:10 has no effect [-gnatwu]
adabase-connection-base-mysql.adb:647:16: warning: use clause for type "MY_CHARSET_INFO" defined at adabase-bindings-mysql.ads:106 has no effect [-gnatwu]
adabase-connection-base-mysql.adb:773:07: warning: "MLA" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:1115:07: warning: "charset" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:1156:13: warning: "set" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:1158:13: warning: "setstr" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:1173:07: warning: "charset" is not modified, could be declared constant [-gnatwk]
adabase-connection-base-mysql.adb:1174:07: warning: "charsetuc" is not modified, could be declared constant [-gnatwk]
[Ada] commontext.adb
commontext.adb:179:07: warning: "slash" is not modified, could be declared constant [-gnatwk]
commontext.adb:193:07: warning: "slash" is not modified, could be declared constant [-gnatwk]
commontext.adb:330:07: warning: "pass1" is not modified, could be declared constant [-gnatwk]
commontext.adb:331:07: warning: "pass2" is not modified, could be declared constant [-gnatwk]
commontext.adb:346:07: warning: "mask" is not modified, could be declared constant [-gnatwk]
commontext.adb:357:07: warning: "mask" is not modified, could be declared constant [-gnatwk]
[Ada] spatial_data-well_known_binary.adb
spatial_data-well_known_binary.adb:11:07: warning: "shape" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:22:07: warning: "binary" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:23:07: warning: "chainlen" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:132:16: warning: "pt" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:141:16: warning: "pt1" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:152:16: warning: "LS" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:162:16: warning: "LS" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:174:16: warning: "PG" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:183:16: warning: "PG" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:233:07: warning: "pt_endian" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:250:07: warning: "ls_endian" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:251:07: warning: "num_points" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:275:07: warning: "num_points" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:299:07: warning: "poly_endian" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:300:07: warning: "num_rings" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:343:07: warning: "mask" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:368:07: warning: "result" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:629:07: warning: "resimage" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:630:07: warning: "dot" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:631:07: warning: "exp" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:632:07: warning: "dec" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:644:10: warning: "decimage" is not modified, could be declared constant [-gnatwk]
spatial_data-well_known_binary.adb:659:07: warning: "Chainlen" is not modified, could be declared constant [-gnatwk]
[Ada] spatial_data.adb
spatial_data.adb:15:07: warning: "metadata" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:38:07: warning: "metadata" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:62:07: warning: "metadata" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:86:07: warning: "metadata" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:112:07: warning: "metadata" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:142:07: warning: "metadata" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:193:10: warning: "num_points" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:194:10: warning: "start_here" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:195:10: warning: "finish" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:256:07: warning: variable "classification" is not referenced [-gnatwu]
spatial_data.adb:307:16: warning: "last_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:308:16: warning: "last_unit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:347:16: warning: "LL" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:348:16: warning: "first_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:349:16: warning: "last_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:350:16: warning: "last_unit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:393:16: warning: "num_points" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:394:16: warning: "first_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:395:16: warning: "last_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:396:16: warning: "last_unit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:397:16: warning: "first_subunit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:398:16: warning: "last_subunit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:450:16: warning: "num_points" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:451:16: warning: "first_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:452:16: warning: "last_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:453:16: warning: "last_unit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:454:16: warning: "first_subunit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:455:16: warning: "last_subunit" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:462:16: warning: "last_id" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:464:16: warning: "next_group" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:552:16: warning: "data_size" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:553:16: warning: "first_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:554:16: warning: "last_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:601:16: warning: "data_size" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:602:16: warning: "first_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:603:16: warning: "last_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:612:19: warning: "data_size" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:613:19: warning: "first_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:614:19: warning: "last_point" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:642:07: warning: "p_set" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:644:07: warning: "s_set" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:711:16: warning: "pt" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:717:16: warning: "LS" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:723:16: warning: "PG" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:731:19: warning: "lvl" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:794:22: warning: "FP" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:795:22: warning: "LP" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:801:22: warning: "diff" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:802:22: warning: "ptdiff" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:935:07: warning: "SLINT" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1098:07: warning: "most" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1146:13: warning: "line" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1191:10: warning: variable "lastsc" is not referenced [-gnatwu]
spatial_data.adb:1193:10: warning: "nrings" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1206:16: warning: "GR" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1246:07: warning: "classification" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1394:10: warning: variable "lastsc" is not referenced [-gnatwu]
spatial_data.adb:1395:10: warning: "nrings" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1416:16: warning: "GR" is not modified, could be declared constant [-gnatwk]
spatial_data.adb:1459:07: warning: "classification" is not modified, could be declared constant [-gnatwk]
[Ada] adabase-interfaces.ads
[Ada] adabase-interfaces-logger.ads
[Ada] adabase-interfaces-connection.ads
[Ada] adabase-interfaces-statement.ads
[Ada] adabase-interfaces-driver.ads
[Ada] adabase-results-sets.adb
adabase-results-sets.adb:31:07: warning: "headup" is not modified, could be declared constant [-gnatwk]
[Ada] adabase-results-generic_converters.adb
adabase-results-generic_converters.adb:5:17: warning: unit "Ada.Strings.Wide_Fixed" is not referenced [-gnatwu]
adabase-results-generic_converters.adb:6:17: warning: unit "Ada.Strings.Wide_Wide_Fixed" is not referenced [-gnatwu]
adabase-results-generic_converters.adb:224:07: warning: "asbits" is not modified, could be declared constant [-gnatwk]
adabase-results-generic_converters.adb:257:07: warning: "numbits" is not modified, could be declared constant [-gnatwk]
adabase-results-generic_converters.adb:258:07: warning: "asbits" is not modified, could be declared constant [-gnatwk]
[Ada] adabase-results-converters.adb
adabase-results-converters.adb:10:12: warning: package "AS" is not referenced [-gnatwu]
adabase-results-converters.adb:1244:10: warning: "rfirst" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1340:07: warning: "enum" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1398:07: warning: "enum" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1485:07: warning: "preview" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1492:07: warning: "preview" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1499:07: warning: "num_bits" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1525:07: warning: "nvlen" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1549:07: warning: "preview" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1556:07: warning: "preview" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1684:07: warning: "num_segments" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1722:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1729:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1736:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1743:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1750:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1757:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1764:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1771:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1778:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1785:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1792:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1799:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1806:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1813:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1820:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1827:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1834:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1841:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1848:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1855:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1865:07: warning: "WWS" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1872:07: warning: "WWS" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1879:07: warning: "WWS" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1891:07: warning: "holdutf8" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1892:07: warning: "holdstr" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1899:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1906:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1913:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1920:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1927:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
adabase-results-converters.adb:1934:07: warning: "hold" is not modified, could be declared constant [-gnatwk]
[Ada] adabase-results-field.adb
adabase-results-field.adb:40:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:46:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:83:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:89:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:127:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:133:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:171:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:177:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:215:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:221:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:259:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:265:16: warning: "cadena" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:672:16: warning: "target_bits" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:704:16: warning: "txt" is not modified, could be declared constant [-gnatwk]
adabase-results-field.adb:726:16: warning: variable "txt" is not referenced [-gnatwu]
[Ada] adabase-results.ads
[Ada] adabase-bindings-mysql.ads
[Ada] adabase-bindings.ads
[Ada] adabase-statement-base.adb
adabase-statement-base.adb:56:07: warning: "sql_mask" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:101:13: warning: "len" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:102:13: warning: "alias" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:254:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:269:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:284:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:299:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:314:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:329:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:344:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:359:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:374:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:389:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:404:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:419:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:434:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:449:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:464:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:479:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:494:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:509:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:524:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:539:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:554:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:569:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:584:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1117:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1138:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1159:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1180:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1201:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1222:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1243:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1264:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1285:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1306:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1327:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1348:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1369:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1390:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1411:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1432:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1453:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1474:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1497:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1518:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1547:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1570:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1592:07: warning: "absent" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1603:07: warning: "shape" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1635:13: warning: "local_row" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1717:16: warning: "my_chain" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1723:16: warning: "set" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1729:16: warning: "bitchain" is not modified, could be declared constant [-gnatwk]
adabase-statement-base.adb:1742:07: warning: "data_type" is not modified, could be declared constant [-gnatwk]
[Ada] adabase-statement-base-mysql.adb
adabase-statement-base-mysql.adb:5:18: warning: no entities of "Ada.Calendar.Time_Zones" are referenced [-gnatwu]
adabase-statement-base-mysql.adb:11:12: warning: package "CTZ" is not referenced [-gnatwu]
adabase-statement-base-mysql.adb:230:10: warning: variable "arrow" is not referenced [-gnatwu]
adabase-statement-base-mysql.adb:292:19: warning: "params" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:294:19: warning: "errmsg" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:606:07: warning: "maxrows" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:610:07: warning: variable "row" is not referenced [-gnatwu]
adabase-statement-base-mysql.adb:671:07: warning: use clause for private type "Interfaces.C.Strings.chars_ptr" has no effect [-gnatwu]
adabase-statement-base-mysql.adb:673:07: warning: "rptr" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:878:07: warning: use clause for private type "Interfaces.C.Strings.chars_ptr" has no effect [-gnatwu]
adabase-statement-base-mysql.adb:879:07: warning: use clause for type "MYSQL_ROW_access" defined at adabase-bindings-mysql.ads:211 has no effect [-gnatwu]
adabase-statement-base-mysql.adb:919:16: warning: "mtype" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1001:25: warning: "ST" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1002:25: warning: "wkbstring" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1083:07: warning: use clause for private type "Interfaces.C.Strings.chars_ptr" has no effect [-gnatwu]
adabase-statement-base-mysql.adb:1124:16: warning: "mtype" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1255:25: warning: "ST" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1256:25: warning: "wkbstring" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1302:25: warning: "strval" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1304:25: warning: "FL" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1305:25: warning: "DVLEN" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1348:07: warning: use clause for private type "Interfaces.C.Strings.chars_ptr" has no effect [-gnatwu]
adabase-statement-base-mysql.adb:1350:07: warning: "rptr" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1398:16: warning: use clause for type "enum_field_types" defined at adabase-bindings-mysql.ads:22 has no effect [-gnatwu]
adabase-statement-base-mysql.adb:1401:16: warning: variable "mtype" is not referenced [-gnatwu]
adabase-statement-base-mysql.adb:1525:25: warning: "wkbstring" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1538:25: warning: "FL" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1539:25: warning: "DVLEN" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1550:25: warning: "FL" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1551:25: warning: "DVLEN" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1563:25: warning: "FL" is not modified, could be declared constant [-gnatwk]
adabase-statement-base-mysql.adb:1639:07: warning: use clause for type "mysql_canvases_Access" defined at adabase-statement-base-mysql.ads:159 has no effect [-gnatwu]
[Ada] adabase-statement.ads
[Ada] adabase-driver.ads
[Ada] adabase-driver-base.adb
adabase-driver-base.adb:243:07: warning: variable "AR" is assigned but never read [-gnatwm]
adabase-driver-base.adb:245:07: warning: possibly useless assignment to "AR", value might not be referenced [-gnatwm]
adabase-driver-base.adb:259:07: warning: use clause for type "Driver_Type" defined at adabase.ads:15 has no effect [-gnatwu]
adabase-driver-base.adb:265:07: warning: variable "AR" is assigned but never read [-gnatwm]
adabase-driver-base.adb:279:07: warning: possibly useless assignment to "AR", value might not be referenced [-gnatwm]
adabase-driver-base.adb:315:07: warning: use clause for type "Trax_Isolation" defined at adabase.ads:10 has no effect [-gnatwu]
adabase-driver-base.adb:352:07: warning: use clause for type "Trax_Isolation" defined at adabase.ads:10 has no effect [-gnatwu]
[Ada] adabase-driver-base-mysql.adb
adabase-driver-base-mysql.adb:17:07: warning: "trsql" is not modified, could be declared constant [-gnatwk]
adabase-driver-base-mysql.adb:18:07: warning: "nquery" is not modified, could be declared constant [-gnatwk]
adabase-driver-base-mysql.adb:363:07: warning: "vanilla" is not modified, could be declared constant [-gnatwk]
adabase-driver-base-mysql.adb:391:07: warning: "SQL" is not modified, could be declared constant [-gnatwk]
[Ada] adabase-logger-base-screen.adb
[Ada] adabase-logger-base.adb
adabase-logger-base.adb:27:07: warning: "error" is not modified, could be declared constant [-gnatwk]
adabase-logger-base.adb:29:07: warning: "err_label" is not modified, could be declared constant [-gnatwk]
[Ada] adabase-logger-base-file.adb
[Ada] adabase-logger.ads
[Ada] adabase-logger-facility.adb
adabase-logger-facility.adb:165:07: warning: use clause for type "Error_Modes" defined at adabase.ads:8 has no effect [-gnatwu]
[Ada] adabase.ads
Build Libraries
[gprlib] adabase.lexch
[archive] libadabase.a
[index] libadabase.a

on postgresql (at least), you might see a prepared statement with "uuid((?)::text)" in it for example. RIght now those colons are being interpreted as variable names (alternatives for "?") rather than part of the query. Make the token analysis smart to handle these.