"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "src/include/gen/Firebird.pas" between
Firebird-3.0.2.32703-0.tar.bz2 and Firebird-3.0.4.33054-0.tar.bz2

About: Firebird is a relational database offering many ANSI SQL standard features.

Firebird.pas  (Firebird-3.0.2.32703-0.tar.bz2)	:	Firebird.pas  (Firebird-3.0.4.33054-0.tar.bz2)
{ This file was autogenerated by cloop - Cross Language Object Oriented Programm ing }		{ This file was autogenerated by cloop - Cross Language Object Oriented Programm ing }
		{$IFDEF FPC}
		{$MODE DELPHI}
		{$OBJECTCHECKS OFF}
		{$ENDIF}
unit Firebird;		unit Firebird;
interface		interface
uses Classes, SysUtils;		uses Classes, SysUtils;
type		type
{$IFNDEF FPC}		{$IFNDEF FPC}
QWord = UInt64;		QWord = UInt64;
{$ENDIF}		{$ENDIF}
skipping to change at line 196		skipping to change at line 201
IFirebirdConf_getKeyPtr = function(this: IFirebirdConf; name: PAnsiChar): Cardinal; cdecl;		IFirebirdConf_getKeyPtr = function(this: IFirebirdConf; name: PAnsiChar): Cardinal; cdecl;
IFirebirdConf_asIntegerPtr = function(this: IFirebirdConf; key: Cardinal) : Int64; cdecl;		IFirebirdConf_asIntegerPtr = function(this: IFirebirdConf; key: Cardinal) : Int64; cdecl;
IFirebirdConf_asStringPtr = function(this: IFirebirdConf; key: Cardinal): PAnsiChar; cdecl;		IFirebirdConf_asStringPtr = function(this: IFirebirdConf; key: Cardinal): PAnsiChar; cdecl;
IFirebirdConf_asBooleanPtr = function(this: IFirebirdConf; key: Cardinal) : Boolean; cdecl;		IFirebirdConf_asBooleanPtr = function(this: IFirebirdConf; key: Cardinal) : Boolean; cdecl;
IPluginConfig_getConfigFileNamePtr = function(this: IPluginConfig): PAnsi Char; cdecl;		IPluginConfig_getConfigFileNamePtr = function(this: IPluginConfig): PAnsi Char; cdecl;
IPluginConfig_getDefaultConfigPtr = function(this: IPluginConfig; status: IStatus): IConfig; cdecl;		IPluginConfig_getDefaultConfigPtr = function(this: IPluginConfig; status: IStatus): IConfig; cdecl;
IPluginConfig_getFirebirdConfPtr = function(this: IPluginConfig; status: IStatus): IFirebirdConf; cdecl;		IPluginConfig_getFirebirdConfPtr = function(this: IPluginConfig; status: IStatus): IFirebirdConf; cdecl;
IPluginConfig_setReleaseDelayPtr = procedure(this: IPluginConfig; status: IStatus; microSeconds: QWord); cdecl;		IPluginConfig_setReleaseDelayPtr = procedure(this: IPluginConfig; status: IStatus; microSeconds: QWord); cdecl;
IPluginFactory_createPluginPtr = function(this: IPluginFactory; status: I Status; factoryParameter: IPluginConfig): IPluginBase; cdecl;		IPluginFactory_createPluginPtr = function(this: IPluginFactory; status: I Status; factoryParameter: IPluginConfig): IPluginBase; cdecl;
IPluginModule_doCleanPtr = procedure(this: IPluginModule); cdecl;		IPluginModule_doCleanPtr = procedure(this: IPluginModule); cdecl;
		IPluginModule_threadDetachPtr = procedure(this: IPluginModule); cdecl;
