[fpc-pascal] "Invalid field size" when using UIB with fpc 2.3.1

[Lukas Gradl]

Hi!

Just had to upgrade to fpc 2.3.1 for some reason.
But using fpc 2.3.1 UIB produces an "Invalid field size" error when 
trying to open a UIBDataset.

The same program works when using fpc 2.2.3.

For demonstrating the problem I created the following program:

When trying to open an UIBDataset I get an error: "EDatabaseError : 
Invalid field size : 4828"
Failes with: FPC 2.3.1 svn, UIB latest svn, Firebird 2.0, OS Ubuntu 8.04
Works with: FPC 2.2.3, UIB latest svn, Firebird 2.0, OS Ubuntu 8.04



program Project1;

{$mode Delphi}{$H+}

uses
   Classes, SysUtils, UIB, UIBLib, UIBDataset;

var IDB: TUIBDataBase;
     ITrans: TUIBTransaction;
     IQuery: TUIBDataSet;

begin
   IDB:=TUIBDataBase.Create(nil);
   ITrans:=TUIBTransaction.Create(nil);
   IQuery:=TUIBDataSet.Create(nil);
   IDB.DatabaseName:='DB.fdb';
   IDB.CharacterSet:=csISO8859_1;
   IDB.LibraryName:='libfbclient.so';
   IDB.UserName:='User';
   IDB.PassWord:='Pass';
   ITrans.DataBase:=IDB;
   ITrans.AutoStart:=false;
   ITrans.AutoStop:=false;
   IDB.Connected:=True;
   ITrans.StartTransaction;
   IQuery.DataBase:=IDB;
   IQuery.Transaction:=ITrans;
   IQuery.SQL.Text:='SELECT "DocID" FROM "Docs";';
   try
     IQuery.Open;
   finally
     if IQuery.Active then IQuery.Close;
     if ITrans.InTransaction then ITrans.RollBack;
     IDB.Connected:=False;
   end;
end.

Database-DDL:


CREATE DOMAIN "dm_Key" AS Integer
  DEFAULT 0
  NOT NULL
  CHECK (VALUE>=0)
;
CREATE DOMAIN "dm_TypID" AS Smallint
  DEFAULT 0
  NOT NULL
;

CREATE TABLE "Docs"(
   "DocID" "dm_Key" DEFAULT 0,
   "DocType" "dm_TypID" DEFAULT 0,
   PRIMARY KEY ("DocID")
);


anyone an idea how to proceed? Is this a bug somewhere? In UIB? In fpc? 
In my code?

Regards
Lukas

-- 

--------------------------
software security networks
Lukas Gradl <fpc#ssn.at>
Eduard-Bodem-Gasse 9
A - 6020 Innsbruck
Tel: +43-512-214040-0
Fax: +43-512-214040-21
--------------------------