Traditionally, writing the SQL queries is done inline: special markers\n are inserted into your code to delimit sections that contain SQL code (as\n opposed to Ada code), and these are then preprocessed to generate actual\n-code. This isn\u2019t the approach chosen in GNATColl: there are\n+code. This isn't the approach chosen in GNATColl: there are\n several drawbacks, in particular your code is no longer Ada and various\n tools will choke on it.
\nThe other usual approach is to write the queries as strings, which are\n passed, via a DBMS-specific API, to the DBMS server. This approach is\n very fragile:
\nThe string might not contain well-formed SQL. This will\n unfortunately only be detected at run time when the DBMS complains.
This is not type safe. You might be comparing a text field\n with an integer, for instance. In some cases, the DBMS will accept that\n-(sqlite for instance), but in some other cases it won\u2019t (PostgreSQL). The\n+(sqlite for instance), but in some other cases it won't (PostgreSQL). The\n result might then either raise an error, or return an empty list.
There is a risk of SQL injection. Assuming the string is\n-constructed dynamically (using Ada\u2019s & operator), it might be easy\n+constructed dynamically (using Ada's & operator), it might be easy\n for a user to pass a string that breaks the query, and even destroys\n things in the database.
As discussed previously, the SQL code might not be portable\n across DBMS. For instance, creating an automatically increment integer\n primary key in a table is DBMS specific.
The string is fragile if the database schema changes. Finding\n whether a schema change impacts any of the queries requires looking at\n@@ -170,15 +170,15 @@\n \n
This section describes an example that will be extended throughout this\n chapter. We will build an application that represents a library. Such\n a library contains various media (books and DVDs for instance), and\n customers. A customer can borrow multiple media at the same time, but a\n-media is either at a customer\u2019s, or still in the library.
\n+media is either at a customer's, or still in the library.\nThe GNATColl distribution includes an example directory which\n contains all the code and data for this example.
\nAs was mentioned earlier (Database Abstraction Layers),\n GNATColl relies on automatic code generation to provide a type\n@@ -189,15 +189,15 @@\n
This tool is able to output various kind of information, and will be fully\n described later (The gnatcoll_db2ada tool). However, the input\n is always the same: this is the schema of your database, that is the list\n of tables and fields that make up your database. There exist two ways to\n provide that information:
\nFrom a running database
\n-If you pass the DBMS vendor (postgresql, sqlite,\u2026) and the connection\n+
If you pass the DBMS vendor (postgresql, sqlite,...) and the connection\n parameters to gnatcoll_db2ada, it is able to query the schema on\n its own. However, this should not be the preferred method: this is similar\n to reverse engineering assembly code into the original high-level code, and\n some semantic information will be missing. For instance, in SQL\n we have to create tables just to represent the many-to-many relationships.\n These extra tables are part of the implementation of the schema, but are\n just noise when it comes to the semantics of the schema. For this reason,\n@@ -210,101 +210,101 @@\n provides additional capabilities that do not exist when reverse-engineering\n an existing database, for instance the ability to use name to represent\n reverse relationships for foreign keys (see below and the ORM).
\nThe most convenient editor for this file is Emacs, using the org-mode\n which provides convenient key shortcuts for editing the contents of ASCII\n tables. But any text editor will do, and you do not need to align the columns\n in this file.
\n-All lines starting with a hash sign (\u2018#\u2019) will be ignored.
\n+All lines starting with a hash sign ('#') will be ignored.
\nThis file is a collection of ASCII tables, each of which relates to one table\n or one SQL view in your database. The paragraphs start with a line\n containing:
\ntable ::=\n '|' ('ABSTRACT')? ('TABLE'|'VIEW') ['(' supertable ')']\n '|' <name> '|' <name_row>\n \u201cname\u201d is the name of the table. The third pipe and third column are optional,\n+
"name" is the name of the table. The third pipe and third column are optional,\n and should be used to specify the name for the element represented by a single\n-row. For instance, if the table is called \u201cbooks\u201d, the third column could\n-contain \u201cbook\u201d. This is used when generating objects for use with\n+row. For instance, if the table is called "books", the third column could\n+contain "book". This is used when generating objects for use with\n GNATCOLL.SQL.ORM.
\nIf the first line starts with the keyword ABSTRACT, then no instance\n of that table actually exists in the database. This is used in the context\n of table inheritance, so define shared fields only once among multiple tables.
\nThe keyword TABLE can be followed by the name of a table from which it\n inherits the fields. Currently, that supertable must be abstract, and the\n fields declared in that table are simply duplicated in the new table.
\nFollowing the declaration of the table, the file then describe their fields,\n each on a separate line. Each of these lines must start with a pipe\n-character (\u201c|\u201d), and contain a number of pipe-separated fields. The order of\n+character ("|"), and contain a number of pipe-separated fields. The order of\n the fields is always given by the following grammar:
\nfields ::=\n '|' <name> '|' <type>\n '|' ('PK'|''|'NULL'|'NOT NULL'|'INDEX'|'UNIQUE'|'NOCASE')\n '|' [default] '|' [doc] '|'\n The type of the field is the SQL type (\u201cINTEGER\u201d, \u201cTEXT\u201d, \u201cTIMESTAMP\u201d, \u201cDATE\u201d,\n-\u201cDOUBLE PRECISION\u201d, \u201cMONEY\u201d, \u201cBOOLEAN\u201d, \u201cTIME\u201d, \u201cCHARACTER(1)\u201d). Any maximal\n+
The type of the field is the SQL type ("INTEGER", "TEXT", "TIMESTAMP", "DATE",\n+"DOUBLE PRECISION", "MONEY", "BOOLEAN", "TIME", "CHARACTER(1)"). Any maximal\n length can be specified for strings, not just 1 as in this example.\n The tool will automatically convert these to\n-Ada when generating Ada code. A special type (\u201cAUTOINCREMENT\u201d) is an integer\n+Ada when generating Ada code. A special type ("AUTOINCREMENT") is an integer\n that is automatically incremented according to available ids in the table.\n The exact type used will depend on the specific DBMS.
\n-The property \u2018NOCASE\u2019 indicates that comparison should be case insensitive\n+
The property 'NOCASE' indicates that comparison should be case insensitive\n for this field.
\nIf the field is a foreign key (that is a value that must correspond to a row\n in another table), you can use the special syntax for its type:
\nfk_type ::= 'FK' <table_name> [ '(' <reverse_name> ')' ]\n As you can see, the type of the field is not specified explicitly, but will\n-always be that of the foreign table\u2019s primary key. With this syntax, the\n+always be that of the foreign table's primary key. With this syntax, the\n foreign table must have a single field for its primary key. GNATColl\n does not force a specific order for the declaration of tables: if is valid to\n-have a foreign key to a table that hasn\u2019t been declared yet. There is however\n+have a foreign key to a table that hasn't been declared yet. There is however\n a restriction if you use the model to create a sqlite database (through the\n -createdb switch of gnatcoll_db2ada): in this case, a reference\n-to a table that hasn\u2019t been defined yet may not be not through a field marked\n+to a table that hasn't been defined yet may not be not through a field marked\n as NOT NULL. This is a limitation of the sqlite backend itself. The solution\n in this case is to reorder the declaration of tables, or drop the NOT NULL\n constraint.
\nAnother restriction is that a foreign key that is also a primary key must\n reference a table that has already been defined. You need to reorder the\n declaration of your tables to ensure this is the case.
\n-\u201creverse_name\u201d is the optional name that will be generated in the Ada code for the\n+
"reverse_name" is the optional name that will be generated in the Ada code for the\n reverse relationship, in the context of GNATCOLL.SQL.ORM.\n-If the \u201creverse_name\u201d is empty (the parenthesis are shown), no reverse\n+If the "reverse_name" is empty (the parenthesis are shown), no reverse\n relationship is generated. If the parenthesis and the reverse_name are both\n omitted, a default name is generated based on the name of the field.
\nThe third column in the fields definition indicates the constraints of the\n type. Multiple keywords can be used if they are separated by commas. Thus,\n-\u201cNOT NULL, INDEX\u201d indicates a column that must be set by the user, and for\n+"NOT NULL, INDEX" indicates a column that must be set by the user, and for\n which an index is created to speed up look ups.
\nA primary key (\u201cPK\u201d)
The value must be defined (\u201cNOT NULL\u201d)
The value can be left undefined (\u201cNULL\u201d)
A unique constraint and index (\u201cUNIQUE\u201d)
An index should be created for that column (\u201cINDEX\u201d) to speed up\n+
A primary key ("PK")
The value must be defined ("NOT NULL")
The value can be left undefined ("NULL")
A unique constraint and index ("UNIQUE")
An index should be created for that column ("INDEX") to speed up\n the lookups.
The automatic index created for a Foreign Key should not be created\n-(\u201cNOINDEX\u201d). Every time a field references another table, GNATColl will by\n+("NOINDEX"). Every time a field references another table, GNATColl will by\n default create an index for it, so that the ORM can more efficiently do a\n-reverse query (from the target table\u2019s row find all the rows in the current\n+reverse query (from the target table's row find all the rows in the current\n table that reference that target row). This will in general provide more\n efficiency, but in some cases you never intend to do the reverse query and\n thus can spare the extra index.
The fourth column gives the default value for the field, and is given in SQL\n syntax. Strings must be quoted with single quotes.
\nThe fifth column contains documentation for the field (if any). This\n documentation will be included in the generated code, so that IDEs can\n-provide useful tooltips when navigating your application\u2019s code.
\n+provide useful tooltips when navigating your application's code.\nAfter all the fields have been defined, you can specify extract constraints\n on the table. In particular, if you have a foreign key to a table that uses a\n tuple as its primary key, you can define that foreign key on a new line, as:
\nFK ::= '|' "FK:" '|' <table> '|' <field_names>*\n '|' <field_names>* '|'\n \n\n\n\nTABLE | tableA |\nUNIQUE: | field1,field2,field3 | name |\n
Going back to the example we described earlier (Database example),\n-let\u2019s describe the tables that are involved.
\n+let's describe the tables that are involved.\nThe first table contains the customers. Here is its definition:
\n| TABLE | customers | customer || The customer for the library |\n | id | AUTOINCREMENT | PK || Auto-generated id |\n | first | TEXT | NOT NULL || Customers' first name |\n | last | TEXT | NOT NULL, INDEX || Customers' last name |\n We highly recommend to set a primary key on all tables.\n This is a field whose value is\n unique in the table, and thus that can act as an identifier for a specific\n row in the table (in this case for a specific customer). We recommend using\n integers for these ids for efficiency reasons. It is possible that the\n primary key will be made of several fields, in which case they should all\n-have the \u201cPK\u201d constraint in the third column.
\n+have the "PK" constraint in the third column.\nA table with no primary key is still usable. The difference is in the\n code generated for the ORM (The Object-Relational Mapping layer (ORM)),\n since the Delete operation for this table will raise a\n-Program_Error instead of doing the actual deletion (that\u2019s because there\n+Program_Error instead of doing the actual deletion (that's because there\n is no guaranteed unique identifier for the element, so the ORM does not know\n-which one to delete \u2013 we do not depend on having unique internal ids on the\n+which one to delete -- we do not depend on having unique internal ids on the\n table, like some DBMS have). Likewise, the elements extracted from such a\n primary key-less table will not be cached locally in the session, and cannot\n be updated (only new elements can be created in the table).
\nAs we mentioned, the library contains two types of media, books and DVDs.\n Each of those has a title, an author. However, a book also has a number of\n pages and a DVD has a region where it can be viewed. There are various ways\n to represent this in a database. For illustration purposes, we will use\n table inheritance here: we will declare one abstract table (media) which\n contains the common fields, and two tables to represent the types of media.
\nAs we mentioned, a media can be borrowed by at most one customer, but a\n customer can have multiple media at any point in time. This is called a\n one-to-many relationship. In SQL, this is in general described through\n-the use of a foreign key that goes from the table on the \u201cmany\u201d side. In\n+the use of a foreign key that goes from the table on the "many" side. In\n this example, we therefore have a foreign key from media to customers. We\n also provide a name for the reverse relationship, which will become clearer\n when we describe the ORM interface.
\nHere are the declarations:
\n| ABSTRACT TABLE | media | media || The contents of the library |\n | id | AUTOINCREMENT | PK || Auto-generated id |\n | title | TEXT | || The title of the media |\n@@ -385,15 +385,15 @@\n dbschema.txt.\n \n \n As stated in the introduction, one of the goals of this library is to\n-make sure the application\u2019s code follows changes in the schema of your\n+make sure the application's code follows changes in the schema of your\n database.
\nTo reach this goal, an external tool, gnatcoll_db2ada is provided\n with GNATColl, and should be spawned as the first step of the\n build process, or at least whenever the database schema changes. It\n generates an Ada package (Database by default) which reflects the\n current schema of the database.
This tool supports a number of command line parameters (the complete list\n@@ -401,15 +401,15 @@\n those switches are:
\nThese parameters specify the connection parameters for the database. To\n find out the schema, gnatcoll_db2ada can connect to an existing\n database (Database schema). The user does not need to have\n write permission on the database, since all queries are read-only.
This parameter can replace the above -dbname,\u2026 It specifies the\n+
This parameter can replace the above -dbname,... It specifies the\n name of a text file that contains the description of the database, therefore\n avoiding the need for already having a database up-and-running to generate\n the Ada interface.
\nThe format of this text file was described in the previous section.
\nThis switch is not compatible with -enum and -vars that\n really need an access to the database.
\nThis parameter can be repeated several times if needed. It identifies\n one of the special tables of the database that acts as an enumeration\n type. It is indeed often the case that one or more tables in the\n-database have a role similar to Ada\u2019s enumeration types, i.e. contains\n+database have a role similar to Ada's enumeration types, i.e. contains\n a list of values for information like the list of possible priorities,\n-a list of countries,\u2026 Such lists are only manipulated by the\n+a list of countries,... Such lists are only manipulated by the\n maintainer of the database, not interactively, and some of their\n-values have impact on the application\u2019s code (for instance, if a\n-ticket has an urgent priority, we need to send a reminder every day \u2013\n+values have impact on the application's code (for instance, if a\n+ticket has an urgent priority, we need to send a reminder every day --\n but the application needs to know what an urgent priority is).\n In such a case, it is convenient to generate these values as\n constants in the generated package. The output will be similar to:
\nsubtype Priority_Id is Integer;\n Priority_High : constant Priority_Id := 3;\n Priority_Medium : constant Priority_Id := 2;\n Priority_Low : constant Priority_Id := 1;\n@@ -468,15 +468,15 @@\n -enum ticket_priorities,Priority,Name,Priority,Integer\n
\n \n First word in the parameter is the table name where the data to generate\n constants is stored. Second word is the field name in the table where the\n Ada constant value is stored. The third word is the field where the last\n part the Ada constant name is stored. The forth word is the prefix to add\n-in front of the third word field value to generate the Ada constant\u2019s name.\n+in front of the third word field value to generate the Ada constant's name.\n The last optional parameter should be either Integer (default) or\n String, which influences the way how the Ada constant value is going to\n be generated (surrounded or not by quotes).
\n \n If specified in addition to the -enum switch, then a function is\n generated for each Integer-valued enum that converts numeric\n values to the corresponding name as a string.
\n@@ -510,15 +510,15 @@\nwhich generates:
\nNo_Assigne_Id : constant := 0;\n -- help\n The application should use this constant rather than some hard-coded\n-string \u201cunassigned\u201d or a named constant with the same value.\n+string "unassigned" or a named constant with the same value.\n The reason is that presumably the login will be made visible somewhere\n to the user, and we could decide to change it (or translate it to\n another language). In such a case, the application would break. On the\n other hand, using the constant 0 which we just extracted will\n remain valid, whatever the actual text we display for the user.
\n \nThis will generate two files (PKG.ads and PKG.adb) that\n@@ -603,28 +603,28 @@\n
As described above, the -createdb switch makes it possible to\n create a database (or at least its schema). This operation can also be\n performed directly from your Ada code by using the services provided in the\n GNATCOLL.SQL.Inspect package. In particular, there are services for\n reading the schema of a database either from a file or from a live\n database, just as gnatcoll_db2ada does.
\nThis results in a structure in memory that you can use to find out which\n-are the tables, what are their fields, their primary keys,\u2026
\n+are the tables, what are their fields, their primary keys,...\nIt is also possible to dump this schema to a text file (with the same\n format as expected by -dbmodel), or more interestingly to output\n the SQL statements that are needed to create the tables in a database. In\n the case of Sqlite, creating a table will also create the database file\n-if it doesn\u2019t exist yet, so no special rights are needed.
\n+if it doesn't exist yet, so no special rights are needed.\nThis input/output mechanism is implemented through an abstract\n Schema_IO tagged type, with various concrete implementations (either\n File_Schema_IO to read or write from/to a file, or\n DB_Schema_IO to read or write from/to a database).
\nSee the specs for more detail on these subprograms.
\nIn the previous section, we have described our database schema in a text\n file. We will now perform two operations:
\nCreate an empty database
\nThis should of course only be done once, not every time you run your\n application:
\ngnatcolldbada -dbtype=sqlite -dbname=library.db -dbmodel=dbschema.txt -createdb\n@@ -686,15 +686,15 @@\n To connect to a DBMS, you need to specify the various connection parameters.\n This is done via a GNATCOLL.SQL.Exec.Database_Description object.\n The creation of this object depends on the specific DBMS you are connecting\n to (and this is the only part of your code that needs to know about the\n specific system). The packages GNATCOLL.SQL.Postgres and\n GNATCOLL.SQL.Sqlite contain a Setup function, whose parameters\n depend on the DBMS. They provide full documentation for their parameters.\n-Let\u2019s take a simple example from sqlite:
\n+Let's take a simple example from sqlite:\n with GNATCOLL.SQL.Sqlite; -- or Postgres\n declare\n DB_Descr : GNATCOLL.SQL.Exec.Database_Description;\n begin\n DB_Descr := GNATCOLL.SQL.Sqlite.Setup ("dbname.db");\n end\n
\n@@ -761,15 +761,15 @@\n using pools) to avoid memory leaks. Nothing critical will appear if you do\n not close, though, because the transactions to the DBMS server are saved\n every time you call Commit in any case. So the code would end with:\n Free (DB); -- for all connections you have opened\n Free (DB_Descr);\n
\n \n-At this point, there still hasn\u2019t been any connection to the DBMS. This will\n+
At this point, there still hasn't been any connection to the DBMS. This will\n be done the first time a query is executed. If for some reason the connection\n to the DBMS server is lost, GNATColl will automatically attempt to\n reconnect a number of times before it gives up. This might break if there\n was an ongoing SQL transaction, but simplifies your code since you do not\n have to handle reconnection when there was a network failure, for instance.
\n As we saw before, the database interface can be used in multi-tasking\n applications. In such a case, it is recommended that each thread has its\n@@ -794,26 +794,26 @@\n
One can connect to the database with an external tool (a web interface\n when the DBMS provides one for instance), or via a command line tool\n (psql for PostgreSQL or sqlite3 for Sqlite), and start\n inserting data manually. This shows one of the nice aspects of using a\n standard DBMS for your application: you can alter the database (for instance\n to do minor fixes in the data) with a lot of external tools that were\n developed specifically for that purpose and that provide a nice interface.\n-However, this is also tedious and error prone, and can\u2019t be repeat easily\n+However, this is also tedious and error prone, and can't be repeat easily\n every time we recreate the database (for instance before running automatic\n tests).
\n \n Using GNATCOLL.SQL.EXEC
\n As we will describe later, GNATColl contains all the required\n machinery for altering the contents of the database and creating new\n objects. Using GNATCOLL.SQL.ORM this can also be done at a high-level\n and completely hide SQL.
\n Loading a data file
\n-A lot of frameworks call such a file that contains initial data a \u201cfixture\u201d.\n+
A lot of frameworks call such a file that contains initial data a "fixture".\n We will use this technique as an example. At the Ada level, this is a simple\n call to GNATCOLL.SQL.Inspect.Load_Data. The package contains a lot\n more than just this subprogram (The gnatcoll_db2ada tool):
\n declare\n File : GNATCOLL.VFS.Virtual_File := Create ("fixture.txt");\n DB : Database_Connection; -- created earlier\n begin\n@@ -826,15 +826,15 @@\n \n \n As we mentioned, GNATColl can load data from a file. The format\n of this file is similar to the one that describes the database schema. It\n is a set of ASCII tables, each of which describes the data that should go\n in a table (it is valid to duplicate tables). Each block starts with two\n lines: The first one has two mandatory columns, the first of which contains\n-the text \u201cTABLE\u201d, and the second contains the name of the table you want to\n+the text "TABLE", and the second contains the name of the table you want to\n fill. The second line should contain as many columns as there are fields you\n want to set. Not all the fields of the table need to have a corresponding\n column if you want to set their contents to NULL (provided, of course,\n that your schema allows it). For instance, we could add data for our\n library example as such:
\n | TABLE | customers | |\n | id | first | last |\n@@ -864,15 +864,15 @@\n |--------------+-----------+--------+--------------------|\n | The Birds | Hitchcock | 1 | &Smith |\n | The Dictator | Chaplin | 3 | &Dupont |\n
\n \n Here, the title of the column indicates that any value in this column might\n be a reference to the customers.last value. Values which start\n-with an ampersand (\u201c&\u201d) will therefore be looked up in customers.last,\n+with an ampersand ("&") will therefore be looked up in customers.last,\n and the id of the corresponding customer will be inserted in the\n dvds table. It would still be valid to use directly customer ids\n instead of references, this is just an extra flexibility that the references\n give you to make your fixtures more readable.
\n However, if we are using such references we need to provide the database\n schema to Load_Data so that it can write the proper queries. This\n is done by using other services of the GNATCOLL.SQL.Inspect package.
\n@@ -913,24 +913,24 @@\n Where => Ticket_Priorities.Name /= "low",\n Group_By => Ticket_Priorities.Category);\n end;\n
\n \n The above example will return, for each type of priority (internal or\n customer) the highest possible value. The interest of this query is\n-left to the user\u2026
\n+left to the user...\n This is very similar to an actual SQL query. Field and table names come\n from the package that was automatically generated by the\n gnatcoll_db2ada tool, and therefore we know that our query is\n only referencing existing fields. The syntactic correctness is ensured by\n standard Ada rules. The SQL_Select accepts several parameters\n corresponding to the usual SQL attributes like GROUP BY,\n HAVING, ORDER BY and LIMIT.
\n The From parameter could be a list of tables if we need to join\n-them in some ways. Such a list is created with the overridden \u201c&\u201d\n+them in some ways. Such a list is created with the overridden "&"\n operator, just as for fields which you can see in the above example.\n GNATColl also provides a Left_Join function to join two\n tables when the second might have no matching field (see the SQL\n documentation).
\n Similar functions exist for SQL_Insert, SQL_Update and\n SQL_Delete. Each of those is extensively documented in the\n gnatcoll-sql.ads file.
\n@@ -973,16 +973,16 @@\n automatically by looking at those fields that are not used in a SQL\n aggregate function. This auto-completion helps the maintenance of those\n queries.\n There is another case where GNATColl makes it somewhat easier\n to write the queries, and that is to handle joins between tables. If your\n schema was build with foreign keys, GNATColl can take advantage\n of those.
\n-Going back to our library example, let\u2019s assume we want to find out all\n-the books that were borrowed by the user \u201cSmith\u201d. We need to involve two\n+
Going back to our library example, let's assume we want to find out all\n+the books that were borrowed by the user "Smith". We need to involve two\n tables (Books and Customers), and provide a join between them\n so that the DBMS knows how to associate the rows from one with the rows from\n the other. Here is a first example for such a query:
\n Q := SQL_Select\n (Fields => Books.Title & Books.Pages,\n From => Books & Customers,\n Where => Books.Borrowed_By = Customers.Id\n@@ -996,15 +996,15 @@\n Where => Books.Borrowed_By = Customers.Id\n and Customers.Last = "Smith");\n
\n \n There is one more things we can do to simplify the query and make it more\n solid if the schema of the database changes. For instance, when a table\n has a primary key made up of several fields, we need to make sure we always\n-have an \u201c=\u201d statement in the WHERE clause for all these fields between the\n+have an "=" statement in the WHERE clause for all these fields between the\n two tables. In our example above, we could at some point modify the schema\n so that the primary key for customers is multiple (this is unlikely\n in this example of course). To avoid this potential problems and make the\n query somewhat easier to read, we can take advantage of the FK\n subprograms generated by gnatcoll_db2ada. Using the Ada05 dotted\n notation for the call, we can thus write:
\n Q := SQL_Select\n@@ -1039,15 +1039,15 @@\n is the case when you execute an INSERT or UPDATE statement\n for instance. Using Execute avoids the need to declare the local\n variable R.\n If for some reason the connection to the database is no longer valid\n (a transient network problem for instance), GNATColl will\n attempt to reconnect and re-execute your query transparently, so that\n your application does not need to handle this case.
\n-We\u2019ll describe later (Getting results) how to analyze the result\n+
We'll describe later (Getting results) how to analyze the result\n of the query.
\n Some versions of Fetch have an extra parameter Use_Cache,\n set to False by default. If this parameter is true, and the exact same\n query has already been executed before, its result will be reused\n without even contacting the database server. The cache is automatically\n invalidated every hour in any case. This cache is mostly useful for\n tables that act like enumeration types, as we have seen before when\n@@ -1130,15 +1130,15 @@\n (Fields => Data.Id & Data.Name\n From => Data,\n Where => Data.Id = Integer_Param (1));\n
\n \n GNATColl provides a number of functions (one per type of\n field) to indicate that the value is currently unbound. Integer_Param,\n-Text_Param, Boolean_Param,\u2026 All take a single argument,\n+Text_Param, Boolean_Param,... All take a single argument,\n which is the index of the corresponding parameter. A query might need\n several parameters, and each should have a different index. On the other\n hand, the same parameter could be used in several places in the query.
\n Although the query above could be executed as is by providing the values\n for the parameters, it is more efficient, as we mentioned at the beginning,\n to compile it on the server. In theory, this preparation is done within the\n context of a database connection (thus cannot be done for a global variable,\n@@ -1161,39 +1161,39 @@\n statement locally in a subprogram. A Prepared_Statement is a\n reference counted type, that will automatically free the memory on the\n server when it goes out of scope.
Here, we prepared the statement on the server. If we had specified\n On_Server => False, we would still have sped things up, since Q\n would be converted to a string that can be sent to the DBMS, and from\n then on reused that string (note that this conversion is specific to\n-each DBMS, since they don\u2019t always represent things the same way, in\n+each DBMS, since they don't always represent things the same way, in\n particular parameters, as we have seen above). Thus every time you use\n P you save the time of converting from the GNATColl tree\n representation of the query to a string for the DBMS.
Now that we have a prepared statement, we can simply execute it.\n If the statement does not require parameters, the usual Fetch\n and Execute subprograms have versions that work exactly the same\n with prepared statements. They also accept a Params parameter that\n-contains the parameter to pass to the server. A number of \u201c+\u201d\n+contains the parameter to pass to the server. A number of "+"\n operators are provided to create those parameters:
\n declare\n F : Forward_Cursor;\n begin\n F.Fetch (DB, P, Params => (1 => +2));\n F.Fetch (DB, P, Params => (1 => +3));\n end;\n
\n \n-Note that for string parameters, the \u201c+\u201d operator takes an\n+
Note that for string parameters, the "+" operator takes an\n access to a string. This is for efficiency, to avoid allocating memory\n and copying the string, and is safe because the parameters are only needed\n while Fetch executes (even for a Forward_Cursor.
\n Back to our library example. We showed earlier how to write a query that\n-retrieves the books borrowed by customer \u201cSmith\u201d. We will now make this\n+retrieves the books borrowed by customer "Smith". We will now make this\n query more general: given a customer name, return all the books he has\n borrowed. Since we expect to use this often, we will prepare it on the\n server (in real life, this query is of little interest since the customer\n name is not unique, we would instead use a query that takes the id of the\n customer). In general we would create a global variable with:
\n Borrowed : constant Prepared_Statement := Prepare\n (SQL_Select\n@@ -1269,15 +1269,15 @@\n We mentioned earlier there was no way to go back to a row you fetched\n previously except by executing the query again. This is in fact only\n true if you use a Forward_Cursor to fetch the results.
\n But GNATColl provides another notion, a Direct_Cursor. In\n this case, it fetches all the rows in memory when the query executes (thus\n it needs to allocate more memory to save every thing, which can be costly\n if the query is big). This behavior is supported natively by PostgreSQL,\n-but doesn\u2019t exist with sqlite, so GNATColl will simulate it\n+but doesn't exist with sqlite, so GNATColl will simulate it\n as efficiently as possible. But it will almost always be faster to use\n a Forward_Cursor.
\n In exchange for this extra memory overhead, you can now traverse the list\n of results in both directions, as well as access a specific row directly.\n It is also possible to know the number of rows that matched (something hard\n to do with a Forward_Cursor since you would need to traverse the\n list once to count, and then execute the query again if you need the rows\n@@ -1368,20 +1368,20 @@\n
1.12. Query logs\u00b6
\n The GNATCOLL.Traces package provides facilities to add logging. The database\n interface uses this module to log the queries that are sent to the server.
\n If you activate traces in your application, the user can then activate\n one of the following trace handles to get more information on the\n exchange that exists between the database and the application. As we saw\n before, the output of these traces can be sent to the standard output, a\n-file, the system logs,\u2026
\n+file, the system logs,...\n The following handles are provided:
\n
\n SQL.ERROR\n This stream is activated by default. Any error returned by the database\n-(connection issues, failed transactions,\u2026) will be logged on this stream
SQL\n This stream logs all queries that are not SELECT queries, i.e. mostly all\n queries that actually modify the database
SQL.SELECT\n This stream logs all select queries. It is separated from SQL because\n very often you will be mostly interested in the queries that impact the\n database, and logging all selects can generate a lot of output.
\n \n and then create a .gnatdebug in the directory from which we launch our\n-executable. This file would contain a single line containing \u201c+\u201d to\n+executable. This file would contain a single line containing "+" to\n activate all log streams, or the following to activate only the subset of\n fields related to SQL:
\n SQL=yes\n SQL.SELECT=yes\n SQL.LITE=yes\n
\n \n@@ -1429,15 +1429,15 @@\n function Do_Query (DB, ...) return My_Cursor;\n \n The idea is that you create a function that does the query for you (based\n on some parameters that are not shown here), and then returns a cursor over\n the resulting set of rows. For each row, you can use the Element\n function to get an Ada record for easier manipulation.
\n-Let\u2019s first see how these types would be used in practice:
\n+Let's first see how these types would be used in practice:
\ndeclare\n C : My_Cursor := Do_Query (DB, ...);\n begin\n while Has_Row (C) loop\n Put_Line ("Id = " & Element (C).Id);\n Next (C);\n end loop;\n@@ -1512,15 +1512,15 @@\n GNATColl provides a high-level interface to manipulate persistent\n objects stored in a database, using a common paradigm called an\n object-relational mapping. Such mappings exist for most programming\n languages. In the design of GNATColl, we were especially inspired\n by the python interface in django and sqlalchemy, although the\n last two rely on dynamic run time introspection and GNATColl relies\n on code generation instead.
\n-This API is still compatible with GNATCOLL.SQL. In fact, we\u2019ll\n+
This API is still compatible with GNATCOLL.SQL. In fact, we'll\n show below cases where the two are mixed. It can also be mixed with\n GNATCOLL.SQL.Exec, although this might be more risky. Communication\n with the DBMS is mostly transparent in the ORM, and it uses various caches\n to optimize things and make sure that if you modify an element the next\n query(ies) will also return it. If you use GNATCOLL.SQL.Exec directly\n you are bypassing this cache so you risk getting inconsistent results in\n some cases.
\n@@ -1536,15 +1536,15 @@\n foreign keys to other tables. So we remove the borrowed_by field\n from the Media table, and change the books table to be:\n | TABLE (media) | books | book | | The books in the library |\n | pages | INTEGER | | 100 | |\n | borrowed_by | FK customers(borrowed_books) | NULL | | Who borrowed the media |\n
\n \n-Let\u2019s thus start by generating this code. We can replace the command we\n+
Let's thus start by generating this code. We can replace the command we\n ran earlier (with the -api switch) with one that will also generate\n the ORM API:
\n gnatcoll_db2ada -dbmode dbschema.txt -api Database -orm ORM\n
\n \n The ORM provides a pool of database connections through the package\n GNATCOLL.SQL.Sessions. A session therefore acts as a wrapper around\n@@ -1563,15 +1563,15 @@\n
The first parameter is the same Database_Description we saw\n earlier (Connecting to the database), but it will be freed\n automatically by the sessions package, so you should not free it\n yourself.
\nOnce configure, we can now request a session. Through a session, we can\n perform queries on the database, make objects persistent, write the\n-changes back to the database,\u2026. We configured the session pool\n+changes back to the database,.... We configured the session pool\n to have at most 2 sessions. The first time we call Get_New_Session,\n a new session will be created in the pool and marked as busy. While you\n have a reference to it in your code (generally as a local variable), the\n session belongs to this part of the code. When the session is no longer\n in scope, it is automatically released to the pool to be reused for the\n next call to Get_New_Session. If you call Get_New_Session\n a second time while some part of your code holds a session (for instance\n@@ -1580,19 +1580,19 @@\n is blocking until one of the two sessions is released to the pool.
\nThis technique ensures optimal use of the resources: we avoid creating\n a new session every time (with the performance cost of connecting to the\n database), but also avoid creating an unlimited number of sessions which\n could saturate the server. Since the sessions are created lazily the first\n time they are needed, you can also configure the package with a large\n number of sessions with a limited cost.
\n-Let\u2019s then take a new session in our code:
\n+Let's then take a new session in our code:
\nSession : constant Session_Type := Get_New_Session;\n and let\u2019s immediately write our first simple query. A customer comes at\n+
and let's immediately write our first simple query. A customer comes at\n the library, handles his card and we see his id (1). We need to look up\n in the database to find out who he is. Fortunately, there is no SQL to\n write for this:
\nC : ORM.Detached_Customer'Class := Get_Customer (Session, Id => 1);\n The call to Get_Customer performs a SQL query transparently, using\n@@ -1608,15 +1608,15 @@\n fields in the table. Such an object is returned by a cursor, similarly\n to what was described in the previous section (Writing your own cursors).\n This object is no longer valid as soon as the cursor moves to\n the next row (in the currently implementation, the object will describe\n the next row, but it is best not to rely on this). As a benefit, this\n object is light weight and does not make a copy of the value of the\n fields, only reference the memory that is already allocated for the cursor.
\n-This object redefines the equality operator (\u201c=\u201d) to compare the\n+
This object redefines the equality operator ("=") to compare the\n primary key fields to get expected results.
\n \nDetached_Customer
\nA detached object is very similar to the Customer object, but it\n will remain valid even if the cursor moves or is destroyed. In fact, the\n object has made a copy of the value for all of its fields. This object\n is heavier than a Customer, but sometimes easier to manager. If\n@@ -1642,15 +1642,15 @@\n
This type extends a Direct_Cursor. It also adds a Element\n operation that returns a Customer element.
\nCustomers_Managers
\nThis type is the base type to perform queries on the DBMS. A manager\n provides a number of primitive operations which end up creating a SQL\n query operation in the background, without making that explicit.
\n-Let\u2019s first write a query that returns all books in the database:
\n+Let's first write a query that returns all books in the database:
\ndeclare\n M : Books_Managers := All_Books;\n BL : Book_List := M.Get (Session);\n B : Book;\n begin\n while BL.Has_Row loop\n B := BL.Element;\n@@ -1660,15 +1660,15 @@\n end loop;\n end;\n The manager M corresponds to a query that returns all the books\n in the database. The second line then executes the query on the database,\n and returns a list of books. We then traverse the list. Note how we access\n-the book\u2019s title by calling a function, rather than by the index of a\n+the book's title by calling a function, rather than by the index of a\n field as we did with GNATCOLL.SQL.Exec with Value(B, 0). The code\n is much less fragile this way.
\nThe line that calls Borrowed_By will execute an additional SQL\n query for each book. This might be inefficient if there is a large number\n of books. We will show later how this can be optimized.
\nThe manager however has a lot more primitive operations that can be used\n to alter the result. Each of these primitive operations returns a modified\n@@ -1680,15 +1680,15 @@\n
Get and Get_Direct
\nAs seen in the example above, these are the two functions that execute the\n query on the database, and returns a list of objects (respectively a\n Customer_List and a Direct_Customer_List).
\nDistinct
\nReturns a copy of the manager that does not return twice a row with the\n-same data (in SQL, this is the \u201cDISTINCT\u201d operator)
\n+same data (in SQL, this is the "DISTINCT" operator)\nLimit (Count : Natural; From : Natural := 0)
\nReturns a copy of the manager that returns a subset of the results, for\n instance the first Count ones.
\nOrder_By (By : SQL_Field_List)
\nReturns a copy of the manager that sorts the results according to a criteria.\n@@ -1714,15 +1714,15 @@\n sections, and we would write:
\nM : Books_Managers := All_Books.Filter (Condition => Books.Pages < 50);\n More complex conditions are possible, involving other tables. Currently,\n the ORM does not have a very user-friendly interface for those, but you\n can always do this by falling back partially to SQL. For instance, if we\n-want to retrieve all the books borrowed by user \u201cSmith\u201d, we need to\n+want to retrieve all the books borrowed by user "Smith", we need to\n involve the Customers table, and thus make a join with the\n Books table. In the future, we intend to make this join automatic,\n but for now you will need to write:
\nM : Books_Managers := All_Books.Filter\n (Books.FK (Customers)\n and Customers.Last = "Smith");\n \n@@ -1751,15 +1751,15 @@\n then call B.Borrowed_By.Address this will result in a query. So\n if you pass 2 for Depth the data for book, customers and addresses\n will be retrieved.\n The second parameter related to efficiency. When a foreign key was mentioned\n as NOT NULL in the schema, we know it is always pointing to an\n existing object in another table. Select_Related will always\n retrieve such objects. If, however, the foreign key can be null, i.e. there\n-isn\u2019t necessarily a corresponding object in the other table, the SQL\n+isn't necessarily a corresponding object in the other table, the SQL\n query needs to use a LEFT JOIN, which is less efficient. By default,\n GNATColl will not retrieve such fields unless Follow_Left_Join\n was set to True.
\n In our example, a book is not necessarily borrowed by a customer, so we need\n to follow the left joins:
\n M : Books_Managers := All_Books.Filter\n (Books.FK (Customers)\n@@ -1791,19 +1791,19 @@\n -- WHERE books.borrowed_by=1\n
\n \n Borrowed_Books is a function that was generated because there was\n a reverse_name. It returns a Books_Managers, so we could\n in fact further filter the list of borrowed books with the same primitive\n operations we just saw. As you can see, the resulting SQL is optimal.
\n-Let\u2019s optimize further the initial query. We have hard-coded the\n+
Let's optimize further the initial query. We have hard-coded the\n customer name, but in fact we could be using the same subprograms we\n were using for prepared statements (Prepared queries), and even\n prepare the query on the server for maximum efficiency. Since our application\n-is likely to use this query a lot, let\u2019s create a global variable:
\n+is likely to use this query a lot, let's create a global variable:\n M : constant Books_Managers := All_Books.Filter\n (Books.FK (Customers)\n and Customers.Id = Integer_Param (1))\n .Select_Related (1, Follow_Left_Join => True);\n \n MP : constant ORM_Prepared_Statement :=\n M.Prepare (On_Server => True);\n@@ -1820,16 +1820,16 @@\n
\n \n \n 1.15. Modifying objects in the ORM\u00b6
\n The ORM is much more than writing queries. Once the objects are persistent,\n they can also be simplify modified, and they will be saved in the database\n transparently.
\n-Let\u2019s start with a simple example. In the previous section, we retrieve an\n-object C representing a customer. Let\u2019s change his name, and make\n+
Let's start with a simple example. In the previous section, we retrieve an\n+object C representing a customer. Let's change his name, and make\n sure the change is in the database:
\n C := Get_Customer (Session, 1);\n C.Set_Last ("Smith");\n C.Set_First ("Andrew");\n Session.Commit;\n
\n \n@@ -1891,15 +1891,15 @@\n end loop;\n \n The above example uses CL.Element, which is a light-weight\n Customer object. Such objects will only see the in-memory changes\n if you have set Flush_Before_Query to true when you configured\n the sessions in the call to GNATCOLL.SQL.Sessions.Setup. Otherwise,\n-it will always return what\u2019s really in the database.
\n+it will always return what's really in the database.\nIf the example was using Detached_Customer object (by calling\n CL.Element.Detach for instance) then GNATColl looks up in\n its internal cache and returns the cached element when possible. This is\n a subtlety, but this is because an Customer only exists as long as\n its cursor, and therefore cannot be cached in the session. In practice, the\n Flush_Before_Query should almost always be true and there will be\n not surprising results.
\n@@ -1908,34 +1908,34 @@\nOften, a database table is used to contain objects that are semantically\n of a different kind. In this section, we will take a slightly different\n example from the library. We no longer store the books and the dvds in\n separate tables. Instead, we have one single media table which\n contains the title and the author, as well as a new field kind\n which is either 0 for a book or 1 for a dvd.
\n-Let\u2019s now look at all the media borrowed by a customer:
\n+Let's now look at all the media borrowed by a customer:
\nC : constant Customer'Class := Get_Customer (Session, Id => 1);\n ML : Media_List := C.Borrowed_Media.Get (Session);\n \n while ML.Has_Row loop\n case ML.Element.Kind is\n when 0 =>\n Put_Line ("A book " & ML.Element.Title);\n when 1 =>\n Put_Line ("A dvd " & ML.Element.Title);\n end case;\n ML.Next;\n end loop;\n This code works, but requires a case statement. Now, let\u2019s imagine\n+
This code works, but requires a case statement. Now, let's imagine\n the check out procedure is different for a book and a DVD (for the latter\n we need to check that the disk is indeed in the box). We would have two\n subprograms Checkout_Book and Checkout_DVD and call them\n-from the case. This isn\u2019t object-oriented programming.
\n+from the case. This isn't object-oriented programming.\nInstead, we will declare two new types:
\ntype My_Media is abstract new ORM.Detached_Media with private;\n procedure Checkout (Self : My_Media) is abstract;\n \n type Detached_Book is new My_Media with private;\n overriding Checkout (Self : Detached_Book);\n \n@@ -1947,16 +1947,16 @@\n that it returns either of the two types instead of a Media.\n But then we would also need to override Get so that it returns our\n new list. This is tedious.\n We will instead use an element factory in the session. This is a function\n that gets a row of a table (in the form of a Customer), and returns\n the appropriate type to use when the element is detached (by default,\n the detached type corresponding to a Customer is a\n-Detached_Customer, and that\u2019s what we want to change).
\n-So let\u2019s create such a factory:
\n+Detached_Customer, and that's what we want to change).\n+So let's create such a factory:
\n function Media_Factory\n (From : Base_Element'Class;\n Default : Detached_Element'Class) return Detached_Element'Class\n is\n begin\n if From in Media'Class then\n case Media (From).Kind is\n", "details": [{"source1": "html2text {}", "source2": "html2text {}", "unified_diff": "@@ -36,27 +36,27 @@\n document refers to this meaning. In a relational database, this place is\n organized into tables, each of which contains a number of fields. A row\n in a table represents one object. The set of tables and their fields is\n called the schema of the database.\n Traditionally, writing the SQL queries is done inline: special markers are\n inserted into your code to delimit sections that contain SQL code (as opposed\n to Ada code), and these are then preprocessed to generate actual code. This\n-isn\u00e2\u0080\u0099t the approach chosen in GNATColl: there are several drawbacks, in\n+isn't the approach chosen in GNATColl: there are several drawbacks, in\n particular your code is no longer Ada and various tools will choke on it.\n The other usual approach is to write the queries as strings, which are passed,\n via a DBMS-specific API, to the DBMS server. This approach is very fragile:\n * The string might not contain well-formed SQL. This will unfortunately\n only be detected at run time when the DBMS complains.\n * This is not type safe. You might be comparing a text field with an\n integer, for instance. In some cases, the DBMS will accept that (sqlite\n- for instance), but in some other cases it won\u00e2\u0080\u0099t (PostgreSQL). The\n- result might then either raise an error, or return an empty list.\n+ for instance), but in some other cases it won't (PostgreSQL). The result\n+ might then either raise an error, or return an empty list.\n * There is a risk of SQL injection. Assuming the string is constructed\n- dynamically (using Ada\u00e2\u0080\u0099s&operator), it might be easy for a user to pass\n- a string that breaks the query, and even destroys things in the database.\n+ dynamically (using Ada's&operator), it might be easy for a user to pass a\n+ string that breaks the query, and even destroys things in the database.\n * As discussed previously, the SQL code might not be portable across DBMS.\n For instance, creating an automatically increment integer primary key in\n a table is DBMS specific.\n * The string is fragile if the database schema changes. Finding whether a\n schema change impacts any of the queries requires looking at all the\n strings in your application.\n * performance might be an issue. Whenever you execute a query, the DBMS\n@@ -126,30 +126,30 @@\n with each other. You could connect to the database, and then write some queries\n using GNATCOLL.SQL and some using GNATCOLL.SQL.ORM.\n ***** 1.2. Database example\u00c2\u00b6 *****\n This section describes an example that will be extended throughout this\n chapter. We will build an application that represents a library. Such a library\n contains various media (books and DVDs for instance), and customers. A customer\n can borrow multiple media at the same time, but a media is either at a\n-customer\u00e2\u0080\u0099s, or still in the library.\n+customer's, or still in the library.\n The GNATColl distribution includes an example directory which contains all the\n code and data for this example.\n ***** 1.3. Database schema\u00c2\u00b6 *****\n As was mentioned earlier (Database_Abstraction_Layers), GNATColl relies on\n automatic code generation to provide a type safe interface to your database.\n This code is generated by an external tool calledgnatcoll_db2ada. In some\n cases, this tool requires an installation of python (www.python.org) on your\n machine, since part of the code is written in that language.\n This tool is able to output various kind of information, and will be fully\n described later (The_gnatcoll_db2ada_tool). However, the input is always the\n same: this is the schema of your database, that is the list of tables and\n fields that make up your database. There exist two ways to provide that\n information:\n * From a running database\n- If you pass the DBMS vendor (postgresql, sqlite,\u00e2\u0080\u00a6) and the connection\n+ If you pass the DBMS vendor (postgresql, sqlite,...) and the connection\n parameters tognatcoll_db2ada, it is able to query the schema on its own.\n However, this should not be the preferred method: this is similar to\n reverse engineering assembly code into the original high-level code, and\n some semantic information will be missing. For instance, in SQL we have\n to create tables just to represent the many-to-many relationships. These\n extra tables are part of the implementation of the schema, but are just\n noise when it comes to the semantics of the schema. For this reason, it\n@@ -161,96 +161,95 @@\n additional capabilities that do not exist when reverse-engineering an\n existing database, for instance the ability to use name to represent\n reverse relationships for foreign keys (see below and the ORM).\n The most convenient editor for this file is Emacs, using theorg-modewhich\n provides convenient key shortcuts for editing the contents of ASCII\n tables. But any text editor will do, and you do not need to align the\n columns in this file.\n- All lines starting with a hash sign (\u00e2\u0080\u0098#\u00e2\u0080\u0099) will be ignored.\n+ All lines starting with a hash sign ('#') will be ignored.\n This file is a collection of ASCII tables, each of which relates to one\n table or one SQL view in your database. The paragraphs start with a line\n containing:\n table ::=\n '|' ('ABSTRACT')? ('TABLE'|'VIEW') ['(' supertable ')']\n '|' '|' \n- \u00e2\u0080\u009cname\u00e2\u0080\u009d is the name of the table. The third pipe and third column are\n+ \"name\" is the name of the table. The third pipe and third column are\n optional, and should be used to specify the name for the element\n represented by a single row. For instance, if the table is called\n- \u00e2\u0080\u009cbooks\u00e2\u0080\u009d, the third column could contain \u00e2\u0080\u009cbook\u00e2\u0080\u009d. This is used when\n+ \"books\", the third column could contain \"book\". This is used when\n generating objects for use withGNATCOLL.SQL.ORM.\n If the first line starts with the keywordABSTRACT, then no instance of\n that table actually exists in the database. This is used in the context\n of table inheritance, so define shared fields only once among multiple\n tables.\n The keywordTABLEcan be followed by the name of a table from which it\n inherits the fields. Currently, that supertable must be abstract, and the\n fields declared in that table are simply duplicated in the new table.\n Following the declaration of the table, the file then describe their\n fields, each on a separate line. Each of these lines must start with a\n- pipe character (\u00e2\u0080\u009c|\u00e2\u0080\u009d), and contain a number of pipe-separated fields.\n- The order of the fields is always given by the following grammar:\n+ pipe character (\"|\"), and contain a number of pipe-separated fields. The\n+ order of the fields is always given by the following grammar:\n fields ::=\n '|' '|' \n '|' ('PK'|''|'NULL'|'NOT NULL'|'INDEX'|'UNIQUE'|'NOCASE')\n '|' [default] '|' [doc] '|'\n- The type of the field is the SQL type (\u00e2\u0080\u009cINTEGER\u00e2\u0080\u009d, \u00e2\u0080\u009cTEXT\u00e2\u0080\u009d,\n- \u00e2\u0080\u009cTIMESTAMP\u00e2\u0080\u009d, \u00e2\u0080\u009cDATE\u00e2\u0080\u009d, \u00e2\u0080\u009cDOUBLE PRECISION\u00e2\u0080\u009d, \u00e2\u0080\u009cMONEY\u00e2\u0080\u009d,\n- \u00e2\u0080\u009cBOOLEAN\u00e2\u0080\u009d, \u00e2\u0080\u009cTIME\u00e2\u0080\u009d, \u00e2\u0080\u009cCHARACTER(1)\u00e2\u0080\u009d). Any maximal length can be\n- specified for strings, not just 1 as in this example. The tool will\n- automatically convert these to Ada when generating Ada code. A special\n- type (\u00e2\u0080\u009cAUTOINCREMENT\u00e2\u0080\u009d) is an integer that is automatically\n- incremented according to available ids in the table. The exact type used\n- will depend on the specific DBMS.\n- The property \u00e2\u0080\u0098NOCASE\u00e2\u0080\u0099 indicates that comparison should be case\n+ The type of the field is the SQL type (\"INTEGER\", \"TEXT\", \"TIMESTAMP\",\n+ \"DATE\", \"DOUBLE PRECISION\", \"MONEY\", \"BOOLEAN\", \"TIME\", \"CHARACTER(1)\").\n+ Any maximal length can be specified for strings, not just 1 as in this\n+ example. The tool will automatically convert these to Ada when generating\n+ Ada code. A special type (\"AUTOINCREMENT\") is an integer that is\n+ automatically incremented according to available ids in the table. The\n+ exact type used will depend on the specific DBMS.\n+ The property 'NOCASE' indicates that comparison should be case\n insensitive for this field.\n If the field is a foreign key (that is a value that must correspond to a\n row in another table), you can use the special syntax for its type:\n fk_type ::= 'FK' [ '(' ')' ]\n As you can see, the type of the field is not specified explicitly, but\n- will always be that of the foreign table\u00e2\u0080\u0099s primary key. With this\n- syntax, the foreign table must have a single field for its primary key.\n- GNATColl does not force a specific order for the declaration of tables:\n- if is valid to have a foreign key to a table that hasn\u00e2\u0080\u0099t been declared\n- yet. There is however a restriction if you use the model to create a\n- sqlite database (through the-createdbswitch ofgnatcoll_db2ada): in this\n- case, a reference to a table that hasn\u00e2\u0080\u0099t been defined yet may not be\n- not through a field marked as NOT NULL. This is a limitation of the\n- sqlite backend itself. The solution in this case is to reorder the\n- declaration of tables, or drop the NOT NULL constraint.\n+ will always be that of the foreign table's primary key. With this syntax,\n+ the foreign table must have a single field for its primary key. GNATColl\n+ does not force a specific order for the declaration of tables: if is\n+ valid to have a foreign key to a table that hasn't been declared yet.\n+ There is however a restriction if you use the model to create a sqlite\n+ database (through the-createdbswitch ofgnatcoll_db2ada): in this case, a\n+ reference to a table that hasn't been defined yet may not be not through\n+ a field marked as NOT NULL. This is a limitation of the sqlite backend\n+ itself. The solution in this case is to reorder the declaration of\n+ tables, or drop the NOT NULL constraint.\n Another restriction is that a foreign key that is also a primary key must\n reference a table that has already been defined. You need to reorder the\n declaration of your tables to ensure this is the case.\n- \u00e2\u0080\u009creverse_name\u00e2\u0080\u009d is the optional name that will be generated in the Ada\n+ \"reverse_name\" is the optional name that will be generated in the Ada\n code for the reverse relationship, in the context ofGNATCOLL.SQL.ORM. If\n- the \u00e2\u0080\u009creverse_name\u00e2\u0080\u009d is empty (the parenthesis are shown), no reverse\n+ the \"reverse_name\" is empty (the parenthesis are shown), no reverse\n relationship is generated. If the parenthesis and the reverse_name are\n both omitted, a default name is generated based on the name of the field.\n The third column in the fields definition indicates the constraints of\n the type. Multiple keywords can be used if they are separated by commas.\n- Thus, \u00e2\u0080\u009cNOT NULL, INDEX\u00e2\u0080\u009d indicates a column that must be set by the\n- user, and for which an index is created to speed up look ups.\n- o A primary key (\u00e2\u0080\u009cPK\u00e2\u0080\u009d)\n- o The value must be defined (\u00e2\u0080\u009cNOT NULL\u00e2\u0080\u009d)\n- o The value can be left undefined (\u00e2\u0080\u009cNULL\u00e2\u0080\u009d)\n- o A unique constraint and index (\u00e2\u0080\u009cUNIQUE\u00e2\u0080\u009d)\n- o An index should be created for that column (\u00e2\u0080\u009cINDEX\u00e2\u0080\u009d) to speed\n- up the lookups.\n+ Thus, \"NOT NULL, INDEX\" indicates a column that must be set by the user,\n+ and for which an index is created to speed up look ups.\n+ o A primary key (\"PK\")\n+ o The value must be defined (\"NOT NULL\")\n+ o The value can be left undefined (\"NULL\")\n+ o A unique constraint and index (\"UNIQUE\")\n+ o An index should be created for that column (\"INDEX\") to speed up\n+ the lookups.\n o The automatic index created for a Foreign Key should not be created\n- (\u00e2\u0080\u009cNOINDEX\u00e2\u0080\u009d). Every time a field references another table,\n- GNATColl will by default create an index for it, so that the ORM\n- can more efficiently do a reverse query (from the target table\u00e2\u0080\u0099s\n- row find all the rows in the current table that reference that\n- target row). This will in general provide more efficiency, but in\n- some cases you never intend to do the reverse query and thus can\n- spare the extra index.\n+ (\"NOINDEX\"). Every time a field references another table, GNATColl\n+ will by default create an index for it, so that the ORM can more\n+ efficiently do a reverse query (from the target table's row find\n+ all the rows in the current table that reference that target row).\n+ This will in general provide more efficiency, but in some cases you\n+ never intend to do the reverse query and thus can spare the extra\n+ index.\n The fourth column gives the default value for the field, and is given in\n SQL syntax. Strings must be quoted with single quotes.\n The fifth column contains documentation for the field (if any). This\n documentation will be included in the generated code, so that IDEs can\n- provide useful tooltips when navigating your application\u00e2\u0080\u0099s code.\n+ provide useful tooltips when navigating your application's code.\n After all the fields have been defined, you can specify extract\n constraints on the table. In particular, if you have a foreign key to a\n table that uses a tuple as its primary key, you can define that foreign\n key on a new line, as:\n FK ::= '|' \"FK:\" '|' '|' *\n '|' * '|'\n For instance:\n@@ -261,54 +260,54 @@\n create. If left blank, a default name will be computed by GNATColl:\n | TABLE | tableA |\n | INDEX: | field1,field2,field3 | name |\n The same way the unique multi-column constraint and index can be created.\n The name is optional.\n TABLE | tableA |\n UNIQUE: | field1,field2,field3 | name |\n- Going back to the example we described earlier (Database_example),\n- let\u00e2\u0080\u0099s describe the tables that are involved.\n+ Going back to the example we described earlier (Database_example), let's\n+ describe the tables that are involved.\n The first table contains the customers. Here is its definition:\n | TABLE | customers | customer || The customer for the library\n |\n | id | AUTOINCREMENT | PK || Auto-generated id\n |\n | first | TEXT | NOT NULL || Customers' first name\n |\n | last | TEXT | NOT NULL, INDEX || Customers' last name\n |\n We highly recommend to set a primary key on all tables. This is a field\n whose value is unique in the table, and thus that can act as an\n identifier for a specific row in the table (in this case for a specific\n customer). We recommend using integers for these ids for efficiency\n reasons. It is possible that the primary key will be made of several\n- fields, in which case they should all have the \u00e2\u0080\u009cPK\u00e2\u0080\u009d constraint in the\n+ fields, in which case they should all have the \"PK\" constraint in the\n third column.\n A table with no primary key is still usable. The difference is in the\n code generated for the ORM (The_Object-Relational_Mapping_layer_(ORM)),\n since theDeleteoperation for this table will raise aProgram_Errorinstead\n- of doing the actual deletion (that\u00e2\u0080\u0099s because there is no guaranteed\n+ of doing the actual deletion (that's because there is no guaranteed\n unique identifier for the element, so the ORM does not know which one to\n- delete \u00e2\u0080\u0093 we do not depend on having unique internal ids on the table,\n+ delete -- we do not depend on having unique internal ids on the table,\n like some DBMS have). Likewise, the elements extracted from such a\n primary key-less table will not be cached locally in the session, and\n cannot be updated (only new elements can be created in the table).\n As we mentioned, the library contains two types of media, books and DVDs.\n Each of those has a title, an author. However, a book also has a number\n of pages and a DVD has a region where it can be viewed. There are various\n ways to represent this in a database. For illustration purposes, we will\n use table inheritance here: we will declare one abstract table (media)\n which contains the common fields, and two tables to represent the types\n of media.\n As we mentioned, a media can be borrowed by at most one customer, but a\n customer can have multiple media at any point in time. This is called a\n one-to-many relationship. In SQL, this is in general described through\n- the use of a foreign key that goes from the table on the \u00e2\u0080\u009cmany\u00e2\u0080\u009d side.\n- In this example, we therefore have a foreign key from media to customers.\n- We also provide a name for the reverse relationship, which will become\n+ the use of a foreign key that goes from the table on the \"many\" side. In\n+ this example, we therefore have a foreign key from media to customers. We\n+ also provide a name for the reverse relationship, which will become\n clearer when we describe the ORM interface.\n Here are the declarations:\n | ABSTRACT TABLE | media | media || The contents of the\n library |\n | id | AUTOINCREMENT | PK || Auto-generated id\n |\n | title | TEXT | || The title of the media\n@@ -325,29 +324,29 @@\n \n | TABLE (media) | dvds | dvd | | The dvds in the library |\n | region | INTEGER | | 1 | |\n For this example, all this description is put in a file called\n dbschema.txt.\n ***** 1.4. The gnatcoll_db2ada tool\u00c2\u00b6 *****\n As stated in the introduction, one of the goals of this library is to make sure\n-the application\u00e2\u0080\u0099s code follows changes in the schema of your database.\n+the application's code follows changes in the schema of your database.\n To reach this goal, an external tool, gnatcoll_db2ada is provided with\n GNATColl, and should be spawned as the first step of the build process, or at\n least whenever the database schema changes. It generates an Ada package\n (Databaseby default) which reflects the current schema of the database.\n This tool supports a number of command line parameters (the complete list of\n which is available through the -h switch). The most important of those switches\n are:\n -dbhost host, -dbname name, -dbuser user, -dbpasswd passwd, -dbtype type\n These parameters specify the connection parameters for the database. To\n find out the schema, gnatcoll_db2ada can connect to an existing database\n (Database_schema). The user does not need to have write permission on the\n database, since all queries are read-only.\n -dbmodel file\n- This parameter can replace the above-dbname,\u00e2\u0080\u00a6 It specifies the name of\n+ This parameter can replace the above-dbname,... It specifies the name of\n a text file that contains the description of the database, therefore\n avoiding the need for already having a database up-and-running to\n generate the Ada interface.\n The format of this text file was described in the previous section.\n This switch is not compatible with-enumand-varsthat really need an access\n to the database.\n -api PKG\n@@ -370,23 +369,23 @@\n initial data (if-loadwas specified) from your application, without\n requiring access to the external files that define the schema and the\n initial data.\n -enum table,id,name,prefix,base\n This parameter can be repeated several times if needed. It identifies one\n of the special tables of the database that acts as an enumeration type.\n It is indeed often the case that one or more tables in the database have\n- a role similar to Ada\u00e2\u0080\u0099s enumeration types, i.e. contains a list of\n- values for information like the list of possible priorities, a list of\n- countries,\u00e2\u0080\u00a6 Such lists are only manipulated by the maintainer of the\n+ a role similar to Ada's enumeration types, i.e. contains a list of values\n+ for information like the list of possible priorities, a list of\n+ countries,... Such lists are only manipulated by the maintainer of the\n database, not interactively, and some of their values have impact on the\n- application\u00e2\u0080\u0099s code (for instance, if a ticket has an urgent priority,\n- we need to send a reminder every day \u00e2\u0080\u0093 but the application needs to\n- know what an urgent priority is). In such a case, it is convenient to\n- generate these values as constants in the generated package. The output\n- will be similar to:\n+ application's code (for instance, if a ticket has an urgent priority, we\n+ need to send a reminder every day -- but the application needs to know\n+ what an urgent priority is). In such a case, it is convenient to generate\n+ these values as constants in the generated package. The output will be\n+ similar to:\n subtype Priority_Id is Integer;\n Priority_High : constant Priority_Id := 3;\n Priority_Medium : constant Priority_Id := 2;\n Priority_Low : constant Priority_Id := 1;\n Priority_High_Internal : constant Priority_Id := 4;\n This code would be extracted from a database table called, for\n instance,ticket_priorities, which contains the following:\n@@ -399,15 +398,15 @@\n To generate the above Ada code, you need to pass the following parameter\n to gnatcoll_db2ada:\n -enum ticket_priorities,Priority,Name,Priority,Integer\n First word in the parameter is the table name where the data to generate\n constants is stored. Second word is the field name in the table where the\n Ada constant value is stored. The third word is the field where the last\n part the Ada constant name is stored. The forth word is the prefix to add\n- in front of the third word field value to generate the Ada constant\u00e2\u0080\u0099s\n+ in front of the third word field value to generate the Ada constant's\n name. The last optional parameter should be eitherInteger(default)\n orString, which influences the way how the Ada constant value is going to\n be generated (surrounded or not by quotes).\n -enum-image\n If specified in addition to the-enumswitch, then a function is generated\n for eachInteger-valued enum that converts numeric values to the\n corresponding name as a string.\n@@ -433,18 +432,18 @@\n We could extract the id that helps detect unassigned tickets with the\n following command line:\n -var no_assign_id,staff,staff_id,\"login='unassigned'\",\"help\"\n which generates:\n No_Assigne_Id : constant := 0;\n -- help\n The application should use this constant rather than some hard-coded\n- string\u00e2\u0080\u009cunassigned\u00e2\u0080\u009dor a named constant with the same value. The reason\n- is that presumably the login will be made visible somewhere to the user,\n- and we could decide to change it (or translate it to another language).\n- In such a case, the application would break. On the other hand, using the\n+ string\"unassigned\"or a named constant with the same value. The reason is\n+ that presumably the login will be made visible somewhere to the user, and\n+ we could decide to change it (or translate it to another language). In\n+ such a case, the application would break. On the other hand, using the\n constant0which we just extracted will remain valid, whatever the actual\n text we display for the user.\n -orm PKG\n This will generate two files (PKG.ads and PKG.adb) that\n supportGNATCOLL.SQL.ORMto write queries without writing actual SQL. This\n is often used in conjunction with -api, as in:\n gnatcoll_db2ada -api Database -orm ORM -dbmodel dbschema.txt\n@@ -517,25 +516,25 @@\n **** 1.4.2. database introspection in Ada\u00c2\u00b6 ****\n As described above, the-createdbswitch makes it possible to create a database\n (or at least its schema). This operation can also be performed directly from\n your Ada code by using the services provided in theGNATCOLL.SQL.Inspectpackage.\n In particular, there are services for reading the schema of a database either\n from a file or from a live database, just asgnatcoll_db2adadoes.\n This results in a structure in memory that you can use to find out which are\n-the tables, what are their fields, their primary keys,\u00e2\u0080\u00a6\n+the tables, what are their fields, their primary keys,...\n It is also possible to dump this schema to a text file (with the same format as\n expected by-dbmodel), or more interestingly to output the SQL statements that\n are needed to create the tables in a database. In the case of Sqlite, creating\n-a table will also create the database file if it doesn\u00e2\u0080\u0099t exist yet, so no\n+a table will also create the database file if it doesn't exist yet, so no\n special rights are needed.\n This input/output mechanism is implemented through an abstractSchema_IOtagged\n type, with various concrete implementations (eitherFile_Schema_IOto read or\n write from/to a file, orDB_Schema_IOto read or write from/to a database).\n See the specs for more detail on these subprograms.\n-**** 1.4.3. Back to the library example\u00e2\u0080\u00a6\u00c2\u00b6 ****\n+**** 1.4.3. Back to the library example...\u00c2\u00b6 ****\n In the previous section, we have described our database schema in a text file.\n We will now perform two operations:\n * Create an empty database\n This should of course only be done once, not every time you run your\n application:\n gnatcolldbada -dbtype=sqlite -dbname=library.db -dbmodel=dbschema.txt -\n createdb\n@@ -581,15 +580,15 @@\n can be done to database at run time.\n To connect to a DBMS, you need to specify the various connection parameters.\n This is done via aGNATCOLL.SQL.Exec.Database_Descriptionobject. The creation of\n this object depends on the specific DBMS you are connecting to (and this is the\n only part of your code that needs to know about the specific system). The\n packagesGNATCOLL.SQL.PostgresandGNATCOLL.SQL.Sqlitecontain aSetupfunction,\n whose parameters depend on the DBMS. They provide full documentation for their\n-parameters. Let\u00e2\u0080\u0099s take a simple example from sqlite:\n+parameters. Let's take a simple example from sqlite:\n with GNATCOLL.SQL.Sqlite; -- or Postgres\n declare\n DB_Descr : GNATCOLL.SQL.Exec.Database_Description;\n begin\n DB_Descr := GNATCOLL.SQL.Sqlite.Setup (\"dbname.db\");\n end\n At this point, no connection to the DBMS has been done, and no information was\n@@ -642,17 +641,17 @@\n In all three cases, the resulting database connection needs to be freed when\n you no longer needed (which might be when your program terminates if you are\n using pools) to avoid memory leaks. Nothing critical will appear if you do not\n close, though, because the transactions to the DBMS server are saved every time\n you callCommitin any case. So the code would end with:\n Free (DB); -- for all connections you have opened\n Free (DB_Descr);\n-At this point, there still hasn\u00e2\u0080\u0099t been any connection to the DBMS. This will\n-be done the first time a query is executed. If for some reason the connection\n-to the DBMS server is lost, GNATColl will automatically attempt to reconnect a\n+At this point, there still hasn't been any connection to the DBMS. This will be\n+done the first time a query is executed. If for some reason the connection to\n+the DBMS server is lost, GNATColl will automatically attempt to reconnect a\n number of times before it gives up. This might break if there was an ongoing\n SQL transaction, but simplifies your code since you do not have to handle\n reconnection when there was a network failure, for instance.\n As we saw before, the database interface can be used in multi-tasking\n applications. In such a case, it is recommended that each thread has its own\n connection to the database, since that is more efficient and you do not have to\n handle locking. However, this assumes that the database server itself is thread\n@@ -671,46 +670,45 @@\n One can connect to the database with an external tool (a web interface\n when the DBMS provides one for instance), or via a command line tool\n (psqlfor PostgreSQL orsqlite3for Sqlite), and start inserting data\n manually. This shows one of the nice aspects of using a standard DBMS for\n your application: you can alter the database (for instance to do minor\n fixes in the data) with a lot of external tools that were developed\n specifically for that purpose and that provide a nice interface. However,\n- this is also tedious and error prone, and can\u00e2\u0080\u0099t be repeat easily every\n+ this is also tedious and error prone, and can't be repeat easily every\n time we recreate the database (for instance before running automatic\n tests).\n * UsingGNATCOLL.SQL.EXEC\n As we will describe later, GNATColl contains all the required machinery\n for altering the contents of the database and creating new objects.\n UsingGNATCOLL.SQL.ORMthis can also be done at a high-level and completely\n hide SQL.\n * Loading a data file\n A lot of frameworks call such a file that contains initial data a\n- \u00e2\u0080\u009cfixture\u00e2\u0080\u009d. We will use this technique as an example. At the Ada\n- level, this is a simple call toGNATCOLL.SQL.Inspect.Load_Data. The\n- package contains a lot more than just this subprogram (The\n- gnatcoll_db2ada_tool):\n+ \"fixture\". We will use this technique as an example. At the Ada level,\n+ this is a simple call toGNATCOLL.SQL.Inspect.Load_Data. The package\n+ contains a lot more than just this subprogram (The_gnatcoll_db2ada_tool):\n declare\n File : GNATCOLL.VFS.Virtual_File := Create (\"fixture.txt\");\n DB : Database_Connection; -- created earlier\n begin\n GNATCOLL.SQL.Inspect.Load_Data (DB, File);\n DB.Commit;\n end;\n The format of this file is described just below.\n As we mentioned, GNATColl can load data from a file. The format of this file is\n similar to the one that describes the database schema. It is a set of ASCII\n tables, each of which describes the data that should go in a table (it is valid\n to duplicate tables). Each block starts with two lines: The first one has two\n-mandatory columns, the first of which contains the text \u00e2\u0080\u009cTABLE\u00e2\u0080\u009d, and the\n-second contains the name of the table you want to fill. The second line should\n-contain as many columns as there are fields you want to set. Not all the fields\n-of the table need to have a corresponding column if you want to set their\n-contents to NULL (provided, of course, that your schema allows it). For\n-instance, we could add data for our library example as such:\n+mandatory columns, the first of which contains the text \"TABLE\", and the second\n+contains the name of the table you want to fill. The second line should contain\n+as many columns as there are fields you want to set. Not all the fields of the\n+table need to have a corresponding column if you want to set their contents to\n+NULL (provided, of course, that your schema allows it). For instance, we could\n+add data for our library example as such:\n | TABLE | customers | |\n | id | first | last |\n |-------+-----------+--------|\n | 1 | John | Smith |\n | 2 | Alain | Dupont |\n \n | TABLE | books | | | |\n@@ -730,15 +728,15 @@\n | TABLE | dvds | | |\n | title | author | region | borrowed_by(&last) |\n |--------------+-----------+--------+--------------------|\n | The Birds | Hitchcock | 1 | &Smith |\n | The Dictator | Chaplin | 3 | &Dupont |\n Here, the title of the column indicates that any value in this column might be\n a reference to thecustomers.lastvalue. Values which start with an ampersand\n-(\u00e2\u0080\u009c&\u00e2\u0080\u009d) will therefore be looked up incustomers.last, and theidof the\n+(\"&\") will therefore be looked up incustomers.last, and theidof the\n corresponding customer will be inserted in thedvdstable. It would still be\n valid to use directly customer ids instead of references, this is just an extra\n flexibility that the references give you to make your fixtures more readable.\n However, if we are using such references we need to provide the database schema\n toLoad_Dataso that it can write the proper queries. This is done by using other\n services of theGNATCOLL.SQL.Inspectpackage.\n The code for our example would be:\n@@ -768,24 +766,24 @@\n (Fields => Max (Ticket_Priorities.Priority)\n & Ticket_Priorities.Category,\n From => Ticket_Priorities,\n Where => Ticket_Priorities.Name /= \"low\",\n Group_By => Ticket_Priorities.Category);\n end;\n The above example will return, for each type of priority (internal or customer)\n-the highest possible value. The interest of this query is left to the user\u00e2\u0080\u00a6\n+the highest possible value. The interest of this query is left to the user...\n This is very similar to an actual SQL query. Field and table names come from\n the package that was automatically generated by thegnatcoll_db2adatool, and\n therefore we know that our query is only referencing existing fields. The\n syntactic correctness is ensured by standard Ada rules. TheSQL_Selectaccepts\n several parameters corresponding to the usual SQL attributes likeGROUP\n BY,HAVING,ORDER BYandLIMIT.\n TheFromparameter could be a list of tables if we need to join them in some\n-ways. Such a list is created with the overridden\u00e2\u0080\u009c&\u00e2\u0080\u009doperator, just as for\n-fields which you can see in the above example. GNATColl also provides\n+ways. Such a list is created with the overridden\"&\"operator, just as for fields\n+which you can see in the above example. GNATColl also provides\n aLeft_Joinfunction to join two tables when the second might have no matching\n field (see the SQL documentation).\n Similar functions exist forSQL_Insert,SQL_UpdateandSQL_Delete. Each of those is\n extensively documented in the gnatcoll-sql.ads file.\n It is worth noting that we do not have to write the query all at once. In fact,\n we could build it depending on some other criteria. For instance, imagine we\n have a procedure that does the query above, and omits the priority specified as\n@@ -819,16 +817,16 @@\n fields referenced in the query), nor the list of fields in theGROUP BYclause,\n which once again can be computed automatically by looking at those fields that\n are not used in a SQL aggregate function. This auto-completion helps the\n maintenance of those queries.\n There is another case where GNATColl makes it somewhat easier to write the\n queries, and that is to handle joins between tables. If your schema was build\n with foreign keys, GNATColl can take advantage of those.\n-Going back to our library example, let\u00e2\u0080\u0099s assume we want to find out all the\n-books that were borrowed by the user \u00e2\u0080\u009cSmith\u00e2\u0080\u009d. We need to involve two tables\n+Going back to our library example, let's assume we want to find out all the\n+books that were borrowed by the user \"Smith\". We need to involve two tables\n (BooksandCustomers), and provide a join between them so that the DBMS knows how\n to associate the rows from one with the rows from the other. Here is a first\n example for such a query:\n Q := SQL_Select\n (Fields => Books.Title & Books.Pages,\n From => Books & Customers,\n Where => Books.Borrowed_By = Customers.Id\n@@ -837,15 +835,15 @@\n involved tables on its own. We thus write the simpler:\n Q := SQL_Select\n (Fields => Books.Title & Books.Pages,\n Where => Books.Borrowed_By = Customers.Id\n and Customers.Last = \"Smith\");\n There is one more things we can do to simplify the query and make it more solid\n if the schema of the database changes. For instance, when a table has a primary\n-key made up of several fields, we need to make sure we always have an \u00e2\u0080\u009c=\u00e2\u0080\u009d\n+key made up of several fields, we need to make sure we always have an \"=\"\n statement in the WHERE clause for all these fields between the two tables. In\n our example above, we could at some point modify the schema so that the primary\n key forcustomersis multiple (this is unlikely in this example of course). To\n avoid this potential problems and make the query somewhat easier to read, we\n can take advantage of theFKsubprograms generated bygnatcoll_db2ada. Using the\n Ada05 dotted notation for the call, we can thus write:\n Q := SQL_Select\n@@ -872,16 +870,15 @@\n case, you can useExecuteinstead ofFetch. This is the case when you execute\n anINSERTorUPDATEstatement for instance. UsingExecuteavoids the need to declare\n the local variableR.\n If for some reason the connection to the database is no longer valid (a\n transient network problem for instance), GNATColl will attempt to reconnect and\n re-execute your query transparently, so that your application does not need to\n handle this case.\n-We\u00e2\u0080\u0099ll describe later (Getting_results) how to analyze the result of the\n-query.\n+We'll describe later (Getting_results) how to analyze the result of the query.\n Some versions ofFetchhave an extra parameterUse_Cache, set toFalseby default.\n If this parameter is true, and the exact same query has already been executed\n before, its result will be reused without even contacting the database server.\n The cache is automatically invalidated every hour in any case. This cache is\n mostly useful for tables that act like enumeration types, as we have seen\n before when discussing the-enumparameter to gnatcoll_db2ada. In this case, the\n contents of the table changes very rarely, and the cache can provide important\n@@ -946,15 +943,15 @@\n \n Q : constant SQL_Query :=\n SQL_Select\n (Fields => Data.Id & Data.Name\n From => Data,\n Where => Data.Id = Integer_Param (1));\n GNATColl provides a number of functions (one per type of field) to indicate\n-that the value is currently unbound.Integer_Param,Text_Param,Boolean_Param,\u00e2\u0080\u00a6\n+that the value is currently unbound.Integer_Param,Text_Param,Boolean_Param,...\n All take a single argument, which is the index of the corresponding parameter.\n A query might need several parameters, and each should have a different index.\n On the other hand, the same parameter could be used in several places in the\n query.\n Although the query above could be executed as is by providing the values for\n the parameters, it is more efficient, as we mentioned at the beginning, to\n compile it on the server. In theory, this preparation is done within the\n@@ -975,40 +972,40 @@\n locally in a subprogram. APrepared_Statementis a reference counted type,\n that will automatically free the memory on the server when it goes out of\n scope.\n * Here, we prepared the statement on the server. If we had\n specifiedOn_Server => False, we would still have sped things up, since Q\n would be converted to a string that can be sent to the DBMS, and from\n then on reused that string (note that this conversion is specific to each\n- DBMS, since they don\u00e2\u0080\u0099t always represent things the same way, in\n+ DBMS, since they don't always represent things the same way, in\n particular parameters, as we have seen above). Thus every time you use P\n you save the time of converting from the GNATColl tree representation of\n the query to a string for the DBMS.\n Now that we have a prepared statement, we can simply execute it. If the\n statement does not require parameters, the usualFetchandExecutesubprograms have\n versions that work exactly the same with prepared statements. They also accept\n aParamsparameter that contains the parameter to pass to the server. A number\n-of\u00e2\u0080\u009c+\u00e2\u0080\u009doperators are provided to create those parameters:\n+of\"+\"operators are provided to create those parameters:\n declare\n F : Forward_Cursor;\n begin\n F.Fetch (DB, P, Params => (1 => +2));\n F.Fetch (DB, P, Params => (1 => +3));\n end;\n-Note that for string parameters, the\u00e2\u0080\u009c+\u00e2\u0080\u009doperator takes an access to a\n-string. This is for efficiency, to avoid allocating memory and copying the\n-string, and is safe because the parameters are only needed whileFetchexecutes\n-(even for aForward_Cursor.\n+Note that for string parameters, the\"+\"operator takes an access to a string.\n+This is for efficiency, to avoid allocating memory and copying the string, and\n+is safe because the parameters are only needed whileFetchexecutes (even for\n+aForward_Cursor.\n Back to our library example. We showed earlier how to write a query that\n-retrieves the books borrowed by customer \u00e2\u0080\u009cSmith\u00e2\u0080\u009d. We will now make this\n-query more general: given a customer name, return all the books he has\n-borrowed. Since we expect to use this often, we will prepare it on the server\n-(in real life, this query is of little interest since the customer name is not\n-unique, we would instead use a query that takes the id of the customer). In\n-general we would create a global variable with:\n+retrieves the books borrowed by customer \"Smith\". We will now make this query\n+more general: given a customer name, return all the books he has borrowed.\n+Since we expect to use this often, we will prepare it on the server (in real\n+life, this query is of little interest since the customer name is not unique,\n+we would instead use a query that takes the id of the customer). In general we\n+would create a global variable with:\n Borrowed : constant Prepared_Statement := Prepare\n (SQL_Select\n (Fields => Books.Title & Books.Pages,\n Where => Books.FK (Customers)\n and Customers.Last = Text_Param (1));\n Auto_Complete => True,\n On_Server => True);\n@@ -1065,15 +1062,15 @@\n value in a specific row and a specific column.\n We mentioned earlier there was no way to go back to a row you fetched\n previously except by executing the query again. This is in fact only true if\n you use aForward_Cursorto fetch the results.\n But GNATColl provides another notion, aDirect_Cursor. In this case, it fetches\n all the rows in memory when the query executes (thus it needs to allocate more\n memory to save every thing, which can be costly if the query is big). This\n-behavior is supported natively byPostgreSQL, but doesn\u00e2\u0080\u0099t exist withsqlite, so\n+behavior is supported natively byPostgreSQL, but doesn't exist withsqlite, so\n GNATColl will simulate it as efficiently as possible. But it will almost always\n be faster to use aForward_Cursor.\n In exchange for this extra memory overhead, you can now traverse the list of\n results in both directions, as well as access a specific row directly. It is\n also possible to know the number of rows that matched (something hard to do\n with aForward_Cursorsince you would need to traverse the list once to count,\n and then execute the query again if you need the rows themselves).\n@@ -1149,18 +1146,18 @@\n with other parts ofGNATCOLL.SQL.\n ***** 1.12. Query logs\u00c2\u00b6 *****\n TheGNATCOLL.Tracespackage provides facilities to add logging. The database\n interface uses this module to log the queries that are sent to the server.\n If you activate traces in your application, the user can then activate one of\n the following trace handles to get more information on the exchange that exists\n between the database and the application. As we saw before, the output of these\n-traces can be sent to the standard output, a file, the system logs,\u00e2\u0080\u00a6\n+traces can be sent to the standard output, a file, the system logs,...\n The following handles are provided:\n * SQL.ERROR This stream is activated by default. Any error returned by the\n- database (connection issues, failed transactions,\u00e2\u0080\u00a6) will be logged on\n+ database (connection issues, failed transactions,...) will be logged on\n this stream\n * SQL This stream logs all queries that are not SELECT queries, i.e. mostly\n all queries that actually modify the database\n * SQL.SELECT This stream logs all select queries. It is separated from SQL\n because very often you will be mostly interested in the queries that\n impact the database, and logging all selects can generate a lot of\n output.\n@@ -1169,17 +1166,17 @@\n with GNATCOLL.Traces; use GNATCOLL.Traces;\n procedure Main is\n begin\n GNATCOLL.Traces.Parse_Config_File (\".gnatdebug\");\n ... -- code as before\n GNATCOLL.Traces.Finalize; -- reclaim memory\n and then create a .gnatdebug in the directory from which we launch our\n-executable. This file would contain a single line containing \u00e2\u0080\u009c+\u00e2\u0080\u009d to\n-activate all log streams, or the following to activate only the subset of\n-fields related to SQL:\n+executable. This file would contain a single line containing \"+\" to activate\n+all log streams, or the following to activate only the subset of fields related\n+to SQL:\n SQL=yes\n SQL.SELECT=yes\n SQL.LITE=yes\n ***** 1.13. Writing your own cursors\u00c2\u00b6 *****\n The cursor interface we just saw is low-level, in that you get access to each\n of the fields one by one. Often, when you design your own application, it is\n better to abstract the database interface layer as much as possible. As a\n@@ -1198,15 +1195,15 @@\n type My_Cursor is new Forward_Cursor with null record;\n function Element (Self : My_Cursor) return My_Row;\n function Do_Query (DB, ...) return My_Cursor;\n The idea is that you create a function that does the query for you (based on\n some parameters that are not shown here), and then returns a cursor over the\n resulting set of rows. For each row, you can use theElementfunction to get an\n Ada record for easier manipulation.\n-Let\u00e2\u0080\u0099s first see how these types would be used in practice:\n+Let's first see how these types would be used in practice:\n declare\n C : My_Cursor := Do_Query (DB, ...);\n begin\n while Has_Row (C) loop\n Put_Line (\"Id = \" & Element (C).Id);\n Next (C);\n end loop;\n@@ -1268,21 +1265,21 @@\n ***** 1.14. The Object-Relational Mapping layer (ORM)\u00c2\u00b6 *****\n GNATColl provides a high-level interface to manipulate persistent objects\n stored in a database, using a common paradigm called an object-relational\n mapping. Such mappings exist for most programming languages. In the design of\n GNATColl, we were especially inspired by the python interface\n indjangoandsqlalchemy, although the last two rely on dynamic run time\n introspection and GNATColl relies on code generation instead.\n-This API is still compatible withGNATCOLL.SQL. In fact, we\u00e2\u0080\u0099ll show below\n-cases where the two are mixed. It can also be mixed withGNATCOLL.SQL.Exec,\n-although this might be more risky. Communication with the DBMS is mostly\n-transparent in the ORM, and it uses various caches to optimize things and make\n-sure that if you modify an element the next query(ies) will also return it. If\n-you useGNATCOLL.SQL.Execdirectly you are bypassing this cache so you risk\n-getting inconsistent results in some cases.\n+This API is still compatible withGNATCOLL.SQL. In fact, we'll show below cases\n+where the two are mixed. It can also be mixed withGNATCOLL.SQL.Exec, although\n+this might be more risky. Communication with the DBMS is mostly transparent in\n+the ORM, and it uses various caches to optimize things and make sure that if\n+you modify an element the next query(ies) will also return it. If you\n+useGNATCOLL.SQL.Execdirectly you are bypassing this cache so you risk getting\n+inconsistent results in some cases.\n In ORM, a table is not manipulated directly. Instead, you manipulate objects\n that are read or written to a table. When we defined our database schema\n (Database_schema), we gave two names on the first line of a table definition.\n There was the name of the table in the database, and the name of the object\n that each row represent. So for our library example we have\n definedCustomer,BookandDvdobjects. These objects are declared in a package\n generated automatically bygnatcoll_db2ada.\n@@ -1292,15 +1289,15 @@\n change thebookstable to be:\n | TABLE (media) | books | book | | The books in the\n library |\n | pages | INTEGER | | 100 |\n |\n | borrowed_by | FK customers(borrowed_books) | NULL | | Who borrowed the\n media |\n-Let\u00e2\u0080\u0099s thus start by generating this code. We can replace the command we ran\n+Let's thus start by generating this code. We can replace the command we ran\n earlier (with the-apiswitch) with one that will also generate the ORM API:\n gnatcoll_db2ada -dbmode dbschema.txt -api Database -orm ORM\n The ORM provides a pool of database connections through the\n packageGNATCOLL.SQL.Sessions. A session therefore acts as a wrapper around a\n connection, and provides a lot more advanced features that will be described\n later. The first thing to do in the code is to configure the session pool.\n TheSetupprocedure takes a lot of parameters to make sessions highly\n@@ -1312,15 +1309,15 @@\n (Descr => GNATCOLL.SQL.Sqlite.Setup (\"library.db\"),\n Max_Sessions => 2);\n The first parameter is the sameDatabase_Descriptionwe saw earlier (Connecting\n to_the_database), but it will be freed automatically by the sessions package,\n so you should not free it yourself.\n Once configure, we can now request a session. Through a session, we can perform\n queries on the database, make objects persistent, write the changes back to the\n-database,\u00e2\u0080\u00a6. We configured the session pool to have at most 2 sessions. The\n+database,.... We configured the session pool to have at most 2 sessions. The\n first time we callGet_New_Session, a new session will be created in the pool\n and marked as busy. While you have a reference to it in your code (generally as\n a local variable), the session belongs to this part of the code. When the\n session is no longer in scope, it is automatically released to the pool to be\n reused for the next call toGet_New_Session. If you callGet_New_Sessiona second\n time while some part of your code holds a session (for instance in a different\n task), a new session will be created. But if you do that a third time while the\n@@ -1328,17 +1325,17 @@\n sessions is released to the pool.\n This technique ensures optimal use of the resources: we avoid creating a new\n session every time (with the performance cost of connecting to the database),\n but also avoid creating an unlimited number of sessions which could saturate\n the server. Since the sessions are created lazily the first time they are\n needed, you can also configure the package with a large number of sessions with\n a limited cost.\n-Let\u00e2\u0080\u0099s then take a new session in our code:\n+Let's then take a new session in our code:\n Session : constant Session_Type := Get_New_Session;\n-and let\u00e2\u0080\u0099s immediately write our first simple query. A customer comes at the\n+and let's immediately write our first simple query. A customer comes at the\n library, handles his card and we see his id (1). We need to look up in the\n database to find out who he is. Fortunately, there is no SQL to write for this:\n C : ORM.Detached_Customer'Class := Get_Customer (Session, Id => 1);\n The call toGet_Customerperforms a SQL query transparently, using prepared\n statements for maximum efficiency. This results in aCustomerobject.\n ORMis the package that was generated automatically bygnatcoll_db2ada. For each\n table in the database, it generates a number of types:\n@@ -1348,16 +1345,16 @@\n table. Such an object is returned by a cursor, similarly to what was\n described in the previous section (Writing_your_own_cursors). This object\n is no longer valid as soon as the cursor moves to the next row (in the\n currently implementation, the object will describe the next row, but it\n is best not to rely on this). As a benefit, this object is light weight\n and does not make a copy of the value of the fields, only reference the\n memory that is already allocated for the cursor.\n- This object redefines the equality operator (\u00e2\u0080\u009c=\u00e2\u0080\u009d) to compare the\n- primary key fields to get expected results.\n+ This object redefines the equality operator (\"=\") to compare the primary\n+ key fields to get expected results.\n * Detached_Customer\n A detached object is very similar to theCustomerobject, but it will\n remain valid even if the cursor moves or is destroyed. In fact, the\n object has made a copy of the value for all of its fields. This object is\n heavier than aCustomer, but sometimes easier to manager. If you want to\n store an object in a data structure, you must always store a detached\n object.\n@@ -1376,15 +1373,15 @@\n * Direct_Customer_List\n This type extends aDirect_Cursor. It also adds aElementoperation that\n returns aCustomerelement.\n * Customers_Managers\n This type is the base type to perform queries on the DBMS. A manager\n provides a number of primitive operations which end up creating a SQL\n query operation in the background, without making that explicit.\n- Let\u00e2\u0080\u0099s first write a query that returns all books in the database:\n+ Let's first write a query that returns all books in the database:\n declare\n M : Books_Managers := All_Books;\n BL : Book_List := M.Get (Session);\n B : Book;\n begin\n while BL.Has_Row loop\n B := BL.Element;\n@@ -1392,15 +1389,15 @@\n Put_Line (\" Borrowed by: \" & B.Borrowed_By.Last);\n BL.Next;\n end loop;\n end;\n The managerMcorresponds to a query that returns all the books in the\n database. The second line then executes the query on the database, and\n returns a list of books. We then traverse the list. Note how we access\n- the book\u00e2\u0080\u0099s title by calling a function, rather than by the index of a\n+ the book's title by calling a function, rather than by the index of a\n field as we did withGNATCOLL.SQL.Execwith Value(B, 0). The code is much\n less fragile this way.\n The line that callsBorrowed_Bywill execute an additional SQL query for\n each book. This might be inefficient if there is a large number of books.\n We will show later how this can be optimized.\n The manager however has a lot more primitive operations that can be used\n to alter the result. Each of these primitive operations returns a\n@@ -1410,15 +1407,15 @@\n Here are those operations:\n o GetandGet_Direct\n As seen in the example above, these are the two functions that\n execute the query on the database, and returns a list of objects\n (respectively aCustomer_Listand aDirect_Customer_List).\n o Distinct\n Returns a copy of the manager that does not return twice a row with\n- the same data (in SQL, this is the \u00e2\u0080\u009cDISTINCT\u00e2\u0080\u009d operator)\n+ the same data (in SQL, this is the \"DISTINCT\" operator)\n o Limit(Count : Natural; From : Natural := 0)\n Returns a copy of the manager that returns a subset of the results,\n for instance the firstCountones.\n o Order_By(By : SQL_Field_List)\n Returns a copy of the manager that sorts the results according to a\n criteria. The criteria is a list of field as was defined\n inGNATCOLL.SQL. We can for instance returns the list of books\n@@ -1438,16 +1435,16 @@\n explained in previous sections, and we would write:\n M : Books_Managers := All_Books.Filter (Condition => Books.Pages <\n 50);\n More complex conditions are possible, involving other tables.\n Currently, the ORM does not have a very user-friendly interface for\n those, but you can always do this by falling back partially to SQL.\n For instance, if we want to retrieve all the books borrowed by user\n- \u00e2\u0080\u009cSmith\u00e2\u0080\u009d, we need to involve theCustomerstable, and thus make a\n- join with theBookstable. In the future, we intend to make this join\n+ \"Smith\", we need to involve theCustomerstable, and thus make a join\n+ with theBookstable. In the future, we intend to make this join\n automatic, but for now you will need to write:\n M : Books_Managers := All_Books.Filter\n (Books.FK (Customers)\n and Customers.Last = \"Smith\");\n \n -- SQL query: SELECT books.pages, books.borrowed_by, books.id,\n -- books.title, books.author, books.published\n@@ -1474,15 +1471,15 @@\n If however you then callB.Borrowed_By.Addressthis will result in a\n query. So if you pass 2 forDepththe data for book, customers and\n addresses will be retrieved.\n The second parameter related to efficiency. When a foreign key was\n mentioned asNOT NULLin the schema, we know it is always pointing to\n an existing object in another table.Select_Relatedwill always\n retrieve such objects. If, however, the foreign key can be null,\n- i.e. there isn\u00e2\u0080\u0099t necessarily a corresponding object in the other\n+ i.e. there isn't necessarily a corresponding object in the other\n table, the SQL query needs to use aLEFT JOIN, which is less\n efficient. By default, GNATColl will not retrieve such fields\n unlessFollow_Left_Joinwas set to True.\n In our example, a book is not necessarily borrowed by a customer,\n so we need to follow the left joins:\n M : Books_Managers := All_Books.Filter\n (Books.FK (Customers)\n@@ -1506,19 +1503,19 @@\n -- SQL: SELECT books.pages, books.borrowed_by, books.id, books.title,\n -- books.author, books.published FROM books\n -- WHERE books.borrowed_by=1\n Borrowed_Booksis a function that was generated because there was areverse_name.\n It returns aBooks_Managers, so we could in fact further filter the list of\n borrowed books with the same primitive operations we just saw. As you can see,\n the resulting SQL is optimal.\n-Let\u00e2\u0080\u0099s optimize further the initial query. We have hard-coded the customer\n-name, but in fact we could be using the same subprograms we were using for\n-prepared statements (Prepared_queries), and even prepare the query on the\n-server for maximum efficiency. Since our application is likely to use this\n-query a lot, let\u00e2\u0080\u0099s create a global variable:\n+Let's optimize further the initial query. We have hard-coded the customer name,\n+but in fact we could be using the same subprograms we were using for prepared\n+statements (Prepared_queries), and even prepare the query on the server for\n+maximum efficiency. Since our application is likely to use this query a lot,\n+let's create a global variable:\n M : constant Books_Managers := All_Books.Filter\n (Books.FK (Customers)\n and Customers.Id = Integer_Param (1))\n .Select_Related (1, Follow_Left_Join => True);\n \n MP : constant ORM_Prepared_Statement :=\n M.Prepare (On_Server => True);\n@@ -1529,17 +1526,17 @@\n BL : Book_List := MP.Get (Session, Params => (1 => Smith_Id));\n The last call toGetis very efficient, with timing improvements similar to the\n ones we discussed on the session about prepared statements (Prepared_queries).\n ***** 1.15. Modifying objects in the ORM\u00c2\u00b6 *****\n The ORM is much more than writing queries. Once the objects are persistent,\n they can also be simplify modified, and they will be saved in the database\n transparently.\n-Let\u00e2\u0080\u0099s start with a simple example. In the previous section, we retrieve an\n-objectCrepresenting a customer. Let\u00e2\u0080\u0099s change his name, and make sure the\n-change is in the database:\n+Let's start with a simple example. In the previous section, we retrieve an\n+objectCrepresenting a customer. Let's change his name, and make sure the change\n+is in the database:\n C := Get_Customer (Session, 1);\n C.Set_Last (\"Smith\");\n C.Set_First (\"Andrew\");\n Session.Commit;\n A reasonable way to modify the database. However, this opens a can of complex\n issues that need to be dealt with.\n When we calledSet_Last, this modify the objects in memory. At this point,\n@@ -1588,46 +1585,46 @@\n while CL.Has_Row loop\n Put_Line (CL.Element.Last);\n CL.Next;\n end loop;\n The above example usesCL.Element, which is a light-weightCustomerobject. Such\n objects will only see the in-memory changes if you have setFlush_Before_Queryto\n true when you configured the sessions in the call\n-toGNATCOLL.SQL.Sessions.Setup. Otherwise, it will always return what\u00e2\u0080\u0099s really\n+toGNATCOLL.SQL.Sessions.Setup. Otherwise, it will always return what's really\n in the database.\n If the example was usingDetached_Customerobject (by callingCL.Element.Detachfor\n instance) then GNATColl looks up in its internal cache and returns the cached\n element when possible. This is a subtlety, but this is because anCustomeronly\n exists as long as its cursor, and therefore cannot be cached in the session. In\n practice, theFlush_Before_Queryshould almost always be true and there will be\n not surprising results.\n ***** 1.16. Object factories in ORM\u00c2\u00b6 *****\n Often, a database table is used to contain objects that are semantically of a\n different kind. In this section, we will take a slightly different example from\n the library. We no longer store the books and the dvds in separate tables.\n Instead, we have one singlemediatable which contains the title and the author,\n as well as a new fieldkindwhich is either 0 for a book or 1 for a dvd.\n-Let\u00e2\u0080\u0099s now look at all the media borrowed by a customer:\n+Let's now look at all the media borrowed by a customer:\n C : constant Customer'Class := Get_Customer (Session, Id => 1);\n ML : Media_List := C.Borrowed_Media.Get (Session);\n \n while ML.Has_Row loop\n case ML.Element.Kind is\n when 0 =>\n Put_Line (\"A book \" & ML.Element.Title);\n when 1 =>\n Put_Line (\"A dvd \" & ML.Element.Title);\n end case;\n ML.Next;\n end loop;\n-This code works, but requires a case statement. Now, let\u00e2\u0080\u0099s imagine the check\n+This code works, but requires a case statement. Now, let's imagine the check\n out procedure is different for a book and a DVD (for the latter we need to\n check that the disk is indeed in the box). We would have two\n-subprogramsCheckout_BookandCheckout_DVDand call them from the case. This\n-isn\u00e2\u0080\u0099t object-oriented programming.\n+subprogramsCheckout_BookandCheckout_DVDand call them from the case. This isn't\n+object-oriented programming.\n Instead, we will declare two new types:\n type My_Media is abstract new ORM.Detached_Media with private;\n procedure Checkout (Self : My_Media) is abstract;\n \n type Detached_Book is new My_Media with private;\n overriding Checkout (Self : Detached_Book);\n \n@@ -1635,17 +1632,17 @@\n overriding Checkout (Self : Detached_DVD);\n We could manually declare a new Media_List and overrideElementso that it\n returns either of the two types instead of aMedia. But then we would also need\n to overrideGetso that it returns our new list. This is tedious.\n We will instead use an element factory in the session. This is a function that\n gets a row of a table (in the form of aCustomer), and returns the appropriate\n type to use when the element is detached (by default, the detached type\n-corresponding to aCustomeris aDetached_Customer, and that\u00e2\u0080\u0099s what we want to\n+corresponding to aCustomeris aDetached_Customer, and that's what we want to\n change).\n-So let\u00e2\u0080\u0099s create such a factory:\n+So let's create such a factory:\n function Media_Factory\n (From : Base_Element'Class;\n Default : Detached_Element'Class) return Detached_Element'Class\n is\n begin\n if From in Media'Class then\n case Media (From).Kind is\n"}]}]}]}]}, {"source1": "libgnatcoll-sql3_21.0.0-6_amd64.deb", "source2": "libgnatcoll-sql3_21.0.0-6_amd64.deb", "unified_diff": null, "details": [{"source1": "file list", "source2": "file list", "unified_diff": "@@ -1,3 +1,3 @@\n -rw-r--r-- 0 0 0 4 2020-12-29 17:08:02.000000 debian-binary\n -rw-r--r-- 0 0 0 864 2020-12-29 17:08:02.000000 control.tar.xz\n--rw-r--r-- 0 0 0 1031492 2020-12-29 17:08:02.000000 data.tar.xz\n+-rw-r--r-- 0 0 0 1032068 2020-12-29 17:08:02.000000 data.tar.xz\n"}, {"source1": "control.tar.xz", "source2": "control.tar.xz", "unified_diff": null, "details": [{"source1": "control.tar", "source2": "control.tar", "unified_diff": null, "details": [{"source1": "./md5sums", "source2": "./md5sums", "unified_diff": null, "details": [{"source1": "./md5sums", "source2": "./md5sums", "comments": ["Files differ"], "unified_diff": null}]}]}]}, {"source1": "data.tar.xz", "source2": "data.tar.xz", "unified_diff": null, "details": [{"source1": "data.tar", "source2": "data.tar", "unified_diff": null, "details": [{"source1": "./usr/lib/x86_64-linux-gnu/libgnatcoll_sql.so.3", "source2": "./usr/lib/x86_64-linux-gnu/libgnatcoll_sql.so.3", "comments": ["File has been modified after NT_GNU_BUILD_ID has been applied."], "unified_diff": null, "details": [{"source1": "readelf --wide --notes {}", "source2": "readelf --wide --notes {}", "unified_diff": "@@ -1,4 +1,4 @@\n \n Displaying notes found in: .note.gnu.build-id\n Owner Data size \tDescription\n- GNU 0x00000014\tNT_GNU_BUILD_ID (unique build ID bitstring)\t Build ID: 6159f44f1009b93cdbb98bdfcf52015062883e4f\n+ GNU 0x00000014\tNT_GNU_BUILD_ID (unique build ID bitstring)\t Build ID: 25dc1c2a0c2b8c643e16d21f1507f229fb693cd2\n"}, {"source1": "readelf --wide --decompress --hex-dump=.gnu_debuglink {}", "source2": "readelf --wide --decompress --hex-dump=.gnu_debuglink {}", "comments": ["error from `readelf --wide --decompress --hex-dump=.gnu_debuglink {}`:", "readelf: Error: no .dynamic section in the dynamic segment"], "unified_diff": "@@ -1,7 +1,7 @@\n \n Hex dump of section '.gnu_debuglink':\n- 0x00000000 35396634 34663130 30396239 33636462 59f44f1009b93cdb\n- 0x00000010 62393862 64666366 35323031 35303632 b98bdfcf52015062\n- 0x00000020 38383365 34662e64 65627567 00000000 883e4f.debug....\n- 0x00000030 1652cbed .R..\n+ 0x00000000 64633163 32613063 32623863 36343365 dc1c2a0c2b8c643e\n+ 0x00000010 31366432 31663135 30376632 32396662 16d21f1507f229fb\n+ 0x00000020 36393363 64322e64 65627567 00000000 693cd2.debug....\n+ 0x00000030 82d7f035 ...5\n \n"}]}]}]}]}, {"source1": "libgnatcoll-db-bin-dbgsym_21.0.0-6_amd64.deb", "source2": "libgnatcoll-db-bin-dbgsym_21.0.0-6_amd64.deb", "unified_diff": null, "details": [{"source1": "file list", "source2": "file list", "unified_diff": "@@ -1,3 +1,3 @@\n -rw-r--r-- 0 0 0 4 2020-12-29 17:08:02.000000 debian-binary\n--rw-r--r-- 0 0 0 640 2020-12-29 17:08:02.000000 control.tar.xz\n--rw-r--r-- 0 0 0 396060 2020-12-29 17:08:02.000000 data.tar.xz\n+-rw-r--r-- 0 0 0 636 2020-12-29 17:08:02.000000 control.tar.xz\n+-rw-r--r-- 0 0 0 395924 2020-12-29 17:08:02.000000 data.tar.xz\n"}, {"source1": "control.tar.xz", "source2": "control.tar.xz", "unified_diff": null, "details": [{"source1": "control.tar", "source2": "control.tar", "unified_diff": null, "details": [{"source1": "./control", "source2": "./control", "unified_diff": "@@ -5,8 +5,8 @@\n Architecture: amd64\n Maintainer: Nicolas Boulenguez \n Installed-Size: 556\n Depends: libgnatcoll-db-bin (= 21.0.0-6)\n Section: debug\n Priority: optional\n Description: debug symbols for libgnatcoll-db-bin\n-Build-Ids: b1f6baa77c5a71de89f93e4a1f9e6193e521b974 f03133174cf11a10132c24cd58083e0fa9462d11\n+Build-Ids: 13362c2f4027d9640aa539dc6d37851ef88e6b6a f03133174cf11a10132c24cd58083e0fa9462d11\n"}, {"source1": "./md5sums", "source2": "./md5sums", "unified_diff": null, "details": [{"source1": "./md5sums", "source2": "./md5sums", "comments": ["Files differ"], "unified_diff": null}, {"source1": "line order", "source2": "line order", "unified_diff": "@@ -1,3 +1,3 @@\n-usr/lib/debug/.build-id/b1/f6baa77c5a71de89f93e4a1f9e6193e521b974.debug\n+usr/lib/debug/.build-id/13/362c2f4027d9640aa539dc6d37851ef88e6b6a.debug\n usr/lib/debug/.build-id/f0/3133174cf11a10132c24cd58083e0fa9462d11.debug\n usr/lib/debug/.dwz/x86_64-linux-gnu/libgnatcoll-db-bin.debug\n"}]}]}]}, {"source1": "data.tar.xz", "source2": "data.tar.xz", "unified_diff": null, "details": [{"source1": "data.tar", "source2": "data.tar", "unified_diff": null, "details": [{"source1": "file list", "source2": "file list", "unified_diff": "@@ -1,14 +1,14 @@\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/\n-drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/b1/\n--rw-r--r-- 0 root (0) root (0) 351944 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/b1/f6baa77c5a71de89f93e4a1f9e6193e521b974.debug\n+drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/13/\n+-rw-r--r-- 0 root (0) root (0) 351944 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/13/362c2f4027d9640aa539dc6d37851ef88e6b6a.debug\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/f0/\n -rw-r--r-- 0 root (0) root (0) 192232 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/f0/3133174cf11a10132c24cd58083e0fa9462d11.debug\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.dwz/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.dwz/x86_64-linux-gnu/\n -rw-r--r-- 0 root (0) root (0) 10552 2020-12-29 17:08:02.000000 ./usr/lib/debug/.dwz/x86_64-linux-gnu/libgnatcoll-db-bin.debug\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/share/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/share/doc/\n"}, {"source1": "./usr/lib/debug/.build-id/b1/f6baa77c5a71de89f93e4a1f9e6193e521b974.debug", "source2": "./usr/lib/debug/.build-id/13/362c2f4027d9640aa539dc6d37851ef88e6b6a.debug", "comments": ["File has been modified after NT_GNU_BUILD_ID has been applied.", "Files 0% similar despite different names"], "unified_diff": null, "details": [{"source1": "readelf --wide --notes {}", "source2": "readelf --wide --notes {}", "comments": ["error from `readelf --wide --notes {}`:", "readelf: Error: Unable to find program interpreter name"], "unified_diff": "@@ -1,8 +1,8 @@\n \n Displaying notes found in: .note.gnu.build-id\n Owner Data size \tDescription\n- GNU 0x00000014\tNT_GNU_BUILD_ID (unique build ID bitstring)\t Build ID: b1f6baa77c5a71de89f93e4a1f9e6193e521b974\n+ GNU 0x00000014\tNT_GNU_BUILD_ID (unique build ID bitstring)\t Build ID: 13362c2f4027d9640aa539dc6d37851ef88e6b6a\n \n Displaying notes found in: .note.ABI-tag\n Owner Data size \tDescription\n GNU 0x00000010\tNT_GNU_ABI_TAG (ABI version tag)\t OS: Linux, ABI: 3.2.0\n"}, {"source1": "readelf --wide --debug-dump=info {}", "source2": "readelf --wide --debug-dump=info {}", "comments": ["error from `readelf --wide --debug-dump=info {}`:", "readelf: Error: Unable to find program interpreter name"], "unified_diff": "@@ -6901,15 +6901,15 @@\n <1><43eb>: Abbrev Number: 0\n Compilation Unit @ offset 0x43ec:\n Length: 0x38b71 (32-bit)\n Version: 4\n Abbrev Offset: 0x5b6\n Pointer Size: 8\n <0><43f7>: Abbrev Number: 244 (DW_TAG_compile_unit)\n- <43f9> DW_AT_producer : (strp) (offset: 0x3c66): GNU Ada 10.2.1 20210110 -O2 -O2 -gnatA -gnatn -gnatwaCJ -g -fstack-protector-strong -gnatec=/tmp/GNAT-TEMP-000003.TMP -gnatem=/tmp/GNAT-TEMP-000025.TMP -mtune=generic -march=x86-64\n+ <43f9> DW_AT_producer : (strp) (offset: 0x3c66): GNU Ada 10.2.1 20210110 -O2 -O2 -gnatA -gnatn -gnatwaCJ -g -fstack-protector-strong -gnatec=/tmp/GNAT-TEMP-000003.TMP -gnatem=/tmp/GNAT-TEMP-000024.TMP -mtune=generic -march=x86-64\n <43fd> DW_AT_language : (data1) 13\t(ADA 95)\n <43fe> DW_AT_name : (strp) (offset: 0x15f0a): ./gnatcoll_db2ada/gnatcoll-db2ada-main.adb\n <4402> DW_AT_comp_dir : (GNU_strp_alt) (offset: 0x6a28) \n <4406> DW_AT_ranges : (sec_offset) 0xeea0\n <440a> DW_AT_low_pc : (addr) 0\n <4412> DW_AT_stmt_list : (sec_offset) 0xc4a\n <1><4416>: Abbrev Number: 232 (DW_TAG_imported_unit)\n"}, {"source1": "readelf --wide --decompress --string-dump=.debug_str {}", "source2": "readelf --wide --decompress --string-dump=.debug_str {}", "comments": ["error from `readelf --wide --decompress --string-dump=.debug_str {}`:", "readelf: Error: Unable to find program interpreter name"], "unified_diff": "@@ -258,15 +258,15 @@\n [ 3b87] gnatcoll__db2ada__main__string_lists__first__3\n [ 3bb6] gnatcoll__db2ada__main__enumeration_lists__first__3\n [ 3bea] gnatcoll__db2ada__main__variables_list__first__3\n [ 3c1b] ada__text_io__put__3\n [ 3c30] comma3\n [ 3c37] ada_main__e304\n [ 3c46] gnatcoll__sql__inspect__Oeq__14\n- [ 3c66] GNU Ada 10.2.1 20210110 -O2 -O2 -gnatA -gnatn -gnatwaCJ -g -fstack-protector-strong -gnatec=/tmp/GNAT-TEMP-000003.TMP -gnatem=/tmp/GNAT-TEMP-000025.TMP -mtune=generic -march=x86-64\n+ [ 3c66] GNU Ada 10.2.1 20210110 -O2 -O2 -gnatA -gnatn -gnatwaCJ -g -fstack-protector-strong -gnatec=/tmp/GNAT-TEMP-000003.TMP -gnatem=/tmp/GNAT-TEMP-000024.TMP -mtune=generic -march=x86-64\n [ 3d1b] gnatcoll__sql__inspect__write_schema__4\n [ 3d43] gnatcoll__db2ada__main__string_lists__read__4\n [ 3d71] gnatcoll__db2ada__main__enumeration_lists__read__4\n [ 3da4] gnatcoll__db2ada__main__variables_list__read__4\n [ 3dd4] gnatcoll__db2ada__main__string_lists__write__4\n [ 3e03] gnatcoll__db2ada__main__enumeration_lists__write__4\n [ 3e37] gnatcoll__db2ada__main__variables_list__write__4\n"}]}]}]}]}, {"source1": "libgnatcoll-sql3-dbgsym_21.0.0-6_amd64.deb", "source2": "libgnatcoll-sql3-dbgsym_21.0.0-6_amd64.deb", "unified_diff": null, "details": [{"source1": "file list", "source2": "file list", "unified_diff": "@@ -1,3 +1,3 @@\n -rw-r--r-- 0 0 0 4 2020-12-29 17:08:02.000000 debian-binary\n--rw-r--r-- 0 0 0 540 2020-12-29 17:08:02.000000 control.tar.xz\n--rw-r--r-- 0 0 0 2104228 2020-12-29 17:08:02.000000 data.tar.xz\n+-rw-r--r-- 0 0 0 544 2020-12-29 17:08:02.000000 control.tar.xz\n+-rw-r--r-- 0 0 0 2104316 2020-12-29 17:08:02.000000 data.tar.xz\n"}, {"source1": "control.tar.xz", "source2": "control.tar.xz", "unified_diff": null, "details": [{"source1": "control.tar", "source2": "control.tar", "unified_diff": null, "details": [{"source1": "./control", "source2": "./control", "unified_diff": "@@ -6,8 +6,8 @@\n Maintainer: Nicolas Boulenguez \n Installed-Size: 3111\n Depends: libgnatcoll-sql3 (= 21.0.0-6)\n Section: debug\n Priority: optional\n Multi-Arch: same\n Description: debug symbols for libgnatcoll-sql3\n-Build-Ids: 6159f44f1009b93cdbb98bdfcf52015062883e4f\n+Build-Ids: 25dc1c2a0c2b8c643e16d21f1507f229fb693cd2\n"}, {"source1": "./md5sums", "source2": "./md5sums", "unified_diff": null, "details": [{"source1": "./md5sums", "source2": "./md5sums", "comments": ["Files differ"], "unified_diff": null}, {"source1": "line order", "source2": "line order", "unified_diff": "@@ -1 +1 @@\n-usr/lib/debug/.build-id/61/59f44f1009b93cdbb98bdfcf52015062883e4f.debug\n+usr/lib/debug/.build-id/25/dc1c2a0c2b8c643e16d21f1507f229fb693cd2.debug\n"}]}]}]}, {"source1": "data.tar.xz", "source2": "data.tar.xz", "unified_diff": null, "details": [{"source1": "data.tar", "source2": "data.tar", "unified_diff": null, "details": [{"source1": "file list", "source2": "file list", "unified_diff": "@@ -1,10 +1,10 @@\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/\n-drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/61/\n--rw-r--r-- 0 root (0) root (0) 3174672 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/61/59f44f1009b93cdbb98bdfcf52015062883e4f.debug\n+drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/25/\n+-rw-r--r-- 0 root (0) root (0) 3174544 2020-12-29 17:08:02.000000 ./usr/lib/debug/.build-id/25/dc1c2a0c2b8c643e16d21f1507f229fb693cd2.debug\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/share/\n drwxr-xr-x 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/share/doc/\n lrwxrwxrwx 0 root (0) root (0) 0 2020-12-29 17:08:02.000000 ./usr/share/doc/libgnatcoll-sql3-dbgsym -> libgnatcoll-sql3\n"}, {"source1": "./usr/lib/debug/.build-id/61/59f44f1009b93cdbb98bdfcf52015062883e4f.debug", "source2": "./usr/lib/debug/.build-id/25/dc1c2a0c2b8c643e16d21f1507f229fb693cd2.debug", "comments": ["File has been modified after NT_GNU_BUILD_ID has been applied.", "Files 1% similar despite different names"], "unified_diff": null, "details": [{"source1": "readelf --wide --file-header {}", "source2": "readelf --wide --file-header {}", "unified_diff": "@@ -6,15 +6,15 @@\n OS/ABI: UNIX - System V\n ABI Version: 0\n Type: DYN (Shared object file)\n Machine: Advanced Micro Devices X86-64\n Version: 0x1\n Entry point address: 0x16b0e0\n Start of program headers: 64 (bytes into file)\n- Start of section headers: 3172368 (bytes into file)\n+ Start of section headers: 3172240 (bytes into file)\n Flags: 0x0\n Size of this header: 64 (bytes)\n Size of program headers: 56 (bytes)\n Number of program headers: 9\n Size of section headers: 64 (bytes)\n Number of section headers: 36\n Section header string table index: 35\n"}, {"source1": "readelf --wide --sections {}", "source2": "readelf --wide --sections {}", "unified_diff": "@@ -1,8 +1,8 @@\n-There are 36 section headers, starting at offset 0x306810:\n+There are 36 section headers, starting at offset 0x306790:\n \n Section Headers:\n [Nr] Name Type Address Off Size ES Flg Lk Inf Al\n [ 0] NULL 0000000000000000 000000 000000 00 0 0 0\n [ 1] .note.gnu.build-id NOTE 0000000000000238 000238 000024 00 A 0 0 4\n [ 2] .gnu.hash NOBITS 0000000000000260 00025c 0180f8 00 A 3 0 8\n [ 3] .dynsym NOBITS 0000000000018358 00025c 049bc0 18 A 4 1 8\n@@ -25,21 +25,21 @@\n [20] .data.rel.ro NOBITS 0000000000444040 001030 01db28 00 WA 0 0 32\n [21] .dynamic NOBITS 0000000000461b68 001030 000250 10 WA 4 0 8\n [22] .got NOBITS 0000000000461db8 001030 009238 08 WA 0 0 8\n [23] .data NOBITS 000000000046b000 001030 001b90 00 WA 0 0 32\n [24] .bss NOBITS 000000000046cba0 001030 002180 00 WA 0 0 32\n [25] .comment PROGBITS 0000000000000000 00025c 000027 01 MS 0 0 1\n [26] .debug_aranges PROGBITS 0000000000000000 000288 000109 00 C 0 0 8\n- [27] .debug_info PROGBITS 0000000000000000 000398 0e781c 00 C 0 0 8\n+ [27] .debug_info PROGBITS 0000000000000000 000398 0e781d 00 C 0 0 8\n [28] .debug_abbrev PROGBITS 0000000000000000 0e7bb8 002099 00 C 0 0 8\n [29] .debug_line PROGBITS 0000000000000000 0e9c58 0454e1 00 C 0 0 8\n- [30] .debug_str PROGBITS 0000000000000000 12f140 0170f3 01 MSC 0 0 8\n- [31] .debug_loc PROGBITS 0000000000000000 146238 07e29d 00 C 0 0 8\n- [32] .debug_ranges PROGBITS 0000000000000000 1c44d8 017c4d 00 C 0 0 8\n- [33] .symtab SYMTAB 0000000000000000 1dc128 05cbe0 18 34 3245 8\n- [34] .strtab STRTAB 0000000000000000 238d08 0cd9a4 00 0 0 1\n- [35] .shstrtab STRTAB 0000000000000000 3066ac 000160 00 0 0 1\n+ [30] .debug_str PROGBITS 0000000000000000 12f140 017074 01 MSC 0 0 8\n+ [31] .debug_loc PROGBITS 0000000000000000 1461b8 07e29d 00 C 0 0 8\n+ [32] .debug_ranges PROGBITS 0000000000000000 1c4458 017c4d 00 C 0 0 8\n+ [33] .symtab SYMTAB 0000000000000000 1dc0a8 05cbe0 18 34 3245 8\n+ [34] .strtab STRTAB 0000000000000000 238c88 0cd9a4 00 0 0 1\n+ [35] .shstrtab STRTAB 0000000000000000 30662c 000160 00 0 0 1\n Key to Flags:\n W (write), A (alloc), X (execute), M (merge), S (strings), I (info),\n L (link order), O (extra OS processing required), G (group), T (TLS),\n C (compressed), x (unknown), o (OS specific), E (exclude),\n D (mbind), l (large), p (processor specific)\n"}, {"source1": "readelf --wide --notes {}", "source2": "readelf --wide --notes {}", "unified_diff": "@@ -1,4 +1,4 @@\n \n Displaying notes found in: .note.gnu.build-id\n Owner Data size \tDescription\n- GNU 0x00000014\tNT_GNU_BUILD_ID (unique build ID bitstring)\t Build ID: 6159f44f1009b93cdbb98bdfcf52015062883e4f\n+ GNU 0x00000014\tNT_GNU_BUILD_ID (unique build ID bitstring)\t Build ID: 25dc1c2a0c2b8c643e16d21f1507f229fb693cd2\n"}, {"source1": "readelf --wide --debug-dump=info {}", "source2": "readelf --wide --debug-dump=info {}", "unified_diff": "@@ -75,15 +75,15 @@\n <72> DW_AT_byte_size : (data1) 4\n <73> DW_AT_encoding : (data1) 5\t(signed)\n <74> DW_AT_name : (strp) (offset: 0x716f8): integer\n <78> DW_AT_artificial : (flag_present) 1\n <1><78>: Abbrev Number: 38 (DW_TAG_base_type)\n <79> DW_AT_byte_size : (data1) 8\n <7a> DW_AT_encoding : (data1) 5\t(signed)\n- <7b> DW_AT_name : (strp) (offset: 0x95aee): long_long_integer\n+ <7b> DW_AT_name : (strp) (offset: 0x95b25): long_long_integer\n <7f> DW_AT_artificial : (flag_present) 1\n <1><7f>: Abbrev Number: 11 (DW_TAG_subprogram)\n <80> DW_AT_name : (strp) (offset: 0x1839): system__storage_elements__to_integer\n <84> DW_AT_decl_file : (data1) 14\n <85> DW_AT_decl_line : (data1) 68\n <86> DW_AT_decl_column : (data1) 4\n <87> DW_AT_type : (ref1) <0x6a>, system__storage_elements__integer_address\n@@ -6439,15 +6439,15 @@\n <2d9e> DW_AT_name : (strp) (offset: 0x1862): buckets\n <2da2> DW_AT_decl_file : (data1) 29\n <2da3> DW_AT_decl_line : (data1) 53\n <2da4> DW_AT_decl_column : (data1) 10\n <2da5> DW_AT_type : (ref_udata) <0x2ca5>, gnatcoll__sql_impl__table_sets__ht_types__buckets_access, gnatcoll__sql_impl__table_sets__ht_types__buckets_type___XUP\n <2da7> DW_AT_data_member_location: (data1) 8\n <2><2da8>: Abbrev Number: 61 (DW_TAG_member)\n- <2da9> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <2da9> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <2dad> DW_AT_decl_file : (data1) 29\n <2dae> DW_AT_decl_line : (data1) 54\n <2daf> DW_AT_decl_column : (data1) 10\n <2db0> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <2db4> DW_AT_data_member_location: (data1) 24\n <2><2db5>: Abbrev Number: 97 (DW_TAG_member)\n <2db6> DW_AT_name : (string) tc\n@@ -6954,15 +6954,15 @@\n <315a> DW_AT_name : (strp) (offset: 0x4ad3e): _parent\n <315e> DW_AT_decl_file : (data1) 25\n <315f> DW_AT_decl_line : (data2) 268\n <3161> DW_AT_decl_column : (data1) 9\n <3162> DW_AT_type : (ref_addr) <0x403>, gnatcoll__sql_impl__formatter\n <3166> DW_AT_data_member_location: (data1) 0\n <2><3167>: Abbrev Number: 34 (DW_TAG_member)\n- <3168> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <3168> DW_AT_name : (strp) (offset: 0x9922a): descr\n <316c> DW_AT_decl_file : (data1) 26\n <316d> DW_AT_decl_line : (data1) 229\n <316e> DW_AT_decl_column : (data1) 7\n <316f> DW_AT_type : (ref_addr) <0x1599>, gnatcoll__sql__exec__T713s, gnatcoll__sql__exec__database_description_record\n <3173> DW_AT_data_member_location: (data1) 8\n <2><3174>: Abbrev Number: 34 (DW_TAG_member)\n <3175> DW_AT_name : (strp) (offset: 0x6860): always_use_transactions\n@@ -8532,15 +8532,15 @@\n <3d0c> DW_AT_type : (ref_udata) <0x3cd6>, system__tasking__accept_list___XUA, system__tasking__accept_alternative\n <1><3d0e>: Abbrev Number: 52 (DW_TAG_pointer_type)\n <3d0f> DW_AT_byte_size : (data1) 8\n <3d10> DW_AT_type : (ref_udata) <0x3c95>, system__tasking__accept_list___XUB\n <1><3d12>: Abbrev Number: 171 (DW_TAG_base_type)\n <3d14> DW_AT_byte_size : (data1) 8\n <3d15> DW_AT_encoding : (data1) 5\t(signed)\n- <3d16> DW_AT_name : (strp) (offset: 0x95af3): long_integer\n+ <3d16> DW_AT_name : (strp) (offset: 0x95b2a): long_integer\n <3d1a> DW_AT_artificial : (flag_present) 1\n <1><3d1a>: Abbrev Number: 172 (DW_TAG_const_type)\n <3d1c> DW_AT_type : (ref_addr) <0xdf8>, system__tasking__atomic_address\n <1><3d20>: Abbrev Number: 185 (DW_TAG_volatile_type)\n <3d22> DW_AT_type : (ref_udata) <0x3d1a>, system__tasking__atomic_address\n <1><3d24>: Abbrev Number: 48 (DW_TAG_structure_type)\n <3d25> DW_AT_name : (strp) (offset: 0x620a): system__tasking__task_entry_queue_array___XUP\n@@ -8918,15 +8918,15 @@\n <3fa5> DW_AT_name : (strp) (offset: 0x645af): element\n <3fa9> DW_AT_decl_file : (data1) 4\n <3faa> DW_AT_decl_line : (data1) 79\n <3fab> DW_AT_decl_column : (data1) 7\n <3fac> DW_AT_type : (ref_udata) <0x31ca>, gnatcoll__strings__xstring\n <3fae> DW_AT_data_member_location: (data1) 0\n <2><3faf>: Abbrev Number: 34 (DW_TAG_member)\n- <3fb0> DW_AT_name : (strp) (offset: 0x983a7): empty\n+ <3fb0> DW_AT_name : (strp) (offset: 0x9841f): empty\n <3fb4> DW_AT_decl_file : (data1) 4\n <3fb5> DW_AT_decl_line : (data1) 80\n <3fb6> DW_AT_decl_column : (data1) 7\n <3fb7> DW_AT_type : (ref_addr) <0x36>, boolean\n <3fbb> DW_AT_data_member_location: (data1) 32\n <2><3fbc>: Abbrev Number: 0\n <1><3fbd>: Abbrev Number: 112 (DW_TAG_array_type)\n@@ -9752,15 +9752,15 @@\n <452e> DW_AT_name : (strp) (offset: 0x1862): buckets\n <4532> DW_AT_decl_file : (data1) 23\n <4533> DW_AT_decl_line : (data1) 53\n <4534> DW_AT_decl_column : (data1) 10\n <4535> DW_AT_type : (ref_udata) <0x4508>, gnatcoll__sql__exec__tasking__string_indexes__ht_types__buckets_access, gnatcoll__sql__exec__tasking__string_indexes__ht_types__buckets_type___XUP\n <4537> DW_AT_data_member_location: (data1) 8\n <2><4538>: Abbrev Number: 34 (DW_TAG_member)\n- <4539> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <4539> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <453d> DW_AT_decl_file : (data1) 23\n <453e> DW_AT_decl_line : (data1) 54\n <453f> DW_AT_decl_column : (data1) 10\n <4540> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <4544> DW_AT_data_member_location: (data1) 24\n <2><4545>: Abbrev Number: 90 (DW_TAG_member)\n <4546> DW_AT_name : (string) tc\n@@ -25995,15 +25995,15 @@\n DW_AT_decl_file : (data1) 16\n DW_AT_decl_line : (data2) 613\n DW_AT_decl_column : (data1) 4\n DW_AT_type : (ref_udata) <0x4508>, gnatcoll__sql__exec__tasking__string_indexes__ht_types__buckets_access, gnatcoll__sql__exec__tasking__string_indexes__ht_types__buckets_type___XUP\n DW_AT_inline : (data1) 3\t(declared as inline and inlined)\n DW_AT_sibling : (ref_udata) <0xe608>\n <2>: Abbrev Number: 41 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 67\n DW_AT_decl_line : (data1) 205\n DW_AT_decl_column : (data1) 26\n DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n <2>: Abbrev Number: 67 (DW_TAG_variable)\n DW_AT_name : (strp) (offset: 0xb484): gnatcoll__sql__exec__tasking__string_indexes__ht_ops__new_buckets__rng___U\n DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n@@ -28485,15 +28485,15 @@\n DW_AT_decl_file : (data1) 21\n DW_AT_decl_line : (data1) 83\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_udata) <0x4014>, gnatcoll__sql__exec__tasking__record_type___XUP\n DW_AT_location : (sec_offset) 0xe251 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe247\n <2>: Abbrev Number: 58 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 21\n DW_AT_decl_line : (data1) 84\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xe2ed (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe2d9\n <2>: Abbrev Number: 10 (DW_TAG_lexical_block)\n@@ -28907,15 +28907,15 @@\n <10368> DW_AT_decl_column : (data1) 4\n <10369> DW_AT_type : (ref_udata) <0xfc40>, gnatcoll__sql__exec__tasking__data_set_vectors__vectorXnnn\n <1036c> DW_AT_ranges : (sec_offset) 0x3020\n <10370> DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n <10372> DW_AT_GNU_all_tail_call_sites: (flag_present) 1\n <10372> DW_AT_sibling : (ref_udata) <0x10571>\n <2><10375>: Abbrev Number: 58 (DW_TAG_formal_parameter)\n- <10376> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <10376> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <1037a> DW_AT_decl_file : (data1) 21\n <1037b> DW_AT_decl_line : (data1) 80\n <1037c> DW_AT_decl_column : (data1) 24\n <1037d> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <10381> DW_AT_location : (sec_offset) 0xe7ea (location list)\n <10385> DW_AT_GNU_locviews: (sec_offset) 0xe7d6\n <2><10389>: Abbrev Number: 10 (DW_TAG_lexical_block)\n@@ -29344,15 +29344,15 @@\n <10810> DW_AT_decl_file : (data1) 21\n <10811> DW_AT_decl_line : (data1) 103\n <10812> DW_AT_decl_column : (data1) 7\n <10813> DW_AT_type : (ref_udata) <0xfc40>, gnatcoll__sql__exec__tasking__data_set_vectors__vectorXnnn\n <10816> DW_AT_location : (sec_offset) 0xf1a3 (location list)\n <1081a> DW_AT_GNU_locviews: (sec_offset) 0xf18d\n <2><1081e>: Abbrev Number: 58 (DW_TAG_formal_parameter)\n- <1081f> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <1081f> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <10823> DW_AT_decl_file : (data1) 21\n <10824> DW_AT_decl_line : (data1) 104\n <10825> DW_AT_decl_column : (data1) 7\n <10826> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <1082a> DW_AT_location : (sec_offset) 0xf29f (location list)\n <1082e> DW_AT_GNU_locviews: (sec_offset) 0xf28d\n <2><10832>: Abbrev Number: 28 (DW_TAG_variable)\n@@ -31642,15 +31642,15 @@\n <11f52> DW_AT_decl_file : (data1) 21\n <11f53> DW_AT_decl_line : (data2) 396\n <11f55> DW_AT_decl_column : (data1) 7\n <11f56> DW_AT_type : (ref_udata) <0x4f49>, natural___XDLU_0__2147483647, integer\n <11f58> DW_AT_location : (sec_offset) 0x10ef1 (location list)\n <11f5c> DW_AT_GNU_locviews: (sec_offset) 0x10ed7\n <2><11f60>: Abbrev Number: 28 (DW_TAG_variable)\n- <11f61> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <11f61> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <11f65> DW_AT_decl_file : (data1) 1\n <11f66> DW_AT_decl_line : (data2) 2637\n <11f68> DW_AT_decl_column : (data1) 7\n <11f69> DW_AT_type : (ref_addr) <0x320>, ada__containers__Tcount_typeB\n <11f6d> DW_AT_location : (sec_offset) 0x1101e (location list)\n <11f71> DW_AT_GNU_locviews: (sec_offset) 0x1100a\n <2><11f75>: Abbrev Number: 28 (DW_TAG_variable)\n@@ -48378,15 +48378,15 @@\n <1cb97> DW_AT_name : (strp) (offset: 0x1862): buckets\n <1cb9b> DW_AT_decl_file : (data1) 23\n <1cb9c> DW_AT_decl_line : (data1) 53\n <1cb9d> DW_AT_decl_column : (data1) 10\n <1cb9e> DW_AT_type : (ref_udata) <0x1cb71>, gnatcoll__sql__exec__name_values__ht_types__buckets_access, gnatcoll__sql__exec__name_values__ht_types__buckets_type___XUP\n <1cba0> DW_AT_data_member_location: (data1) 8\n <2><1cba1>: Abbrev Number: 44 (DW_TAG_member)\n- <1cba2> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <1cba2> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <1cba6> DW_AT_decl_file : (data1) 23\n <1cba7> DW_AT_decl_line : (data1) 54\n <1cba8> DW_AT_decl_column : (data1) 10\n <1cba9> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <1cbad> DW_AT_data_member_location: (data1) 24\n <2><1cbae>: Abbrev Number: 100 (DW_TAG_member)\n <1cbaf> DW_AT_name : (string) tc\n@@ -48826,15 +48826,15 @@\n <1ce99> DW_AT_name : (strp) (offset: 0x1862): buckets\n <1ce9d> DW_AT_decl_file : (data1) 23\n <1ce9e> DW_AT_decl_line : (data1) 53\n <1ce9f> DW_AT_decl_column : (data1) 10\n <1cea0> DW_AT_type : (ref_udata) <0x1ce73>, gnatcoll__sql__exec__database_engines__ht_types__buckets_access, gnatcoll__sql__exec__database_engines__ht_types__buckets_type___XUP\n <1cea2> DW_AT_data_member_location: (data1) 8\n <2><1cea3>: Abbrev Number: 44 (DW_TAG_member)\n- <1cea4> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <1cea4> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <1cea8> DW_AT_decl_file : (data1) 23\n <1cea9> DW_AT_decl_line : (data1) 54\n <1ceaa> DW_AT_decl_column : (data1) 10\n <1ceab> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <1ceaf> DW_AT_data_member_location: (data1) 24\n <2><1ceb0>: Abbrev Number: 100 (DW_TAG_member)\n <1ceb1> DW_AT_name : (string) tc\n@@ -49222,15 +49222,15 @@\n <1d13e> DW_AT_name : (strp) (offset: 0x4ad3e): _parent\n <1d142> DW_AT_decl_file : (data1) 3\n <1d143> DW_AT_decl_line : (data2) 1050\n <1d145> DW_AT_decl_column : (data1) 9\n <1d146> DW_AT_type : (ref_addr) <0x403>, gnatcoll__sql_impl__formatter\n <1d14a> DW_AT_data_member_location: (data1) 0\n <2><1d14b>: Abbrev Number: 20 (DW_TAG_member)\n- <1d14c> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <1d14c> DW_AT_name : (strp) (offset: 0x9922a): descr\n <1d150> DW_AT_decl_file : (data1) 3\n <1d151> DW_AT_decl_line : (data1) 229\n <1d152> DW_AT_decl_column : (data1) 7\n <1d153> DW_AT_type : (ref_udata) <0x1d1ac>, gnatcoll__sql__exec__T713s, gnatcoll__sql__exec__database_description_record\n <1d155> DW_AT_data_member_location: (data1) 8\n <2><1d156>: Abbrev Number: 44 (DW_TAG_member)\n <1d157> DW_AT_name : (strp) (offset: 0x6860): always_use_transactions\n@@ -50155,15 +50155,15 @@\n <1d7a5> DW_AT_name : (strp) (offset: 0x1862): buckets\n <1d7a9> DW_AT_decl_file : (data1) 23\n <1d7aa> DW_AT_decl_line : (data1) 53\n <1d7ab> DW_AT_decl_column : (data1) 10\n <1d7ac> DW_AT_type : (ref_udata) <0x1d77f>, gnatcoll__sql__exec__cached_maps__ht_types__buckets_access, gnatcoll__sql__exec__cached_maps__ht_types__buckets_type___XUP\n <1d7ae> DW_AT_data_member_location: (data1) 8\n <2><1d7af>: Abbrev Number: 44 (DW_TAG_member)\n- <1d7b0> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <1d7b0> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <1d7b4> DW_AT_decl_file : (data1) 23\n <1d7b5> DW_AT_decl_line : (data1) 54\n <1d7b6> DW_AT_decl_column : (data1) 10\n <1d7b7> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <1d7bb> DW_AT_data_member_location: (data1) 24\n <2><1d7bc>: Abbrev Number: 100 (DW_TAG_member)\n <1d7bd> DW_AT_name : (string) tc\n@@ -50564,15 +50564,15 @@\n <1da4e> DW_AT_name : (strp) (offset: 0x1862): buckets\n <1da52> DW_AT_decl_file : (data1) 23\n <1da53> DW_AT_decl_line : (data1) 53\n <1da54> DW_AT_decl_column : (data1) 10\n <1da55> DW_AT_type : (ref_udata) <0x1da28>, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_access, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_type___XUP\n <1da57> DW_AT_data_member_location: (data1) 8\n <2><1da58>: Abbrev Number: 44 (DW_TAG_member)\n- <1da59> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <1da59> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <1da5d> DW_AT_decl_file : (data1) 23\n <1da5e> DW_AT_decl_line : (data1) 54\n <1da5f> DW_AT_decl_column : (data1) 10\n <1da60> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <1da64> DW_AT_data_member_location: (data1) 24\n <2><1da65>: Abbrev Number: 100 (DW_TAG_member)\n <1da66> DW_AT_name : (string) tc\n@@ -51891,15 +51891,15 @@\n <1e428> DW_AT_type : (ref_udata) <0x1e3f1>, system__tasking__accept_list___XUA, system__tasking__accept_alternative\n <1><1e42a>: Abbrev Number: 87 (DW_TAG_pointer_type)\n <1e42b> DW_AT_byte_size : (data1) 8\n <1e42c> DW_AT_type : (ref_udata) <0x1e3b0>, system__tasking__accept_list___XUB\n <1><1e42e>: Abbrev Number: 175 (DW_TAG_base_type)\n <1e430> DW_AT_byte_size : (data1) 8\n <1e431> DW_AT_encoding : (data1) 5\t(signed)\n- <1e432> DW_AT_name : (strp) (offset: 0x95af3): long_integer\n+ <1e432> DW_AT_name : (strp) (offset: 0x95b2a): long_integer\n <1e436> DW_AT_artificial : (flag_present) 1\n <1><1e436>: Abbrev Number: 79 (DW_TAG_structure_type)\n <1e437> DW_AT_name : (strp) (offset: 0x620a): system__tasking__task_entry_queue_array___XUP\n <1e43b> DW_AT_byte_size : (data1) 16\n <1e43c> DW_AT_decl_file : (data1) 51\n <1e43d> DW_AT_decl_line : (data1) 249\n <1e43e> DW_AT_decl_column : (data1) 9\n@@ -52779,15 +52779,15 @@\n <1ebd9> DW_AT_name : (strp) (offset: 0x1862): buckets\n <1ebdd> DW_AT_decl_file : (data1) 7\n <1ebde> DW_AT_decl_line : (data2) 1587\n <1ebe0> DW_AT_decl_column : (data1) 7\n <1ebe1> DW_AT_type : (ref_udata) <0x1da28>, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_access, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_type___XUP\n <1ebe3> DW_AT_location : (exprloc) 5 byte block: 91 b0 7e 23 60 \t(DW_OP_fbreg: -208; DW_OP_plus_uconst: 96)\n <3><1ebe9>: Abbrev Number: 156 (DW_TAG_variable)\n- <1ebeb> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <1ebeb> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <1ebef> DW_AT_decl_file : (data1) 7\n <1ebf0> DW_AT_decl_line : (data2) 1588\n <1ebf2> DW_AT_decl_column : (data1) 7\n <1ebf3> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <1ebf7> DW_AT_location : (exprloc) 5 byte block: 91 b0 7e 23 78 \t(DW_OP_fbreg: -208; DW_OP_plus_uconst: 120)\n <3><1ebfd>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <1ebfe> DW_AT_ranges : (sec_offset) 0xee20\n@@ -54235,15 +54235,15 @@\n <1fa4b> DW_AT_name : (strp) (offset: 0x1862): buckets\n <1fa4f> DW_AT_decl_file : (data1) 7\n <1fa50> DW_AT_decl_line : (data2) 855\n <1fa52> DW_AT_decl_column : (data1) 7\n <1fa53> DW_AT_type : (ref_udata) <0x1da28>, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_access, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_type___XUP\n <1fa55> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 38 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 56)\n <3><1fa5b>: Abbrev Number: 156 (DW_TAG_variable)\n- <1fa5d> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <1fa5d> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <1fa61> DW_AT_decl_file : (data1) 7\n <1fa62> DW_AT_decl_line : (data2) 856\n <1fa64> DW_AT_decl_column : (data1) 7\n <1fa65> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <1fa69> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 54 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 84)\n <3><1fa6f>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <1fa70> DW_AT_ranges : (sec_offset) 0x10c40\n@@ -54873,15 +54873,15 @@\n <200c3> DW_AT_name : (strp) (offset: 0x1862): buckets\n <200c7> DW_AT_decl_file : (data1) 7\n <200c8> DW_AT_decl_line : (data2) 384\n <200ca> DW_AT_decl_column : (data1) 7\n <200cb> DW_AT_type : (ref_udata) <0x1da28>, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_access, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_type___XUP\n <200cd> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 38 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 56)\n <3><200d3>: Abbrev Number: 156 (DW_TAG_variable)\n- <200d5> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <200d5> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <200d9> DW_AT_decl_file : (data1) 7\n <200da> DW_AT_decl_line : (data2) 385\n <200dc> DW_AT_decl_column : (data1) 7\n <200dd> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <200e1> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 54 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 84)\n <3><200e7>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <200e8> DW_AT_ranges : (sec_offset) 0x10a10\n@@ -55505,15 +55505,15 @@\n <20723> DW_AT_name : (strp) (offset: 0x1862): buckets\n <20727> DW_AT_decl_file : (data1) 7\n <20728> DW_AT_decl_line : (data2) 1391\n <2072a> DW_AT_decl_column : (data1) 7\n <2072b> DW_AT_type : (ref_udata) <0x1da28>, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_access, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_type___XUP\n <2072d> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 38 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 56)\n <3><20733>: Abbrev Number: 156 (DW_TAG_variable)\n- <20735> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <20735> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <20739> DW_AT_decl_file : (data1) 7\n <2073a> DW_AT_decl_line : (data2) 1392\n <2073c> DW_AT_decl_column : (data1) 7\n <2073d> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <20741> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 54 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 84)\n <3><20747>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <20748> DW_AT_ranges : (sec_offset) 0x10e60\n@@ -85936,15 +85936,15 @@\n <34936> DW_AT_type : (ref_addr) <0x36>, boolean\n <3493a> DW_AT_low_pc : (addr) 0x20a220\n <34942> DW_AT_high_pc : (udata) 170\n <34944> DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n <34946> DW_AT_GNU_all_call_sites: (flag_present) 1\n <34946> DW_AT_sibling : (ref_udata) <0x34a6b>\n <2><34949>: Abbrev Number: 11 (DW_TAG_formal_parameter)\n- <3494a> DW_AT_name : (strp) (offset: 0xa3f77): subset\n+ <3494a> DW_AT_name : (strp) (offset: 0xa3ebc): subset\n <3494e> DW_AT_decl_file : (data1) 24\n <3494f> DW_AT_decl_line : (data2) 295\n <34951> DW_AT_decl_column : (data1) 24\n <34952> DW_AT_type : (ref_udata) <0x1f9d5>, gnatcoll__sql__exec__freed_db_maps__setXnn\n <34954> DW_AT_location : (sec_offset) 0x403ff (location list)\n <34958> DW_AT_GNU_locviews: (sec_offset) 0x403f1\n <2><3495c>: Abbrev Number: 11 (DW_TAG_formal_parameter)\n@@ -91931,15 +91931,15 @@\n <38487> DW_AT_decl_file : (data1) 10\n <38488> DW_AT_decl_line : (data2) 613\n <3848a> DW_AT_decl_column : (data1) 4\n <3848b> DW_AT_type : (ref_udata) <0x1da28>, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_access, gnatcoll__sql__exec__freed_db_maps__ht_types__buckets_type___XUP\n <3848d> DW_AT_inline : (data1) 3\t(declared as inline and inlined)\n <3848e> DW_AT_sibling : (ref_udata) <0x384a7>\n <2><38491>: Abbrev Number: 55 (DW_TAG_formal_parameter)\n- <38492> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <38492> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <38496> DW_AT_decl_file : (data1) 58\n <38497> DW_AT_decl_line : (data1) 205\n <38498> DW_AT_decl_column : (data1) 26\n <38499> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n <2><3849d>: Abbrev Number: 23 (DW_TAG_variable)\n <3849e> DW_AT_name : (strp) (offset: 0xeeac): gnatcoll__sql__exec__freed_db_maps__ht_ops__new_buckets__rng___U\n <384a2> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n@@ -101751,15 +101751,15 @@\n <3e4b3> DW_AT_decl_file : (data1) 10\n <3e4b4> DW_AT_decl_line : (data2) 613\n <3e4b6> DW_AT_decl_column : (data1) 4\n <3e4b7> DW_AT_type : (ref_udata) <0x1d77f>, gnatcoll__sql__exec__cached_maps__ht_types__buckets_access, gnatcoll__sql__exec__cached_maps__ht_types__buckets_type___XUP\n <3e4b9> DW_AT_inline : (data1) 3\t(declared as inline and inlined)\n <3e4ba> DW_AT_sibling : (ref_udata) <0x3e4d3>\n <2><3e4bd>: Abbrev Number: 55 (DW_TAG_formal_parameter)\n- <3e4be> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <3e4be> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <3e4c2> DW_AT_decl_file : (data1) 58\n <3e4c3> DW_AT_decl_line : (data1) 205\n <3e4c4> DW_AT_decl_column : (data1) 26\n <3e4c5> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n <2><3e4c9>: Abbrev Number: 23 (DW_TAG_variable)\n <3e4ca> DW_AT_name : (strp) (offset: 0x17cb7): gnatcoll__sql__exec__cached_maps__ht_ops__new_buckets__rng___U\n <3e4ce> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n@@ -114376,15 +114376,15 @@\n <4601c> DW_AT_decl_file : (data1) 10\n <4601d> DW_AT_decl_line : (data2) 613\n <4601f> DW_AT_decl_column : (data1) 4\n <46020> DW_AT_type : (ref_udata) <0x1ce73>, gnatcoll__sql__exec__database_engines__ht_types__buckets_access, gnatcoll__sql__exec__database_engines__ht_types__buckets_type___XUP\n <46022> DW_AT_inline : (data1) 3\t(declared as inline and inlined)\n <46023> DW_AT_sibling : (ref_udata) <0x4603c>\n <2><46026>: Abbrev Number: 55 (DW_TAG_formal_parameter)\n- <46027> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <46027> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <4602b> DW_AT_decl_file : (data1) 58\n <4602c> DW_AT_decl_line : (data1) 205\n <4602d> DW_AT_decl_column : (data1) 26\n <4602e> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n <2><46032>: Abbrev Number: 23 (DW_TAG_variable)\n <46033> DW_AT_name : (strp) (offset: 0x1b722): gnatcoll__sql__exec__database_engines__ht_ops__new_buckets__rng___U\n <46037> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n@@ -124899,15 +124899,15 @@\n <4c8d0> DW_AT_decl_file : (data1) 10\n <4c8d1> DW_AT_decl_line : (data2) 613\n <4c8d3> DW_AT_decl_column : (data1) 4\n <4c8d4> DW_AT_type : (ref_udata) <0x1cb71>, gnatcoll__sql__exec__name_values__ht_types__buckets_access, gnatcoll__sql__exec__name_values__ht_types__buckets_type___XUP\n <4c8d6> DW_AT_inline : (data1) 3\t(declared as inline and inlined)\n <4c8d7> DW_AT_sibling : (ref_udata) <0x4c8f0>\n <2><4c8da>: Abbrev Number: 55 (DW_TAG_formal_parameter)\n- <4c8db> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <4c8db> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <4c8df> DW_AT_decl_file : (data1) 58\n <4c8e0> DW_AT_decl_line : (data1) 205\n <4c8e1> DW_AT_decl_column : (data1) 26\n <4c8e2> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n <2><4c8e6>: Abbrev Number: 23 (DW_TAG_variable)\n <4c8e7> DW_AT_name : (strp) (offset: 0x1672c): gnatcoll__sql__exec__name_values__ht_ops__new_buckets__rng___U\n <4c8eb> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n@@ -139565,15 +139565,15 @@\n <56099> DW_AT_name : (strp) (offset: 0x1862): buckets\n <5609d> DW_AT_decl_file : (data1) 29\n <5609e> DW_AT_decl_line : (data1) 53\n <5609f> DW_AT_decl_column : (data1) 10\n <560a0> DW_AT_type : (ref_udata) <0x56072>, gnatcoll__sql__inspect__string_sets__ht_types__buckets_access, gnatcoll__sql__inspect__string_sets__ht_types__buckets_type___XUP\n <560a2> DW_AT_data_member_location: (data1) 8\n <2><560a3>: Abbrev Number: 59 (DW_TAG_member)\n- <560a4> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <560a4> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <560a8> DW_AT_decl_file : (data1) 29\n <560a9> DW_AT_decl_line : (data1) 54\n <560aa> DW_AT_decl_column : (data1) 10\n <560ab> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <560af> DW_AT_data_member_location: (data1) 24\n <2><560b0>: Abbrev Number: 140 (DW_TAG_member)\n <560b2> DW_AT_name : (string) tc\n@@ -142490,15 +142490,15 @@\n <57441> DW_AT_name : (strp) (offset: 0x2d525): root\n <57445> DW_AT_decl_file : (data1) 34\n <57446> DW_AT_decl_line : (data1) 47\n <57447> DW_AT_decl_column : (data1) 10\n <57448> DW_AT_type : (ref_udata) <0x57304>, gnatcoll__sql__inspect__tables_maps__node_access, gnatcoll__sql__inspect__tables_maps__node_type\n <5744a> DW_AT_data_member_location: (data1) 24\n <2><5744b>: Abbrev Number: 59 (DW_TAG_member)\n- <5744c> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <5744c> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <57450> DW_AT_decl_file : (data1) 34\n <57451> DW_AT_decl_line : (data1) 48\n <57452> DW_AT_decl_column : (data1) 10\n <57453> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <57457> DW_AT_data_member_location: (data1) 32\n <2><57458>: Abbrev Number: 140 (DW_TAG_member)\n <5745a> DW_AT_name : (string) tc\n@@ -143299,15 +143299,15 @@\n <579ad> DW_AT_name : (strp) (offset: 0x4ad3e): _parent\n <579b1> DW_AT_decl_file : (data1) 49\n <579b2> DW_AT_decl_line : (data2) 1050\n <579b4> DW_AT_decl_column : (data1) 9\n <579b5> DW_AT_type : (ref_addr) <0x403>, gnatcoll__sql_impl__formatter\n <579b9> DW_AT_data_member_location: (data1) 0\n <2><579ba>: Abbrev Number: 33 (DW_TAG_member)\n- <579bb> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <579bb> DW_AT_name : (strp) (offset: 0x9922a): descr\n <579bf> DW_AT_decl_file : (data1) 49\n <579c0> DW_AT_decl_line : (data1) 229\n <579c1> DW_AT_decl_column : (data1) 7\n <579c2> DW_AT_type : (ref_udata) <0x57a15>, gnatcoll__sql__exec__T713s, gnatcoll__sql__exec__database_description_record\n <579c4> DW_AT_data_member_location: (data1) 8\n <2><579c5>: Abbrev Number: 59 (DW_TAG_member)\n <579c6> DW_AT_name : (strp) (offset: 0x6860): always_use_transactions\n@@ -145825,15 +145825,15 @@\n <58d23> DW_AT_name : (strp) (offset: 0x1862): buckets\n <58d27> DW_AT_decl_file : (data1) 8\n <58d28> DW_AT_decl_line : (data2) 1771\n <58d2a> DW_AT_decl_column : (data1) 7\n <58d2b> DW_AT_type : (ref_udata) <0x56072>, gnatcoll__sql__inspect__string_sets__ht_types__buckets_access, gnatcoll__sql__inspect__string_sets__ht_types__buckets_type___XUP\n <58d2d> DW_AT_location : (exprloc) 5 byte block: 91 b0 7e 23 60 \t(DW_OP_fbreg: -208; DW_OP_plus_uconst: 96)\n <3><58d33>: Abbrev Number: 135 (DW_TAG_variable)\n- <58d35> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <58d35> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <58d39> DW_AT_decl_file : (data1) 8\n <58d3a> DW_AT_decl_line : (data2) 1772\n <58d3c> DW_AT_decl_column : (data1) 7\n <58d3d> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <58d41> DW_AT_location : (exprloc) 5 byte block: 91 b0 7e 23 78 \t(DW_OP_fbreg: -208; DW_OP_plus_uconst: 120)\n <3><58d47>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <58d48> DW_AT_ranges : (sec_offset) 0x26a30\n@@ -147735,15 +147735,15 @@\n <59fe4> DW_AT_name : (strp) (offset: 0x1862): buckets\n <59fe8> DW_AT_decl_file : (data1) 8\n <59fe9> DW_AT_decl_line : (data2) 948\n <59feb> DW_AT_decl_column : (data1) 7\n <59fec> DW_AT_type : (ref_udata) <0x56072>, gnatcoll__sql__inspect__string_sets__ht_types__buckets_access, gnatcoll__sql__inspect__string_sets__ht_types__buckets_type___XUP\n <59fee> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 38 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 56)\n <3><59ff4>: Abbrev Number: 135 (DW_TAG_variable)\n- <59ff6> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <59ff6> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <59ffa> DW_AT_decl_file : (data1) 8\n <59ffb> DW_AT_decl_line : (data2) 949\n <59ffd> DW_AT_decl_column : (data1) 7\n <59ffe> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <5a002> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 54 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 84)\n <3><5a008>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <5a009> DW_AT_ranges : (sec_offset) 0x25ca0\n@@ -148611,15 +148611,15 @@\n <5a8fb> DW_AT_name : (strp) (offset: 0x1862): buckets\n <5a8ff> DW_AT_decl_file : (data1) 8\n <5a900> DW_AT_decl_line : (data2) 409\n <5a902> DW_AT_decl_column : (data1) 7\n <5a903> DW_AT_type : (ref_udata) <0x56072>, gnatcoll__sql__inspect__string_sets__ht_types__buckets_access, gnatcoll__sql__inspect__string_sets__ht_types__buckets_type___XUP\n <5a905> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 38 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 56)\n <3><5a90b>: Abbrev Number: 135 (DW_TAG_variable)\n- <5a90d> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <5a90d> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <5a911> DW_AT_decl_file : (data1) 8\n <5a912> DW_AT_decl_line : (data2) 410\n <5a914> DW_AT_decl_column : (data1) 7\n <5a915> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <5a919> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 54 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 84)\n <3><5a91f>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <5a920> DW_AT_ranges : (sec_offset) 0x25fd0\n@@ -149487,15 +149487,15 @@\n <5b211> DW_AT_name : (strp) (offset: 0x1862): buckets\n <5b215> DW_AT_decl_file : (data1) 8\n <5b216> DW_AT_decl_line : (data2) 1555\n <5b218> DW_AT_decl_column : (data1) 7\n <5b219> DW_AT_type : (ref_udata) <0x56072>, gnatcoll__sql__inspect__string_sets__ht_types__buckets_access, gnatcoll__sql__inspect__string_sets__ht_types__buckets_type___XUP\n <5b21b> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 38 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 56)\n <3><5b221>: Abbrev Number: 135 (DW_TAG_variable)\n- <5b223> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <5b223> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <5b227> DW_AT_decl_file : (data1) 8\n <5b228> DW_AT_decl_line : (data2) 1556\n <5b22a> DW_AT_decl_column : (data1) 7\n <5b22b> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <5b22f> DW_AT_location : (exprloc) 5 byte block: 91 d0 7e 23 54 \t(DW_OP_fbreg: -176; DW_OP_plus_uconst: 84)\n <3><5b235>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <5b236> DW_AT_ranges : (sec_offset) 0x26300\n@@ -165688,15 +165688,15 @@\n <66351> DW_AT_sibling : (ref_udata) <0x66360>\n <7><66354>: Abbrev Number: 94 (DW_TAG_subrange_type)\n <66355> DW_AT_type : (ref_addr) <0x1e>, integer\n <66359> DW_AT_lower_bound : (ref_udata) <0x66329>\n <6635c> DW_AT_upper_bound : (ref_udata) <0x66337>\n <7><6635f>: Abbrev Number: 0\n <6><66360>: Abbrev Number: 71 (DW_TAG_variable)\n- <66361> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <66361> DW_AT_name : (strp) (offset: 0x9922a): descr\n <66365> DW_AT_decl_file : (data1) 11\n <66366> DW_AT_decl_line : (data2) 2293\n <66368> DW_AT_decl_column : (data1) 17\n <66369> DW_AT_type : (ref_udata) <0x6636c>, gnatcoll__sql__inspect__write_schema__for_table__write_index__L_43__T5786b__4, character\n <6><6636c>: Abbrev Number: 26 (DW_TAG_reference_type)\n <6636d> DW_AT_byte_size : (data1) 8\n <6636e> DW_AT_type : (ref_udata) <0x66345>, gnatcoll__sql__inspect__write_schema__for_table__write_index__L_43__T5786b__4, character\n@@ -174846,15 +174846,15 @@\n <6c350> DW_AT_name : (strp) (offset: 0x1862): buckets\n <6c354> DW_AT_decl_file : (data1) 5\n <6c355> DW_AT_decl_line : (data2) 1587\n <6c357> DW_AT_decl_column : (data1) 7\n <6c358> DW_AT_type : (ref_udata) <0x7f676>, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_access__2, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_type__2___XUP\n <6c35b> DW_AT_location : (exprloc) 5 byte block: 91 a0 7d 23 50 \t(DW_OP_fbreg: -352; DW_OP_plus_uconst: 80)\n <5><6c361>: Abbrev Number: 135 (DW_TAG_variable)\n- <6c363> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <6c363> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <6c367> DW_AT_decl_file : (data1) 5\n <6c368> DW_AT_decl_line : (data2) 1588\n <6c36a> DW_AT_decl_column : (data1) 7\n <6c36b> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <6c36f> DW_AT_location : (exprloc) 6 byte block: 91 a0 7d 23 f0 1 \t(DW_OP_fbreg: -352; DW_OP_plus_uconst: 240)\n <5><6c376>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <6c377> DW_AT_ranges : (sec_offset) 0x21a60\n@@ -177685,15 +177685,15 @@\n <6e137> DW_AT_name : (strp) (offset: 0x1862): buckets\n <6e13b> DW_AT_decl_file : (data1) 5\n <6e13c> DW_AT_decl_line : (data2) 855\n <6e13e> DW_AT_decl_column : (data1) 7\n <6e13f> DW_AT_type : (ref_udata) <0x7f676>, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_access__2, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_type__2___XUP\n <6e142> DW_AT_location : (exprloc) 5 byte block: 91 f0 7d 23 28 \t(DW_OP_fbreg: -272; DW_OP_plus_uconst: 40)\n <5><6e148>: Abbrev Number: 135 (DW_TAG_variable)\n- <6e14a> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <6e14a> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <6e14e> DW_AT_decl_file : (data1) 5\n <6e14f> DW_AT_decl_line : (data2) 856\n <6e151> DW_AT_decl_column : (data1) 7\n <6e152> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <6e156> DW_AT_location : (exprloc) 6 byte block: 91 f0 7d 23 ac 1 \t(DW_OP_fbreg: -272; DW_OP_plus_uconst: 172)\n <5><6e15d>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <6e15e> DW_AT_ranges : (sec_offset) 0x203e0\n@@ -179441,15 +179441,15 @@\n <6f3fc> DW_AT_name : (strp) (offset: 0x1862): buckets\n <6f400> DW_AT_decl_file : (data1) 5\n <6f401> DW_AT_decl_line : (data2) 384\n <6f403> DW_AT_decl_column : (data1) 7\n <6f404> DW_AT_type : (ref_udata) <0x7f676>, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_access__2, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_type__2___XUP\n <6f407> DW_AT_location : (exprloc) 5 byte block: 91 c0 7d 23 28 \t(DW_OP_fbreg: -320; DW_OP_plus_uconst: 40)\n <5><6f40d>: Abbrev Number: 135 (DW_TAG_variable)\n- <6f40f> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <6f40f> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <6f413> DW_AT_decl_file : (data1) 5\n <6f414> DW_AT_decl_line : (data2) 385\n <6f416> DW_AT_decl_column : (data1) 7\n <6f417> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <6f41b> DW_AT_location : (exprloc) 6 byte block: 91 c0 7d 23 cc 1 \t(DW_OP_fbreg: -320; DW_OP_plus_uconst: 204)\n <5><6f422>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <6f423> DW_AT_ranges : (sec_offset) 0x211e0\n@@ -182804,15 +182804,15 @@\n <716d6> DW_AT_name : (strp) (offset: 0x1862): buckets\n <716da> DW_AT_decl_file : (data1) 5\n <716db> DW_AT_decl_line : (data2) 1391\n <716dd> DW_AT_decl_column : (data1) 7\n <716de> DW_AT_type : (ref_udata) <0x7f676>, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_access__2, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_type__2___XUP\n <716e1> DW_AT_location : (exprloc) 5 byte block: 91 c0 7d 23 28 \t(DW_OP_fbreg: -320; DW_OP_plus_uconst: 40)\n <5><716e7>: Abbrev Number: 135 (DW_TAG_variable)\n- <716e9> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <716e9> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <716ed> DW_AT_decl_file : (data1) 5\n <716ee> DW_AT_decl_line : (data2) 1392\n <716f0> DW_AT_decl_column : (data1) 7\n <716f1> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <716f5> DW_AT_location : (exprloc) 6 byte block: 91 c0 7d 23 cc 1 \t(DW_OP_fbreg: -320; DW_OP_plus_uconst: 204)\n <5><716fc>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <716fd> DW_AT_ranges : (sec_offset) 0x214e0\n@@ -184995,15 +184995,15 @@\n <72e48> DW_AT_low_pc : (addr) 0x22fed0\n <72e50> DW_AT_high_pc : (udata) 182\n <72e52> DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n <72e54> DW_AT_static_link : (exprloc) 6 byte block: 73 0 23 a8 8 6 \t(DW_OP_breg3 (rbx): 0; DW_OP_plus_uconst: 1064; DW_OP_deref)\n <72e5b> DW_AT_GNU_all_call_sites: (flag_present) 1\n <72e5b> DW_AT_sibling : (ref_udata) <0x72f9e>\n <4><72e5e>: Abbrev Number: 16 (DW_TAG_formal_parameter)\n- <72e5f> DW_AT_name : (strp) (offset: 0xa3f77): subset\n+ <72e5f> DW_AT_name : (strp) (offset: 0xa3ebc): subset\n <72e63> DW_AT_decl_file : (data1) 19\n <72e64> DW_AT_decl_line : (data2) 295\n <72e66> DW_AT_decl_column : (data1) 24\n <72e67> DW_AT_type : (ref_udata) <0x69684>, gnatcoll__sql__inspect__write_schema__xstring_sets__set__2\n <72e6a> DW_AT_location : (sec_offset) 0x975e9 (location list)\n <72e6e> DW_AT_GNU_locviews: (sec_offset) 0x975db\n <4><72e72>: Abbrev Number: 16 (DW_TAG_formal_parameter)\n@@ -187259,15 +187259,15 @@\n <74526> DW_AT_sibling : (ref_udata) <0x74535>\n <8><74529>: Abbrev Number: 94 (DW_TAG_subrange_type)\n <7452a> DW_AT_type : (ref_addr) <0x1e>, integer\n <7452e> DW_AT_lower_bound : (ref_udata) <0x744fe>\n <74531> DW_AT_upper_bound : (ref_udata) <0x7450c>\n <8><74534>: Abbrev Number: 0\n <7><74535>: Abbrev Number: 57 (DW_TAG_variable)\n- <74536> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <74536> DW_AT_name : (strp) (offset: 0x9922a): descr\n <7453a> DW_AT_decl_file : (data1) 11\n <7453b> DW_AT_decl_line : (data2) 1809\n <7453d> DW_AT_decl_column : (data1) 17\n <7453e> DW_AT_type : (ref_udata) <0x74549>, gnatcoll__sql__inspect__write_schema__for_table__print_uniques__L_35__T4451b__2, character\n <74541> DW_AT_location : (sec_offset) 0x991a4 (location list)\n <74545> DW_AT_GNU_locviews: (sec_offset) 0x99198\n <7><74549>: Abbrev Number: 26 (DW_TAG_reference_type)\n@@ -189439,15 +189439,15 @@\n <75d0a> DW_AT_sibling : (ref_udata) <0x75d19>\n <8><75d0d>: Abbrev Number: 94 (DW_TAG_subrange_type)\n <75d0e> DW_AT_type : (ref_addr) <0x1e>, integer\n <75d12> DW_AT_lower_bound : (ref_udata) <0x75ce2>\n <75d15> DW_AT_upper_bound : (ref_udata) <0x75cf0>\n <8><75d18>: Abbrev Number: 0\n <7><75d19>: Abbrev Number: 71 (DW_TAG_variable)\n- <75d1a> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <75d1a> DW_AT_name : (strp) (offset: 0x9922a): descr\n <75d1e> DW_AT_decl_file : (data1) 11\n <75d1f> DW_AT_decl_line : (data2) 1788\n <75d21> DW_AT_decl_column : (data1) 17\n <75d22> DW_AT_type : (ref_udata) <0x75d25>, gnatcoll__sql__inspect__write_schema__for_table__print_indexes__L_34__T4367b__2, character\n <7><75d25>: Abbrev Number: 26 (DW_TAG_reference_type)\n <75d26> DW_AT_byte_size : (data1) 8\n <75d27> DW_AT_type : (ref_udata) <0x75cfe>, gnatcoll__sql__inspect__write_schema__for_table__print_indexes__L_34__T4367b__2, character\n@@ -200087,15 +200087,15 @@\n <7d00b> DW_AT_decl_file : (data1) 10\n <7d00c> DW_AT_decl_line : (data2) 613\n <7d00e> DW_AT_decl_column : (data1) 4\n <7d00f> DW_AT_type : (ref_udata) <0x7f676>, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_access__2, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_type__2___XUP\n <7d012> DW_AT_inline : (data1) 3\t(declared as inline and inlined)\n <7d013> DW_AT_sibling : (ref_udata) <0x7d02c>\n <4><7d016>: Abbrev Number: 61 (DW_TAG_formal_parameter)\n- <7d017> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <7d017> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <7d01b> DW_AT_decl_file : (data1) 65\n <7d01c> DW_AT_decl_line : (data1) 205\n <7d01d> DW_AT_decl_column : (data1) 26\n <7d01e> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n <4><7d022>: Abbrev Number: 37 (DW_TAG_variable)\n <7d023> DW_AT_name : (strp) (offset: 0x3d913): gnatcoll__sql__inspect__write_schema__xstring_sets__ht_ops__new_buckets__rng__2___U\n <7d027> DW_AT_type : (ref_addr) <0x973>, ada__containers__hash_type\n@@ -203869,15 +203869,15 @@\n <7f683> DW_AT_name : (strp) (offset: 0x1862): buckets\n <7f687> DW_AT_decl_file : (data1) 29\n <7f688> DW_AT_decl_line : (data1) 53\n <7f689> DW_AT_decl_column : (data1) 10\n <7f68a> DW_AT_type : (ref_udata) <0x7f676>, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_access__2, gnatcoll__sql__inspect__write_schema__xstring_sets__ht_types__buckets_type__2___XUP\n <7f68d> DW_AT_data_member_location: (data1) 8\n <3><7f68e>: Abbrev Number: 59 (DW_TAG_member)\n- <7f68f> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <7f68f> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <7f693> DW_AT_decl_file : (data1) 29\n <7f694> DW_AT_decl_line : (data1) 54\n <7f695> DW_AT_decl_column : (data1) 10\n <7f696> DW_AT_type : (ref_addr) <0x646>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <7f69a> DW_AT_data_member_location: (data1) 24\n <3><7f69b>: Abbrev Number: 140 (DW_TAG_member)\n <7f69d> DW_AT_name : (string) tc\n@@ -213962,15 +213962,15 @@\n <860fc> DW_AT_low_pc : (addr) 0x289350\n <86104> DW_AT_high_pc : (udata) 12\n <86105> DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n <86107> DW_AT_static_link : (exprloc) 6 byte block: 7a 0 23 a0 1 6 \t(DW_OP_breg10 (r10): 0; DW_OP_plus_uconst: 160; DW_OP_deref)\n <8610e> DW_AT_GNU_all_call_sites: (flag_present) 1\n <8610e> DW_AT_sibling : (ref_udata) <0x86139>\n <5><86111>: Abbrev Number: 16 (DW_TAG_formal_parameter)\n- <86112> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <86112> DW_AT_name : (strp) (offset: 0x9922a): descr\n <86116> DW_AT_decl_file : (data1) 11\n <86117> DW_AT_decl_line : (data2) 1571\n <86119> DW_AT_decl_column : (data1) 30\n <8611a> DW_AT_type : (ref_udata) <0x574d9>, gnatcoll__sql__inspect__table_description\n <8611c> DW_AT_location : (sec_offset) 0xaecad (location list)\n <86120> DW_AT_GNU_locviews: (sec_offset) 0xaeca9\n <5><86124>: Abbrev Number: 112 (DW_TAG_GNU_call_site)\n@@ -217699,15 +217699,15 @@\n <8898c> DW_AT_type : (ref_udata) <0x578bf>, gnatcoll__sql__exec__relation_kind\n <8898e> DW_AT_location : (sec_offset) 0xb0d1f (location list)\n <88992> DW_AT_GNU_locviews: (sec_offset) 0xb0d19\n <4><88996>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <88997> DW_AT_ranges : (sec_offset) 0x3a620\n <8899b> DW_AT_sibling : (ref_udata) <0x88eec>\n <5><8899e>: Abbrev Number: 52 (DW_TAG_variable)\n- <8899f> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <8899f> DW_AT_name : (strp) (offset: 0x9922a): descr\n <889a3> DW_AT_decl_file : (data1) 11\n <889a4> DW_AT_decl_line : (data2) 903\n <889a6> DW_AT_decl_column : (data1) 10\n <889a7> DW_AT_type : (ref_udata) <0x57b1e>, gnatcoll__sql__inspect__table_description_record\n <889a9> DW_AT_location : (exprloc) 3 byte block: 91 b0 7d \t(DW_OP_fbreg: -336)\n <5><889ad>: Abbrev Number: 132 (DW_TAG_variable)\n <889af> DW_AT_name : (string) ref\n@@ -218232,15 +218232,15 @@\n <88f64> DW_AT_name : (strp) (offset: 0x39b3b): to_table\n <88f68> DW_AT_decl_file : (data1) 11\n <88f69> DW_AT_decl_line : (data2) 951\n <88f6b> DW_AT_decl_column : (data1) 10\n <88f6c> DW_AT_type : (ref_udata) <0x5656d>, gnatcoll__sql__inspect__table_description\n <88f6e> DW_AT_location : (exprloc) 5 byte block: 91 a0 7e 23 10 \t(DW_OP_fbreg: -224; DW_OP_plus_uconst: 16)\n <5><88f74>: Abbrev Number: 52 (DW_TAG_variable)\n- <88f75> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <88f75> DW_AT_name : (strp) (offset: 0x9922a): descr\n <88f79> DW_AT_decl_file : (data1) 11\n <88f7a> DW_AT_decl_line : (data2) 952\n <88f7c> DW_AT_decl_column : (data1) 10\n <88f7d> DW_AT_type : (ref_udata) <0x56be9>, gnatcoll__sql__inspect__foreign_key_description\n <88f7f> DW_AT_location : (exprloc) 5 byte block: 91 a0 7e 23 20 \t(DW_OP_fbreg: -224; DW_OP_plus_uconst: 32)\n <5><88f85>: Abbrev Number: 132 (DW_TAG_variable)\n <88f87> DW_AT_name : (string) r\n@@ -220458,15 +220458,15 @@\n <8a773> DW_AT_decl_column : (data1) 7\n <8a774> DW_AT_type : (ref_udata) <0x567dd>, gnatcoll__sql__inspect__field\n <8a776> DW_AT_ranges : (sec_offset) 0x32dc0\n <8a77a> DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n <8a77c> DW_AT_GNU_all_tail_call_sites: (flag_present) 1\n <8a77c> DW_AT_sibling : (ref_udata) <0x8aecc>\n <4><8a77f>: Abbrev Number: 16 (DW_TAG_formal_parameter)\n- <8a780> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <8a780> DW_AT_name : (strp) (offset: 0x9922a): descr\n <8a784> DW_AT_decl_file : (data1) 11\n <8a785> DW_AT_decl_line : (data2) 893\n <8a787> DW_AT_decl_column : (data1) 10\n <8a788> DW_AT_type : (ref_udata) <0x57547>, gnatcoll__sql__inspect__table_description\n <8a78a> DW_AT_location : (sec_offset) 0xb2da0 (location list)\n <8a78e> DW_AT_GNU_locviews: (sec_offset) 0xb2d9a\n <4><8a792>: Abbrev Number: 48 (DW_TAG_formal_parameter)\n@@ -221521,15 +221521,15 @@\n <8b2c5> DW_AT_type : (ref_addr) <0x575>, boolean\n <8b2c9> DW_AT_location : (sec_offset) 0xb40bc (location list)\n <8b2cd> DW_AT_GNU_locviews: (sec_offset) 0xb40a2\n <3><8b2d1>: Abbrev Number: 12 (DW_TAG_lexical_block)\n <8b2d2> DW_AT_ranges : (sec_offset) 0x36450\n <8b2d6> DW_AT_sibling : (ref_udata) <0x8bddd>\n <4><8b2d9>: Abbrev Number: 52 (DW_TAG_variable)\n- <8b2da> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <8b2da> DW_AT_name : (strp) (offset: 0x9922a): descr\n <8b2de> DW_AT_decl_file : (data1) 11\n <8b2df> DW_AT_decl_line : (data2) 833\n <8b2e1> DW_AT_decl_column : (data1) 10\n <8b2e2> DW_AT_type : (ref_udata) <0x5643b>, gnatcoll__sql__inspect__field_description\n <8b2e4> DW_AT_location : (exprloc) 5 byte block: 91 80 79 23 40 \t(DW_OP_fbreg: -896; DW_OP_plus_uconst: 64)\n <4><8b2ea>: Abbrev Number: 132 (DW_TAG_variable)\n <8b2ec> DW_AT_name : (string) ref\n@@ -228721,15 +228721,15 @@\n <9002d> DW_AT_decl_file : (data1) 4\n <9002e> DW_AT_decl_line : (data2) 290\n <90030> DW_AT_decl_column : (data1) 26\n <90031> DW_AT_type : (ref_udata) <0x57547>, gnatcoll__sql__inspect__table_description\n <90033> DW_AT_location : (sec_offset) 0xba648 (location list)\n <90037> DW_AT_GNU_locviews: (sec_offset) 0xba63c\n <2><9003b>: Abbrev Number: 57 (DW_TAG_variable)\n- <9003c> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <9003c> DW_AT_name : (strp) (offset: 0x9922a): descr\n <90040> DW_AT_decl_file : (data1) 11\n <90041> DW_AT_decl_line : (data2) 424\n <90043> DW_AT_decl_column : (data1) 7\n <90044> DW_AT_type : (ref_udata) <0x56435>, system__strings__string_access, string___XUP\n <90046> DW_AT_location : (sec_offset) 0xba6db (location list)\n <9004a> DW_AT_GNU_locviews: (sec_offset) 0xba6d3\n <2><9004e>: Abbrev Number: 11 (DW_TAG_inlined_subroutine)\n@@ -233310,15 +233310,15 @@\n <931f1> DW_AT_decl_file : (data1) 4\n <931f2> DW_AT_decl_line : (data1) 232\n <931f3> DW_AT_decl_column : (data1) 26\n <931f4> DW_AT_type : (ref_udata) <0x567d2>, gnatcoll__sql__inspect__field\n <931f6> DW_AT_location : (sec_offset) 0xbe54f (location list)\n <931fa> DW_AT_GNU_locviews: (sec_offset) 0xbe53f\n <2><931fe>: Abbrev Number: 118 (DW_TAG_variable)\n- <931ff> DW_AT_name : (strp) (offset: 0x991b2): descr\n+ <931ff> DW_AT_name : (strp) (offset: 0x9922a): descr\n <93203> DW_AT_decl_file : (data1) 11\n <93204> DW_AT_decl_line : (data1) 214\n <93205> DW_AT_decl_column : (data1) 7\n <93206> DW_AT_type : (ref_udata) <0x56435>, system__strings__string_access, string___XUP\n <93208> DW_AT_location : (sec_offset) 0xbe60b (location list)\n <9320c> DW_AT_GNU_locviews: (sec_offset) 0xbe603\n <2><93210>: Abbrev Number: 34 (DW_TAG_inlined_subroutine)\n@@ -234963,15 +234963,15 @@\n <9416c> DW_AT_decl_file : (data1) 30\n <9416d> DW_AT_decl_line : (data1) 83\n <9416e> DW_AT_decl_column : (data1) 7\n <9416f> DW_AT_type : (ref_udata) <0x57e98>, gnatcoll__sql__inspect__field_mapping\n <94171> DW_AT_location : (sec_offset) 0xbf557 (location list)\n <94175> DW_AT_GNU_locviews: (sec_offset) 0xbf527\n <2><94179>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- <9417a> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <9417a> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <9417e> DW_AT_decl_file : (data1) 30\n <9417f> DW_AT_decl_line : (data1) 84\n <94180> DW_AT_decl_column : (data1) 7\n <94181> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <94185> DW_AT_location : (sec_offset) 0xbf75e (location list)\n <94189> DW_AT_GNU_locviews: (sec_offset) 0xbf74a\n <2><9418d>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -235644,15 +235644,15 @@\n <948dd> DW_AT_decl_column : (data1) 4\n <948de> DW_AT_type : (ref_udata) <0x93ef2>, gnatcoll__sql__inspect__field_mapping_vectors__vectorXnn\n <948e1> DW_AT_ranges : (sec_offset) 0x1d7a0\n <948e5> DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n <948e7> DW_AT_GNU_all_tail_call_sites: (flag_present) 1\n <948e7> DW_AT_sibling : (ref_udata) <0x94aec>\n <2><948ea>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- <948eb> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <948eb> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <948ef> DW_AT_decl_file : (data1) 30\n <948f0> DW_AT_decl_line : (data1) 80\n <948f1> DW_AT_decl_column : (data1) 24\n <948f2> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <948f6> DW_AT_location : (sec_offset) 0xbfdd4 (location list)\n <948fa> DW_AT_GNU_locviews: (sec_offset) 0xbfdbc\n <2><948fe>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -236081,15 +236081,15 @@\n <94d8b> DW_AT_decl_file : (data1) 30\n <94d8c> DW_AT_decl_line : (data1) 103\n <94d8d> DW_AT_decl_column : (data1) 7\n <94d8e> DW_AT_type : (ref_udata) <0x93ef2>, gnatcoll__sql__inspect__field_mapping_vectors__vectorXnn\n <94d91> DW_AT_location : (sec_offset) 0xc0813 (location list)\n <94d95> DW_AT_GNU_locviews: (sec_offset) 0xc07fd\n <2><94d99>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- <94d9a> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <94d9a> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <94d9e> DW_AT_decl_file : (data1) 30\n <94d9f> DW_AT_decl_line : (data1) 104\n <94da0> DW_AT_decl_column : (data1) 7\n <94da1> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <94da5> DW_AT_location : (sec_offset) 0xc090f (location list)\n <94da9> DW_AT_GNU_locviews: (sec_offset) 0xc08fd\n <2><94dad>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -238894,15 +238894,15 @@\n <96a41> DW_AT_decl_file : (data1) 30\n <96a42> DW_AT_decl_line : (data2) 396\n <96a44> DW_AT_decl_column : (data1) 7\n <96a45> DW_AT_type : (ref_addr) <0x1cb4>, natural___XDLU_0__2147483647, integer\n <96a49> DW_AT_location : (sec_offset) 0xc2b4e (location list)\n <96a4d> DW_AT_GNU_locviews: (sec_offset) 0xc2b38\n <2><96a51>: Abbrev Number: 35 (DW_TAG_variable)\n- <96a52> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <96a52> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <96a56> DW_AT_decl_file : (data1) 3\n <96a57> DW_AT_decl_line : (data2) 2637\n <96a59> DW_AT_decl_column : (data1) 7\n <96a5a> DW_AT_type : (ref_addr) <0x320>, ada__containers__Tcount_typeB\n <96a5e> DW_AT_location : (sec_offset) 0xc2c44 (location list)\n <96a62> DW_AT_GNU_locviews: (sec_offset) 0xc2c3e\n <2><96a66>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -252704,15 +252704,15 @@\n <9f667> DW_AT_decl_file : (data1) 30\n <9f668> DW_AT_decl_line : (data1) 83\n <9f669> DW_AT_decl_column : (data1) 7\n <9f66a> DW_AT_type : (ref_udata) <0x55f4c>, string___XUP\n <9f66c> DW_AT_location : (sec_offset) 0xcf29e (location list)\n <9f670> DW_AT_GNU_locviews: (sec_offset) 0xcf294\n <2><9f674>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- <9f675> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <9f675> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <9f679> DW_AT_decl_file : (data1) 30\n <9f67a> DW_AT_decl_line : (data1) 84\n <9f67b> DW_AT_decl_column : (data1) 7\n <9f67c> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <9f680> DW_AT_location : (sec_offset) 0xcf33a (location list)\n <9f684> DW_AT_GNU_locviews: (sec_offset) 0xcf326\n <2><9f688>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -253039,15 +253039,15 @@\n <9fa29> DW_AT_decl_column : (data1) 4\n <9fa2a> DW_AT_type : (ref_udata) <0x9f3ed>, gnatcoll__sql__inspect__tables_lists__vector\n <9fa2d> DW_AT_ranges : (sec_offset) 0x1dd80\n <9fa31> DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n <9fa33> DW_AT_GNU_all_tail_call_sites: (flag_present) 1\n <9fa33> DW_AT_sibling : (ref_udata) <0x9fc32>\n <2><9fa36>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- <9fa37> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <9fa37> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <9fa3b> DW_AT_decl_file : (data1) 30\n <9fa3c> DW_AT_decl_line : (data1) 80\n <9fa3d> DW_AT_decl_column : (data1) 24\n <9fa3e> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <9fa42> DW_AT_location : (sec_offset) 0xcf706 (location list)\n <9fa46> DW_AT_GNU_locviews: (sec_offset) 0xcf6f2\n <2><9fa4a>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -253476,15 +253476,15 @@\n <9fed1> DW_AT_decl_file : (data1) 30\n <9fed2> DW_AT_decl_line : (data1) 103\n <9fed3> DW_AT_decl_column : (data1) 7\n <9fed4> DW_AT_type : (ref_udata) <0x9f3ed>, gnatcoll__sql__inspect__tables_lists__vector\n <9fed7> DW_AT_location : (sec_offset) 0xd00bf (location list)\n <9fedb> DW_AT_GNU_locviews: (sec_offset) 0xd00a9\n <2><9fedf>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- <9fee0> DW_AT_name : (strp) (offset: 0xa0f86): length\n+ <9fee0> DW_AT_name : (strp) (offset: 0xa0fbd): length\n <9fee4> DW_AT_decl_file : (data1) 30\n <9fee5> DW_AT_decl_line : (data1) 104\n <9fee6> DW_AT_decl_column : (data1) 7\n <9fee7> DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n <9feeb> DW_AT_location : (sec_offset) 0xd01bb (location list)\n <9feef> DW_AT_GNU_locviews: (sec_offset) 0xd01a9\n <2><9fef3>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -255527,15 +255527,15 @@\n DW_AT_decl_file : (data1) 30\n DW_AT_decl_line : (data2) 396\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x1cb4>, natural___XDLU_0__2147483647, integer\n DW_AT_location : (sec_offset) 0xd1405 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xd13ef\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 3\n DW_AT_decl_line : (data2) 2637\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x320>, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xd1505 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xd14f5\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -277686,15 +277686,15 @@\n DW_AT_decl_file : (data1) 30\n DW_AT_decl_line : (data1) 83\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_udata) <0x55f4c>, string___XUP\n DW_AT_location : (sec_offset) 0xe55fa (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe55f0\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 30\n DW_AT_decl_line : (data1) 84\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xe5696 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe5682\n <2>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -278021,15 +278021,15 @@\n DW_AT_decl_column : (data1) 4\n DW_AT_type : (ref_udata) <0xaebff>, gnatcoll__sql__inspect__string_lists__vector\n DW_AT_ranges : (sec_offset) 0x1dd00\n DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n DW_AT_GNU_all_tail_call_sites: (flag_present) 1\n DW_AT_sibling : (ref_udata) <0xaf444>\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 30\n DW_AT_decl_line : (data1) 80\n DW_AT_decl_column : (data1) 24\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xe5a62 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe5a4e\n <2>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -278458,15 +278458,15 @@\n DW_AT_decl_file : (data1) 30\n DW_AT_decl_line : (data1) 103\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_udata) <0xaebff>, gnatcoll__sql__inspect__string_lists__vector\n DW_AT_location : (sec_offset) 0xe641b (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe6405\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 30\n DW_AT_decl_line : (data1) 104\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xe6517 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe6505\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -280509,15 +280509,15 @@\n DW_AT_decl_file : (data1) 30\n DW_AT_decl_line : (data2) 396\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x1cb4>, natural___XDLU_0__2147483647, integer\n DW_AT_location : (sec_offset) 0xe7761 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe774b\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 3\n DW_AT_decl_line : (data2) 2637\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x320>, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xe7861 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xe7851\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -289616,15 +289616,15 @@\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 130\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_udata) <0x56f20>, gnatcoll__sql__inspect__foreign_key\n DW_AT_location : (sec_offset) 0xf0cc8 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xf0ca8\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 131\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xf0e30 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xf0e1a\n <2>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -290001,15 +290001,15 @@\n DW_AT_decl_column : (data1) 4\n DW_AT_type : (ref_udata) <0xb666c>, gnatcoll__sql__inspect__foreign_keys__vector\n DW_AT_ranges : (sec_offset) 0x34930\n DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n DW_AT_GNU_all_tail_call_sites: (flag_present) 1\n DW_AT_sibling : (ref_udata) <0xb6f4d>\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 126\n DW_AT_decl_column : (data1) 24\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xf13d7 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xf13c3\n <2>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -290768,15 +290768,15 @@\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 169\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_udata) <0xb666c>, gnatcoll__sql__inspect__foreign_keys__vector\n DW_AT_location : (sec_offset) 0xf2203 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xf21ed\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 170\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xf22ff (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xf22ed\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -293804,15 +293804,15 @@\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data2) 709\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x1cb4>, natural___XDLU_0__2147483647, integer\n DW_AT_location : (sec_offset) 0xf4711 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xf46ff\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 2\n DW_AT_decl_line : (data2) 2338\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x320>, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0xf47db (location list)\n DW_AT_GNU_locviews: (sec_offset) 0xf47d5\n <2>: Abbrev Number: 35 (DW_TAG_variable)\n@@ -305668,15 +305668,15 @@\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 130\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_udata) <0x56b22>, gnatcoll__sql__inspect__field_pair\n DW_AT_location : (sec_offset) 0x100f48 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0x100f2a\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 131\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0x1010a6 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0x101090\n <2>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -305885,15 +305885,15 @@\n DW_AT_decl_column : (data1) 4\n DW_AT_type : (ref_udata) <0xc0bfd>, gnatcoll__sql__inspect__pair_lists__vector\n DW_AT_ranges : (sec_offset) 0x328e0\n DW_AT_frame_base : (exprloc) 1 byte block: 9c \t(DW_OP_call_frame_cfa)\n DW_AT_GNU_all_tail_call_sites: (flag_present) 1\n DW_AT_sibling : (ref_udata) <0xc1321>\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 126\n DW_AT_decl_column : (data1) 24\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n DW_AT_location : (sec_offset) 0x1012e1 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0x1012cd\n <2>: Abbrev Number: 12 (DW_TAG_lexical_block)\n@@ -306636,15 +306636,15 @@\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 169\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_udata) <0xc0bfd>, gnatcoll__sql__inspect__pair_lists__vector\n DW_AT_location : (sec_offset) 0x101f24 (location list)\n DW_AT_GNU_locviews: (sec_offset) 0x101f0e\n <2>: Abbrev Number: 74 (DW_TAG_formal_parameter)\n- DW_AT_name : (strp) (offset: 0xa0f86): length\n+ DW_AT_name : (strp) (offset: 0xa0fbd): length\n DW_AT_decl_file : (data1) 33\n DW_AT_decl_line : (data1) 170\n DW_AT_decl_column : (data1) 7\n DW_AT_type : (ref_addr) <0x655>, ada__containers__count_type___XDLU_0__2147483647, ada__containers__Tcount_typeB\n