IPluginManager_registerPluginFactoryPtr = procedure(this: IPluginManager; pluginType: Cardinal; defaultName: PAnsiChar; factory: IPluginFactory); cdecl;		IPluginManager_registerPluginFactoryPtr = procedure(this: IPluginManager; pluginType: Cardinal; defaultName: PAnsiChar; factory: IPluginFactory); cdecl;
IPluginManager_registerModulePtr = procedure(this: IPluginManager; cleanu p: IPluginModule); cdecl;		IPluginManager_registerModulePtr = procedure(this: IPluginManager; cleanu p: IPluginModule); cdecl;
IPluginManager_unregisterModulePtr = procedure(this: IPluginManager; clea nup: IPluginModule); cdecl;		IPluginManager_unregisterModulePtr = procedure(this: IPluginManager; clea nup: IPluginModule); cdecl;
IPluginManager_getPluginsPtr = function(this: IPluginManager; status: ISt atus; pluginType: Cardinal; namesList: PAnsiChar; firebirdConf: IFirebirdConf): IPluginSet; cdecl;		IPluginManager_getPluginsPtr = function(this: IPluginManager; status: ISt atus; pluginType: Cardinal; namesList: PAnsiChar; firebirdConf: IFirebirdConf): IPluginSet; cdecl;
IPluginManager_getConfigPtr = function(this: IPluginManager; status: ISta tus; filename: PAnsiChar): IConfig; cdecl;		IPluginManager_getConfigPtr = function(this: IPluginManager; status: ISta tus; filename: PAnsiChar): IConfig; cdecl;
IPluginManager_releasePluginPtr = procedure(this: IPluginManager; plugin: IPluginBase); cdecl;		IPluginManager_releasePluginPtr = procedure(this: IPluginManager; plugin: IPluginBase); cdecl;
ICryptKey_setSymmetricPtr = procedure(this: ICryptKey; status: IStatus; t ype_: PAnsiChar; keyLength: Cardinal; key: Pointer); cdecl;		ICryptKey_setSymmetricPtr = procedure(this: ICryptKey; status: IStatus; t ype_: PAnsiChar; keyLength: Cardinal; key: Pointer); cdecl;
ICryptKey_setAsymmetricPtr = procedure(this: ICryptKey; status: IStatus; type_: PAnsiChar; encryptKeyLength: Cardinal; encryptKey: Pointer; decryptKeyLen gth: Cardinal; decryptKey: Pointer); cdecl;		ICryptKey_setAsymmetricPtr = procedure(this: ICryptKey; status: IStatus; type_: PAnsiChar; encryptKeyLength: Cardinal; encryptKey: Pointer; decryptKeyLen gth: Cardinal; decryptKey: Pointer); cdecl;
ICryptKey_getEncryptKeyPtr = function(this: ICryptKey; length: CardinalPt r): Pointer; cdecl;		ICryptKey_getEncryptKeyPtr = function(this: ICryptKey; length: CardinalPt r): Pointer; cdecl;
ICryptKey_getDecryptKeyPtr = function(this: ICryptKey; length: CardinalPt r): Pointer; cdecl;		ICryptKey_getDecryptKeyPtr = function(this: ICryptKey; length: CardinalPt r): Pointer; cdecl;
skipping to change at line 461		skipping to change at line 467
ITraceConnection_getRemoteProcessNamePtr = function(this: ITraceConnectio n): PAnsiChar; cdecl;		ITraceConnection_getRemoteProcessNamePtr = function(this: ITraceConnectio n): PAnsiChar; cdecl;
ITraceDatabaseConnection_getConnectionIDPtr = function(this: ITraceDataba seConnection): Int64; cdecl;		ITraceDatabaseConnection_getConnectionIDPtr = function(this: ITraceDataba seConnection): Int64; cdecl;
ITraceDatabaseConnection_getDatabaseNamePtr = function(this: ITraceDataba seConnection): PAnsiChar; cdecl;		ITraceDatabaseConnection_getDatabaseNamePtr = function(this: ITraceDataba seConnection): PAnsiChar; cdecl;
ITraceTransaction_getTransactionIDPtr = function(this: ITraceTransaction) : Int64; cdecl;		ITraceTransaction_getTransactionIDPtr = function(this: ITraceTransaction) : Int64; cdecl;
ITraceTransaction_getReadOnlyPtr = function(this: ITraceTransaction): Boo lean; cdecl;		ITraceTransaction_getReadOnlyPtr = function(this: ITraceTransaction): Boo lean; cdecl;
ITraceTransaction_getWaitPtr = function(this: ITraceTransaction): Integer ; cdecl;		ITraceTransaction_getWaitPtr = function(this: ITraceTransaction): Integer ; cdecl;
ITraceTransaction_getIsolationPtr = function(this: ITraceTransaction): Ca rdinal; cdecl;		ITraceTransaction_getIsolationPtr = function(this: ITraceTransaction): Ca rdinal; cdecl;
ITraceTransaction_getPerfPtr = function(this: ITraceTransaction): Perform anceInfoPtr; cdecl;		ITraceTransaction_getPerfPtr = function(this: ITraceTransaction): Perform anceInfoPtr; cdecl;
ITraceParams_getCountPtr = function(this: ITraceParams): Cardinal; cdecl;		ITraceParams_getCountPtr = function(this: ITraceParams): Cardinal; cdecl;
ITraceParams_getParamPtr = function(this: ITraceParams; idx: Cardinal): d scPtr; cdecl;		ITraceParams_getParamPtr = function(this: ITraceParams; idx: Cardinal): d scPtr; cdecl;
		ITraceParams_getTextUTF8Ptr = function(this: ITraceParams; status: IStatu s; idx: Cardinal): PAnsiChar; cdecl;
