Using Default(MyArray) coast more-FillChar is also inserted too!

[PascalDragon]

Also note that if you use Default multiple times in the same function, it will only create the temporary object once and re-use it every time. I think a better optimization would be even to create that temporary object globally rather than in the function that calls ist, especially if it has initialization code.

That's what main does since 2023.

Warfley...?

Code: Pascal  [Select][+][-]

1. {$ifdef fpc}{$mode delphi}{$endif}
2. uses rtti; // <<----
3. procedure Init<T>(var A:T) inline;
4. Begin
5.   if ismanaged(A) then  // or T
6.   begin
7.     Finalize(A);
8.     Initialize(A);
9.   end
10.   else
11.     FillByte(A,SizeOf(T),0);
12. end;
13. begin
14. end.

Not an intrinsic and possibly a bit runtime focussed. But the functionality is there. Also in 3.2.X

And it seems both of you are not aware of the existence of IsManagedType which is an intrinsic and exists since 3.2.0... 🙄