[fpc-devel] POSIX threads and classes

[Артем Смирнов]

I've got some troubles with pthread_cond_init when calling it in class
members. After this action next calling of class constructor for second
object bring to SIGSEGV. When I tried to use Object instead Class all seems
fine, but for my task Object not approach. What it can be?

program pthcondtest;

{$mode objfpc}{$H+}

uses
  pthreads;

type

TCondv = class
   CAttr : pthread_condattr_t;
   Cond : pthread_cond_t;
public
  constructor Create;
  destructor Destroy; override;
end;

{TCondv}
constructor TCondv.Create;
begin
  pthread_condattr_init(CAttr);
  pthread_cond_init(Cond, CAttr);
end;


destructor TCondv.Destroy;
begin
  inherited;
  pthread_cond_destroy(Cond);
  pthread_condattr_destroy(CAttr);
end;
{TCondv}

var
  obj1 : TCondv;
  obj2 : TCondv;
begin
  obj1 := TCondv.Create;
  obj2 := TCondv.Create;
  obj1.Destroy;
  obj2.Destroy;
end.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20070507/71eb6a04/attachment.html>