ITraceStatement_getStmtIDPtr = function(this: ITraceStatement): Int64; cd ecl;		ITraceStatement_getStmtIDPtr = function(this: ITraceStatement): Int64; cd ecl;
ITraceStatement_getPerfPtr = function(this: ITraceStatement): Performance InfoPtr; cdecl;		ITraceStatement_getPerfPtr = function(this: ITraceStatement): Performance InfoPtr; cdecl;
ITraceSQLStatement_getTextPtr = function(this: ITraceSQLStatement): PAnsi Char; cdecl;		ITraceSQLStatement_getTextPtr = function(this: ITraceSQLStatement): PAnsi Char; cdecl;
ITraceSQLStatement_getPlanPtr = function(this: ITraceSQLStatement): PAnsi Char; cdecl;		ITraceSQLStatement_getPlanPtr = function(this: ITraceSQLStatement): PAnsi Char; cdecl;
ITraceSQLStatement_getInputsPtr = function(this: ITraceSQLStatement): ITr aceParams; cdecl;		ITraceSQLStatement_getInputsPtr = function(this: ITraceSQLStatement): ITr aceParams; cdecl;
ITraceSQLStatement_getTextUTF8Ptr = function(this: ITraceSQLStatement): P AnsiChar; cdecl;		ITraceSQLStatement_getTextUTF8Ptr = function(this: ITraceSQLStatement): P AnsiChar; cdecl;
ITraceSQLStatement_getExplainedPlanPtr = function(this: ITraceSQLStatemen t): PAnsiChar; cdecl;		ITraceSQLStatement_getExplainedPlanPtr = function(this: ITraceSQLStatemen t): PAnsiChar; cdecl;
ITraceBLRStatement_getDataPtr = function(this: ITraceBLRStatement): ByteP tr; cdecl;		ITraceBLRStatement_getDataPtr = function(this: ITraceBLRStatement): ByteP tr; cdecl;
ITraceBLRStatement_getDataLengthPtr = function(this: ITraceBLRStatement): Cardinal; cdecl;		ITraceBLRStatement_getDataLengthPtr = function(this: ITraceBLRStatement): Cardinal; cdecl;
ITraceBLRStatement_getTextPtr = function(this: ITraceBLRStatement): PAnsi Char; cdecl;		ITraceBLRStatement_getTextPtr = function(this: ITraceBLRStatement): PAnsi Char; cdecl;
skipping to change at line 867		skipping to change at line 874
end;		end;
IPluginFactoryImpl = class(IPluginFactory)		IPluginFactoryImpl = class(IPluginFactory)
constructor create;		constructor create;
function createPlugin(status: IStatus; factoryParameter: IPluginC onfig): IPluginBase; virtual; abstract;		function createPlugin(status: IStatus; factoryParameter: IPluginC onfig): IPluginBase; virtual; abstract;
end;		end;
PluginModuleVTable = class(VersionedVTable)		PluginModuleVTable = class(VersionedVTable)
doClean: IPluginModule_doCleanPtr;		doClean: IPluginModule_doCleanPtr;
		threadDetach: IPluginModule_threadDetachPtr;
