Re: [fpc-pascal] Problem with interfaces

2007-08-26 Thread Joao Morais
Joao Morais wrote: I simply don't know how to register the issue since I can't create a small sample that reproduce it, but I can send about 1 mb of sources to a volunteer though. Was this one forgotten? Let me know how can I help. -- Joao Morais

Re: [fpc-pascal] Problem with interfaces

2007-08-21 Thread Joao Morais
Micha Nelissen wrote: Joao Morais wrote: The first call that I make to DefaultObj from *another* unit recreate the object, because, I don't know why, the _holder var points again to nil. Try to use a data watchpoint to watch when the variable is being changed. Hopefully that will point to the

Re: [fpc-pascal] Problem with interfaces

2007-08-20 Thread Joao Morais
Darius Blaszijk wrote: I've had similar issues some time ago. Have you tried FPC 2.3.1? It has a some interface fixes. Nope. Trunk, rev. 8290 and still broken :-/ Thanks. -- Joao Morais Joao Morais wrote: Hello, I have the following code: {$mode objfpc} interface ... function

Re: [fpc-pascal] Problem with interfaces

2007-08-20 Thread Micha Nelissen
Joao Morais wrote: The first call that I make to DefaultObj from *another* unit recreate the object, because, I don't know why, the _holder var points again to nil. Try to use a data watchpoint to watch when the variable is being changed. Hopefully that will point to the root cause. Did you

[fpc-pascal] Problem with interfaces

2007-08-19 Thread Joao Morais
Hello, I have the following code: {$mode objfpc} interface ... function DefaultObj: TObject; implementation var _Holder: IHolder; function DefaultObj: TObject; begin if not Assigned(_Holder) then _Holder := THolder.Create(TSomeClass.Create); Result := _Holder.Instance; end;

Re: [fpc-pascal] Problem with interfaces

2007-08-19 Thread Darius Blaszijk
I've had similar issues some time ago. Have you tried FPC 2.3.1? It has a some interface fixes. Darius Joao Morais wrote: Hello, I have the following code: {$mode objfpc} interface ... function DefaultObj: TObject; implementation var _Holder: IHolder; function DefaultObj: TObject;