t_id
1553
t_adddate
2005/04/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021981017 | 1027256 | False | False | Failed to run |
Record count: 1
qemu: uncaught target signal 4 (Illegal instruction) - core dumped /home/muller/bin/qemu-powerpc-linux.sh: line 73: 3358243 Illegal instruction $GDB_QEMU $QEMU_BIN $LOCAL_QEMU_OPT "${@}"
{ Source provided for Free Pascal Bug Report 3695 } { Submitted by "Pedro Lopez-Cabanillas" on 2005-02-25 } { e-mail: plcl@telefonica.net } program testsync; {$ifdef FPC} {$mode delphi} {$endif} uses {$ifdef unix} cthreads, {$endif unix} Classes, SysUtils ; type Tester = class private counter: Integer; public procedure count; procedure run; end; MyThread = class(TThread) private worker: Tester; public constructor Create(w: Tester); procedure Execute; override; end; constructor MyThread.Create(w: Tester); begin worker:= w; inherited Create(false); end; procedure MyThread.Execute; begin WriteLn('Starting MyThread.Execute'); repeat // sleep(500); Synchronize(worker.count); until Terminated; WriteLn('Ending MyThread.Execute'); end; procedure Tester.count; begin Inc(counter); WriteLn(counter); end; procedure Tester.run; var thread: MyThread; begin thread := MyThread.Create(Self); While counter<10 do begin CheckSynchronize(1000); //WriteLn('Loop forever inside Tester.run when compiled by FPC 1.9.8'); end; thread.Terminate; thread.waitfor; end; var t: Tester; begin t:=Tester.Create; t.run; t.free; end.