end;		end;
IPluginModule = class(IVersioned)		IPluginModule = class(IVersioned)
const VERSION = 1;		const VERSION = 2;
procedure doClean();		procedure doClean();
		procedure threadDetach();
end;		end;
IPluginModuleImpl = class(IPluginModule)		IPluginModuleImpl = class(IPluginModule)
constructor create;		constructor create;
procedure doClean(); virtual; abstract;		procedure doClean(); virtual; abstract;
		procedure threadDetach(); virtual; abstract;
end;		end;
PluginManagerVTable = class(VersionedVTable)		PluginManagerVTable = class(VersionedVTable)
registerPluginFactory: IPluginManager_registerPluginFactoryPtr;		registerPluginFactory: IPluginManager_registerPluginFactoryPtr;
registerModule: IPluginManager_registerModulePtr;		registerModule: IPluginManager_registerModulePtr;
unregisterModule: IPluginManager_unregisterModulePtr;		unregisterModule: IPluginManager_unregisterModulePtr;
getPlugins: IPluginManager_getPluginsPtr;		getPlugins: IPluginManager_getPluginsPtr;
getConfig: IPluginManager_getConfigPtr;		getConfig: IPluginManager_getConfigPtr;
releasePlugin: IPluginManager_releasePluginPtr;		releasePlugin: IPluginManager_releasePluginPtr;
end;		end;
skipping to change at line 2495		skipping to change at line 2505
function getTransactionID(): Int64; virtual; abstract;		function getTransactionID(): Int64; virtual; abstract;
function getReadOnly(): Boolean; virtual; abstract;		function getReadOnly(): Boolean; virtual; abstract;
function getWait(): Integer; virtual; abstract;		function getWait(): Integer; virtual; abstract;
function getIsolation(): Cardinal; virtual; abstract;		function getIsolation(): Cardinal; virtual; abstract;
function getPerf(): PerformanceInfoPtr; virtual; abstract;		function getPerf(): PerformanceInfoPtr; virtual; abstract;
end;		end;
TraceParamsVTable = class(VersionedVTable)		TraceParamsVTable = class(VersionedVTable)
getCount: ITraceParams_getCountPtr;		getCount: ITraceParams_getCountPtr;
getParam: ITraceParams_getParamPtr;		getParam: ITraceParams_getParamPtr;
		getTextUTF8: ITraceParams_getTextUTF8Ptr;
end;		end;
ITraceParams = class(IVersioned)		ITraceParams = class(IVersioned)
const VERSION = 2;		const VERSION = 3;
function getCount(): Cardinal;		function getCount(): Cardinal;
function getParam(idx: Cardinal): dscPtr;		function getParam(idx: Cardinal): dscPtr;
		function getTextUTF8(status: IStatus; idx: Cardinal): PAnsiChar;
end;		end;
ITraceParamsImpl = class(ITraceParams)		ITraceParamsImpl = class(ITraceParams)
constructor create;		constructor create;
function getCount(): Cardinal; virtual; abstract;		function getCount(): Cardinal; virtual; abstract;
function getParam(idx: Cardinal): dscPtr; virtual; abstract;		function getParam(idx: Cardinal): dscPtr; virtual; abstract;
		function getTextUTF8(status: IStatus; idx: Cardinal): PAnsiChar; virtual; abstract;
