10.06.2020 14:03, Pavel Cisar wrote:
Hi,

The Firebird.pas file generated by cloop contained wrong interface VERSIONs. While this issue was fixed in interface definitions (by Alex if I'm not mistaken), interface implementations still contains obviously wrong version numbers.

Example from Firebird 4 Beta 2 Firebird.pas file:

IXpbBuilderImpl_vTable := XpbBuilderVTable.create;
IXpbBuilderImpl_vTable.version := 21;
IXpbBuilderImpl_vTable.dispose := @IXpbBuilderImpl_disposeDispatcher;

  It was me and I missed second set of version's constants in implementation 
part.

I see two ways to fix it:

a) use correct version numbers

        IXpbBuilderImpl_vTable.version := 3;

or
b) use already defined constats from interface

        IXpbBuilderImpl_vTable.version := IXpbBuilder.VERSION;

I prefer (b) but not sure if this is correct syntax and have no Pascal compiler
at hands to check by myself.


Regards,
Vlad


Firebird-Devel mailing list, web interface at 
https://lists.sourceforge.net/lists/listinfo/firebird-devel

Reply via email to