From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.36.83.132 with SMTP id n126mr414860itb.11.1512112419094; Thu, 30 Nov 2017 23:13:39 -0800 (PST) X-Received: by 10.157.85.67 with SMTP id h3mr246813oti.10.1512112418977; Thu, 30 Nov 2017 23:13:38 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.kjsl.com!usenet.stanford.edu!193no425100itr.0!news-out.google.com!x87ni506ita.0!nntp.google.com!i6no430554itb.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Thu, 30 Nov 2017 23:13:38 -0800 (PST) Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=178.121.15.8; posting-account=0_d8hgkAAACpDgvmgtX4IJ__4N6Cx4Rv NNTP-Posting-Host: 178.121.15.8 User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Again CONSTRAINT_ERROR From: Distant Worlds Injection-Date: Fri, 01 Dec 2017 07:13:39 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Xref: reader02.eternal-september.org comp.lang.ada:49292 Date: 2017-11-30T23:13:38-08:00 List-Id: =D0=A1ode from example:=20 with gnatcoll.SQL.Postgres; =20 with gnatcoll.SQL.Exec; =20 with Ada.Text_IO; =20 =20 procedure Main is DB_Descr : GNATCOLL.SQL.Exec.Database_Description; DB : GNATCOLL.SQL.Exec.Database_Connection; IsOpen : Boolean; begin DB_Descr :=3D GNATCOLL.SQL.Postgres.Setup(Database =3D> "postgres", User =3D> "postgres", Host =3D> "localhost", Password =3D> "12345678", Port =3D> 5432 ); DB :=3D DB_Descr.Build_Connection; =20 IsOpen :=3D DB.Check_Connection; if IsOpen then Ada.Text_IO.Put_Line("Connection is open."); else Ada.Text_IO.Put_Line("Last Db error =3D " & DB.Error); end if; =20 -- reset state of connection for reuse GNATCOLL.SQL.Exec.Reset_Connection(DB); =20 GNATCOLL.SQL.Exec.Free (DB); GNATCOLL.SQL.Exec.Free (DB_Descr); =20 end Main; It is compiled! At runtime: raised CONSTRAINT_ERROR : main.adb:16 access check failed What's wrong here? Thanks! P.S. Linux x64(Centos 7) GNAT GPS 2017