end;		end;
TraceStatementVTable = class(VersionedVTable)		TraceStatementVTable = class(VersionedVTable)
getStmtID: ITraceStatement_getStmtIDPtr;		getStmtID: ITraceStatement_getStmtIDPtr;
getPerf: ITraceStatement_getPerfPtr;		getPerf: ITraceStatement_getPerfPtr;
end;		end;
ITraceStatement = class(IVersioned)		ITraceStatement = class(IVersioned)
const VERSION = 2;		const VERSION = 2;
skipping to change at line 3154		skipping to change at line 3167
isc_dpb_specific_auth_data = byte(84);		isc_dpb_specific_auth_data = byte(84);
isc_dpb_auth_plugin_list = byte(85);		isc_dpb_auth_plugin_list = byte(85);
isc_dpb_auth_plugin_name = byte(86);		isc_dpb_auth_plugin_name = byte(86);
isc_dpb_config = byte(87);		isc_dpb_config = byte(87);
isc_dpb_nolinger = byte(88);		isc_dpb_nolinger = byte(88);
isc_dpb_reset_icu = byte(89);		isc_dpb_reset_icu = byte(89);
isc_dpb_map_attach = byte(90);		isc_dpb_map_attach = byte(90);
isc_dpb_address = byte(1);		isc_dpb_address = byte(1);
isc_dpb_addr_protocol = byte(1);		isc_dpb_addr_protocol = byte(1);
isc_dpb_addr_endpoint = byte(2);		isc_dpb_addr_endpoint = byte(2);
		isc_dpb_addr_flags = byte(3);
		isc_dpb_addr_flag_conn_compressed = $01;
		isc_dpb_addr_flag_conn_encrypted = $02;
isc_dpb_pages = byte(1);		isc_dpb_pages = byte(1);
isc_dpb_records = byte(2);		isc_dpb_records = byte(2);
isc_dpb_indices = byte(4);		isc_dpb_indices = byte(4);
isc_dpb_transactions = byte(8);		isc_dpb_transactions = byte(8);
isc_dpb_no_update = byte(16);		isc_dpb_no_update = byte(16);
isc_dpb_repair = byte(32);		isc_dpb_repair = byte(32);
isc_dpb_ignore = byte(64);		isc_dpb_ignore = byte(64);
isc_dpb_shut_cache = $1;		isc_dpb_shut_cache = $1;
isc_dpb_shut_attachment = $2;		isc_dpb_shut_attachment = $2;
isc_dpb_shut_transaction = $4;		isc_dpb_shut_transaction = $4;
skipping to change at line 4983		skipping to change at line 4999
begin		begin
Result := PluginFactoryVTable(vTable).createPlugin(Self, status, factoryP arameter);		Result := PluginFactoryVTable(vTable).createPlugin(Self, status, factoryP arameter);
FbException.checkException(status);		FbException.checkException(status);
end;		end;
procedure IPluginModule.doClean();		procedure IPluginModule.doClean();
begin		begin
PluginModuleVTable(vTable).doClean(Self);		PluginModuleVTable(vTable).doClean(Self);
end;		end;
		procedure IPluginModule.threadDetach();
		begin
		PluginModuleVTable(vTable).threadDetach(Self);
		end;
procedure IPluginManager.registerPluginFactory(pluginType: Cardinal; defaultName : PAnsiChar; factory: IPluginFactory);		procedure IPluginManager.registerPluginFactory(pluginType: Cardinal; defaultName : PAnsiChar; factory: IPluginFactory);
begin		begin
PluginManagerVTable(vTable).registerPluginFactory(Self, pluginType, defau ltName, factory);		PluginManagerVTable(vTable).registerPluginFactory(Self, pluginType, defau ltName, factory);
end;		end;
procedure IPluginManager.registerModule(cleanup: IPluginModule);		procedure IPluginManager.registerModule(cleanup: IPluginModule);
begin		begin
PluginManagerVTable(vTable).registerModule(Self, cleanup);		PluginManagerVTable(vTable).registerModule(Self, cleanup);
end;		end;
skipping to change at line 6502		skipping to change at line 6523
function ITraceParams.getCount(): Cardinal;		function ITraceParams.getCount(): Cardinal;
begin		begin
Result := TraceParamsVTable(vTable).getCount(Self);		Result := TraceParamsVTable(vTable).getCount(Self);
end;		end;
function ITraceParams.getParam(idx: Cardinal): dscPtr;		function ITraceParams.getParam(idx: Cardinal): dscPtr;
begin		begin
Result := TraceParamsVTable(vTable).getParam(Self, idx);		Result := TraceParamsVTable(vTable).getParam(Self, idx);
end;		end;
		function ITraceParams.getTextUTF8(status: IStatus; idx: Cardinal): PAnsiChar;
		begin
		Result := TraceParamsVTable(vTable).getTextUTF8(Self, status, idx);
		FbException.checkException(status);
		end;
