[fpc-devel] FPC 3.2.4-rc1 available

[J. Gareth Moreton]

I hope there's time for this.  If this merge request is approved, can it 
be cherry-picked for 3.2.4 as well?

https://gitlab.com/freepascal.org/fpc/source/-/merge_requests/1049

It fixes a bug in the register allocator that I have reason to believe 
has been around for some time.

Kit

On 21/06/2025 10:05, Adriaan van Os via fpc-devel wrote:
> 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.
>
>
>
> _______________________________________________
> fpc-devel maillist  -  fpc-devel at lists.freepascal.org
> https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
>

-- 
This email has been checked for viruses by Avast antivirus software.
www.avast.com