paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 13:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* comment schedgetaffitity for now at the request of closes #40569

Browse Source
This commit is contained in:
marcoonthegit 2023-12-22 17:52:29 +01:00
parent 355d9d3724
commit 4f31b7138c
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/rtl-objpas/src/inc/strutils.pp
View File

@ -214,8 +214,8 @@ function IsWordPresent(const W, S: string; const WordDelims: TSysCharSet): Boole
function FindPart(const HelpWilds, InputStr: string): SizeInt;
function IsWild(InputStr, Wilds: string; IgnoreCase: Boolean): Boolean;
function XorString(const Key, Src: ShortString): ShortString;
function XorEncode(const Key, Source: string): string;
function XorDecode(const Key, Source: string): string;
function XorEncode(const Key, Source: Ansistring): Ansistring;
function XorDecode(const Key, Source: Ansistring): Ansistring;
function GetCmdLineArg(const Switch: string; SwitchChars: TSysCharSet): string;
function Numb2USA(const S: string): string;
function Hex2Dec(const S: string): Longint;
@ -2801,7 +2801,7 @@ end;
function IntToBin(Value: Longint; Digits, Spaces: Integer): string;
var endpos : integer;
p,p2:pchar;
p,p2:PChar;
k: integer;
begin
Result:='';
@ -2833,13 +2833,13 @@ begin
end;
function IntToBin(Value: Longint; Digits: Integer): string;
var p,p2 : pchar;
var p,p2 : PChar;
begin
result:='';
if digits<=0 then exit;
setlength(result,digits);
p:=pchar(pointer(@result[digits]));
p2:=pchar(pointer(@result[1]));
p:=PChar(pointer(@result[digits]));
p2:=PChar(pointer(@result[1]));
// typecasts because we want to keep intto* delphi compat and take an integer
while (p>=p2) and (cardinal(value)>0) do
begin
@ -2853,13 +2853,13 @@ begin
end;
function intToBin(Value: int64; Digits:integer): string;
var p,p2 : pchar;
var p,p2 : PChar;
begin
result:='';
if digits<=0 then exit;
setlength(result,digits);
p:=pchar(pointer(@result[digits]));
p2:=pchar(pointer(@result[1]));
p:=PChar(pointer(@result[digits]));
p2:=PChar(pointer(@result[1]));
// typecasts because we want to keep intto* delphi compat and take a signed val
// and avoid warnings
while (p>=p2) and (qword(value)>0) do
@ -3025,7 +3025,7 @@ begin
Result[i]:=Chr(Byte(Key[1 + ((i - 1) mod Length(Key))]) xor Ord(Src[i]));
end;
function XorEncode(const Key, Source: string): string;
function XorEncode(const Key, Source: Ansistring): Ansistring;
var
i: Integer;
@ -3043,7 +3043,7 @@ begin
end;
end;
function XorDecode(const Key, Source: string): string;
function XorDecode(const Key, Source: Ansistring): Ansistring;
var
i: Integer;
C: Char;

2
rtl/unix/oscdeclh.inc
View File

@ -181,7 +181,7 @@ const
function FpTime (tloc:ptime_t): time_t; cdecl; external clib name 'time';
{$if defined(linux)}
function FpSchedGetAffinity(pid : pid_t;cpusetsize : size_t;mask : pcpu_set_t) : cint; cdecl; external clib name 'sched_getaffinity';
// function FpSchedGetAffinity(pid : pid_t;cpusetsize : size_t;mask : pcpu_set_t) : cint; cdecl; external clib name 'sched_getaffinity';
{$endif}
Function FpPathconf(path : pchar;name : cint) : clong; cdecl; external clib name 'pathconf';