function ITraceStatement.getStmtID(): Int64;		function ITraceStatement.getStmtID(): Int64;
begin		begin
Result := TraceStatementVTable(vTable).getStmtID(Self);		Result := TraceStatementVTable(vTable).getStmtID(Self);
end;		end;
function ITraceStatement.getPerf(): PerformanceInfoPtr;		function ITraceStatement.getPerf(): PerformanceInfoPtr;
begin		begin
Result := TraceStatementVTable(vTable).getPerf(Self);		Result := TraceStatementVTable(vTable).getPerf(Self);
end;		end;
skipping to change at line 7571		skipping to change at line 7598
procedure IPluginModuleImpl_doCleanDispatcher(this: IPluginModule); cdecl;		procedure IPluginModuleImpl_doCleanDispatcher(this: IPluginModule); cdecl;
begin		begin
try		try
IPluginModuleImpl(this).doClean();		IPluginModuleImpl(this).doClean();
except		except
on e: Exception do FbException.catchException(nil, e);		on e: Exception do FbException.catchException(nil, e);
end		end
end;		end;
		procedure IPluginModuleImpl_threadDetachDispatcher(this: IPluginModule); cdecl;
		begin
		try
		IPluginModuleImpl(this).threadDetach();
		except
		on e: Exception do FbException.catchException(nil, e);
		end
		end;
var		var
IPluginModuleImpl_vTable: PluginModuleVTable;		IPluginModuleImpl_vTable: PluginModuleVTable;
constructor IPluginModuleImpl.create;		constructor IPluginModuleImpl.create;
begin		begin
vTable := IPluginModuleImpl_vTable;		vTable := IPluginModuleImpl_vTable;
end;		end;
procedure IPluginManagerImpl_registerPluginFactoryDispatcher(this: IPluginManage r; pluginType: Cardinal; defaultName: PAnsiChar; factory: IPluginFactory); cdecl ;		procedure IPluginManagerImpl_registerPluginFactoryDispatcher(this: IPluginManage r; pluginType: Cardinal; defaultName: PAnsiChar; factory: IPluginFactory); cdecl ;
begin		begin
skipping to change at line 11137		skipping to change at line 11173
function ITraceParamsImpl_getParamDispatcher(this: ITraceParams; idx: Cardinal): dscPtr; cdecl;		function ITraceParamsImpl_getParamDispatcher(this: ITraceParams; idx: Cardinal): dscPtr; cdecl;
begin		begin
try		try
Result := ITraceParamsImpl(this).getParam(idx);		Result := ITraceParamsImpl(this).getParam(idx);
except		except
on e: Exception do FbException.catchException(nil, e);		on e: Exception do FbException.catchException(nil, e);
end		end
end;		end;
		function ITraceParamsImpl_getTextUTF8Dispatcher(this: ITraceParams; status: ISta
		tus; idx: Cardinal): PAnsiChar; cdecl;
		begin
		try
		Result := ITraceParamsImpl(this).getTextUTF8(status, idx);
		except
		on e: Exception do FbException.catchException(status, e);
		end
		end;
