Event<T> passes wrong parameter to handler when T is ...

Consider the following snippet:

‌

program Project1;

uses System.SysUtils, Spring;

type
    {$M+}
    THandlerProc<T> = reference to procedure(const eventArgs: T);
    {$M-}

    TData = record
        bool1, bool2, bool3: Boolean;
        class operator Equal(const a, b: TData): Boolean;
    end;

var
    sent, received: TData;

    class operator TData.Equal(const a, b: TData): Boolean;
    begin
        Result := (a.bool1 = b.bool1) and (a.bool2 = b.bool2) and (a.bool3 = b.bool3);
    end;

    procedure handleEvent(const eventArgs: TData);
    begin
        received := eventArgs;
    end;

    procedure p();
    var
        myEvent: Spring.Event<THandlerProc<TData>>;
    begin
        myEvent.Add(handleEvent);

        sent.bool1 := False;
        sent.bool2 := True;
        sent.bool3 := False;
        myEvent.Invoke(sent);

        Assert( sent = received );
    end;

begin
    p();
end.

You would expect the assertion to succeed. handleEvent(..) should be called with a record of (False, True, False). However, the passed record has all fields set to false and the assertion fails.

What really confuses me is that the assertion does not fail when TData has four or just two booleans. I have absolutely no clue why this is the case as I am unable to understand and debug the assembler code.

Comments (11)