Wath is in the following indented?

The doc says
https://www.freepascal.org/docs-html/rtl/classes/tthread.removequeuedevents.html

all calls to the given method .... are removed.

However there may be more than one way to read this.

aMethod: TThreadMethod
<https://www.freepascal.org/docs-html/rtl/classes/tthreadmethod.html> is "procedure of object"

The method "aMethod" (which is what is given) therefore consists of proc-address and instance-address.

However the code actually removes all methods at proc-address, regardless of the instance.

Does the "given method" mean:
1) "aMethod" as passed in as parameter, consisting of proc and instance
2) "method of the class" extracted from "aMethod"

It's a Delphi-compatibility method:
http://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.TThread.RemoveQueuedEvents

The Delphi docs are not much more help here but FPC should have the same behavior. Please check the Delphi behavior and clarify the docs.

Thanks, Ondrej

Unfortunately I do not have Delphi.
Can anyone test this?

Hi Martin,

there is a free Community Edition.

Pascal

Martin Frb wrote

Unfortunately I do not have Delphi. Can anyone test this?

I made a test program

If it does not print any "in foo" then it ignores the instance. Otherwise it should print one "in foo".

Besides of "what Delphi does", what would anyone expect from reading the code?

program Project1;
{$mode objfpc}{$H+}
uses
   {$IFDEF UNIX}  cthreads,  {$ENDIF}  Classes;
type
   TMyClass = class
     procedure Foo;
   end;
   TMyThread = class(TThread)
   public
     procedure Execute; override;
   end;
var
   i: integer;
procedure TMyThread.Execute;
var
   c1, c2: TMyClass;
begin
   c1 := TMyClass.Create;
   c2 := TMyClass.Create;
   Queue(self, @c1.Foo);
   Queue(self, @c2.Foo);
   RemoveQueuedEvents(Self, @c1.Foo);
   inc(i);
end;
procedure TMyClass.Foo;
begin
   writeln('In Foo');
end;
begin
   i := 0;
   TMyThread.Create(False);
   while i = 0 do ;
   CheckSynchronize();
   writeln('Did we get one or none "In Foo"');
   ReadLn;
end.

Pascal Riekenberg wrote

Hi Martin, there is a free Community Edition.

Ok, but maybe someone who already has it installed, can copy and paste the test that I posted? (should barely take half a minute or less)

Yes,

you get no "In Foo"!

Pascal

Delphi checks Code and Data.

Mattias

Pascal Riekenberg wrote

Yes, you get no "In Foo"!

Thanks...

Added documentation request https://bugs.freepascal.org/view.php?id=37819

FPC now behaves the same in r47007.

Regards,
Sven