var		var
ITraceParamsImpl_vTable: TraceParamsVTable;		ITraceParamsImpl_vTable: TraceParamsVTable;
constructor ITraceParamsImpl.create;		constructor ITraceParamsImpl.create;
begin		begin
vTable := ITraceParamsImpl_vTable;		vTable := ITraceParamsImpl_vTable;
end;		end;
function ITraceStatementImpl_getStmtIDDispatcher(this: ITraceStatement): Int64; cdecl;		function ITraceStatementImpl_getStmtIDDispatcher(this: ITraceStatement): Int64; cdecl;
begin		begin
skipping to change at line 12384		skipping to change at line 12429
IPluginConfigImpl_vTable.getConfigFileName := @IPluginConfigImpl_getConfi gFileNameDispatcher;		IPluginConfigImpl_vTable.getConfigFileName := @IPluginConfigImpl_getConfi gFileNameDispatcher;
IPluginConfigImpl_vTable.getDefaultConfig := @IPluginConfigImpl_getDefaul tConfigDispatcher;		IPluginConfigImpl_vTable.getDefaultConfig := @IPluginConfigImpl_getDefaul tConfigDispatcher;
IPluginConfigImpl_vTable.getFirebirdConf := @IPluginConfigImpl_getFirebir dConfDispatcher;		IPluginConfigImpl_vTable.getFirebirdConf := @IPluginConfigImpl_getFirebir dConfDispatcher;
IPluginConfigImpl_vTable.setReleaseDelay := @IPluginConfigImpl_setRelease DelayDispatcher;		IPluginConfigImpl_vTable.setReleaseDelay := @IPluginConfigImpl_setRelease DelayDispatcher;
IPluginFactoryImpl_vTable := PluginFactoryVTable.create;		IPluginFactoryImpl_vTable := PluginFactoryVTable.create;
IPluginFactoryImpl_vTable.version := 1;		IPluginFactoryImpl_vTable.version := 1;
IPluginFactoryImpl_vTable.createPlugin := @IPluginFactoryImpl_createPlugi nDispatcher;		IPluginFactoryImpl_vTable.createPlugin := @IPluginFactoryImpl_createPlugi nDispatcher;
IPluginModuleImpl_vTable := PluginModuleVTable.create;		IPluginModuleImpl_vTable := PluginModuleVTable.create;
IPluginModuleImpl_vTable.version := 1;		IPluginModuleImpl_vTable.version := 2;
IPluginModuleImpl_vTable.doClean := @IPluginModuleImpl_doCleanDispatcher;		IPluginModuleImpl_vTable.doClean := @IPluginModuleImpl_doCleanDispatcher;
		IPluginModuleImpl_vTable.threadDetach := @IPluginModuleImpl_threadDetachD ispatcher;
