RefCount isn't handled correctly if guid 0, obviously tests were for guid 0 only (either when I create guid with md5 or specify in interface type as {C35224FA-ED88-0D1C-A4D2-FCF91AC4C8C6})

// always using same two variables, and notice all possible calls
// do the same error with counting one too much
  obj := TSomeClass.Create;
  Writeln('ref:', (obj as TInterfacedObject).RefCount); //count=0
  a := obj; aa := (a as IA);
  Writeln('ref:', (obj as TInterfacedObject).RefCount); //count=3
  a := obj;
  Supports(a, IA, aa);
  obj.GetInterface(IA, aa);
  obj.GetInterface(IA, aa);
  obj.GetInterface(IA, aa);
  Writeln('ref:', (obj as TInterfacedObject).RefCount); //count=7

OUTPUT:
TSomeClass.Create
ref:0
ref:3
ref:7

Just as soon as you apply simple patch (included), everything works like it should

OUTPUT (after patch):
TSomeClass.Create
ref:0
ref:2
ref:2

Hi All,

I see patches being released here, though I dont quite yet get how to apply them, I have just downloaded source and make'd it using FPC. I was wondering if these patches were automatically applied to that evenings build of the sources and if not how often were the patches applied.

Peter Dove

Hi All,

Apologies, I though I was speaking to lazarus list, wont happen again.

They aren't "automatically" applied but the people with cvs write access usually apply them within several days so they get into the downloadable sources.