paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 17:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-14 17:39:47 +01:00
parent 8d173d7190
commit b1a86854d6
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/rtl-generics/tests/tqsort_killer.pp
View File

@ -1,7 +1,13 @@
{$mode objfpc} {$h+} {$typedaddress on} {$modeswitch advancedrecords} {$coperators on} {$modeswitch anonymousfunctions}
{$mode objfpc}
{$h+}
{$typedaddress on}
{$modeswitch advancedrecords}
{$coperators on}
{$modeswitch anonymousfunctions}
{$modeswitch duplicatelocals}
uses
{$ifdef unix}cwstring,{$endif}
SysUtils, Generics.Collections, Generics.Defaults;
var
@ -186,11 +192,11 @@ begin
function(id: SizeUint): string
begin
SetLength((@result)^, 5);
result[5] := char(ord('A') + id mod 26); id := id div 26;
result[4] := char(ord('A') + id mod 26); id := id div 26;
result[3] := char(ord('A') + id mod 26); id := id div 26;
result[2] := char(ord('A') + id mod 26); id := id div 26;
result[1] := char(ord('A') + id mod 26);
result[5] := Char(ord('A') + id mod 26); id := id div 26;
result[4] := Char(ord('A') + id mod 26); id := id div 26;
result[3] := Char(ord('A') + id mod 26); id := id div 26;
result[2] := Char(ord('A') + id mod 26); id := id div 26;
result[1] := Char(ord('A') + id mod 26);
end, 'strings', 0.15);
specialize SortBenchmark<single>.Run(