[fpc-devel] FPC 3.2.4-rc1 available

[Adriaan van Os]

Florian Klämpfl via fpc-devel wrote:
>   Hello,
> 
> As some might have noticed, We have placed the first release candidate 
> of the Free Pascal Compiler
> version 3.2.4 on our download servers already for some time.

Below test program compiles with fpc-3.2.2. but not with fpc-3.2.4 rc1 This is on MacOS 14 with an M2.

Regards,

Adriaan van Os


administrator% /usr/local/lib/fpc/3.2.2/ppca64 generics01.pas
Free Pascal Compiler version 3.2.2 [2021/05/16] for aarch64
...
Compiling generics01.pas
...
Assembling generics01
32 lines compiled, 0.5 sec
4 warning(s) issued
36 note(s) issued

administrator% /usr/local/lib/fpc/3.2.4/ppca64 generics01.pas
Free Pascal Compiler version 3.2.4-rc1 [2025/06/20] for aarch64
...
Compiling generics01.pas
generics01.pas(21,15) Error: function header doesn't match the previous declaration 
"ValueNotify(constref TPluginFormat;TCollectionNotification);"
generics.dictionariesh.inc(99,15) Error: Found declaration: ValueNotify(const 
TPluginFormat;TCollectionNotification);
generics01.pas(24,1) Fatal: There were 2 errors compiling module, stopping


{$mode delphiunicode}
unit generics01;

interface

uses
   Classes, Generics.Collections;

type
   TPluginFormatID = Integer;

   TPluginFormat = class abstract
   public
     Name: string;
   end;

   TPluginFormatList = class(TDictionary<TPluginFormatID, TPluginFormat>)
   protected
     procedure ValueNotify({$IFDEF fpc}constref{$ELSE}const{$ENDIF}Value: TPluginFormat; Action: 
TCollectionNotification); override;
   end;

implementation

procedure TPluginFormatList.ValueNotify({$IFDEF fpc}constref{$ELSE}const{$ENDIF}Value: 
TPluginFormat; Action: TCollectionNotification);
begin
end;

begin
end.