IPluginManagerImpl_vTable := PluginManagerVTable.create;		IPluginManagerImpl_vTable := PluginManagerVTable.create;
IPluginManagerImpl_vTable.version := 6;		IPluginManagerImpl_vTable.version := 6;
IPluginManagerImpl_vTable.registerPluginFactory := @IPluginManagerImpl_re gisterPluginFactoryDispatcher;		IPluginManagerImpl_vTable.registerPluginFactory := @IPluginManagerImpl_re gisterPluginFactoryDispatcher;
IPluginManagerImpl_vTable.registerModule := @IPluginManagerImpl_registerM oduleDispatcher;		IPluginManagerImpl_vTable.registerModule := @IPluginManagerImpl_registerM oduleDispatcher;
IPluginManagerImpl_vTable.unregisterModule := @IPluginManagerImpl_unregis terModuleDispatcher;		IPluginManagerImpl_vTable.unregisterModule := @IPluginManagerImpl_unregis terModuleDispatcher;
IPluginManagerImpl_vTable.getPlugins := @IPluginManagerImpl_getPluginsDis patcher;		IPluginManagerImpl_vTable.getPlugins := @IPluginManagerImpl_getPluginsDis patcher;
IPluginManagerImpl_vTable.getConfig := @IPluginManagerImpl_getConfigDispa tcher;		IPluginManagerImpl_vTable.getConfig := @IPluginManagerImpl_getConfigDispa tcher;
IPluginManagerImpl_vTable.releasePlugin := @IPluginManagerImpl_releasePlu ginDispatcher;		IPluginManagerImpl_vTable.releasePlugin := @IPluginManagerImpl_releasePlu ginDispatcher;
skipping to change at line 12889		skipping to change at line 12935
ITraceTransactionImpl_vTable := TraceTransactionVTable.create;		ITraceTransactionImpl_vTable := TraceTransactionVTable.create;
ITraceTransactionImpl_vTable.version := 5;		ITraceTransactionImpl_vTable.version := 5;
ITraceTransactionImpl_vTable.getTransactionID := @ITraceTransactionImpl_g etTransactionIDDispatcher;		ITraceTransactionImpl_vTable.getTransactionID := @ITraceTransactionImpl_g etTransactionIDDispatcher;
ITraceTransactionImpl_vTable.getReadOnly := @ITraceTransactionImpl_getRea dOnlyDispatcher;		ITraceTransactionImpl_vTable.getReadOnly := @ITraceTransactionImpl_getRea dOnlyDispatcher;
ITraceTransactionImpl_vTable.getWait := @ITraceTransactionImpl_getWaitDis patcher;		ITraceTransactionImpl_vTable.getWait := @ITraceTransactionImpl_getWaitDis patcher;
ITraceTransactionImpl_vTable.getIsolation := @ITraceTransactionImpl_getIs olationDispatcher;		ITraceTransactionImpl_vTable.getIsolation := @ITraceTransactionImpl_getIs olationDispatcher;
ITraceTransactionImpl_vTable.getPerf := @ITraceTransactionImpl_getPerfDis patcher;		ITraceTransactionImpl_vTable.getPerf := @ITraceTransactionImpl_getPerfDis patcher;
ITraceParamsImpl_vTable := TraceParamsVTable.create;		ITraceParamsImpl_vTable := TraceParamsVTable.create;
ITraceParamsImpl_vTable.version := 2;		ITraceParamsImpl_vTable.version := 3;
ITraceParamsImpl_vTable.getCount := @ITraceParamsImpl_getCountDispatcher;		ITraceParamsImpl_vTable.getCount := @ITraceParamsImpl_getCountDispatcher;
ITraceParamsImpl_vTable.getParam := @ITraceParamsImpl_getParamDispatcher;		ITraceParamsImpl_vTable.getParam := @ITraceParamsImpl_getParamDispatcher;
		ITraceParamsImpl_vTable.getTextUTF8 := @ITraceParamsImpl_getTextUTF8Dispa tcher;
ITraceStatementImpl_vTable := TraceStatementVTable.create;		ITraceStatementImpl_vTable := TraceStatementVTable.create;
ITraceStatementImpl_vTable.version := 2;		ITraceStatementImpl_vTable.version := 2;
ITraceStatementImpl_vTable.getStmtID := @ITraceStatementImpl_getStmtIDDis patcher;		ITraceStatementImpl_vTable.getStmtID := @ITraceStatementImpl_getStmtIDDis patcher;
ITraceStatementImpl_vTable.getPerf := @ITraceStatementImpl_getPerfDispatc her;		ITraceStatementImpl_vTable.getPerf := @ITraceStatementImpl_getPerfDispatc her;
ITraceSQLStatementImpl_vTable := TraceSQLStatementVTable.create;		ITraceSQLStatementImpl_vTable := TraceSQLStatementVTable.create;
ITraceSQLStatementImpl_vTable.version := 7;		ITraceSQLStatementImpl_vTable.version := 7;
ITraceSQLStatementImpl_vTable.getStmtID := @ITraceSQLStatementImpl_getStm tIDDispatcher;		ITraceSQLStatementImpl_vTable.getStmtID := @ITraceSQLStatementImpl_getStm tIDDispatcher;
ITraceSQLStatementImpl_vTable.getPerf := @ITraceSQLStatementImpl_getPerfD ispatcher;		ITraceSQLStatementImpl_vTable.getPerf := @ITraceSQLStatementImpl_getPerfD ispatcher;
End of changes. 20 change blocks.
4 lines changed or deleted		52 lines changed or added

---