paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 03:32:31 +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 FindPart(const HelpWilds, InputStr: string): SizeInt;
function IsWild(InputStr, Wilds: string; IgnoreCase: Boolean): Boolean; function IsWild(InputStr, Wilds: string; IgnoreCase: Boolean): Boolean;
function XorString(const Key, Src: ShortString): ShortString; function XorString(const Key, Src: ShortString): ShortString;
function XorEncode(const Key, Source: string): string; function XorEncode(const Key, Source: Ansistring): Ansistring;
function XorDecode(const Key, Source: string): string; function XorDecode(const Key, Source: Ansistring): Ansistring;
function GetCmdLineArg(const Switch: string; SwitchChars: TSysCharSet): string; function GetCmdLineArg(const Switch: string; SwitchChars: TSysCharSet): string;
function Numb2USA(const S: string): string; function Numb2USA(const S: string): string;
function Hex2Dec(const S: string): Longint; function Hex2Dec(const S: string): Longint;
@ -2801,7 +2801,7 @@ end;
function IntToBin(Value: Longint; Digits, Spaces: Integer): string; function IntToBin(Value: Longint; Digits, Spaces: Integer): string;
var endpos : integer; var endpos : integer;
p,p2:pchar; p,p2:PChar;
k: integer; k: integer;
begin begin
Result:=''; Result:='';
@ -2833,13 +2833,13 @@ begin
end; end;
function IntToBin(Value: Longint; Digits: Integer): string; function IntToBin(Value: Longint; Digits: Integer): string;
var p,p2 : pchar; var p,p2 : PChar;
begin begin
result:=''; result:='';
if digits<=0 then exit; if digits<=0 then exit;
setlength(result,digits); setlength(result,digits);
p:=pchar(pointer(@result[digits])); p:=PChar(pointer(@result[digits]));
p2:=pchar(pointer(@result[1])); p2:=PChar(pointer(@result[1]));
// typecasts because we want to keep intto* delphi compat and take an integer // typecasts because we want to keep intto* delphi compat and take an integer
while (p>=p2) and (cardinal(value)>0) do while (p>=p2) and (cardinal(value)>0) do
begin begin
@ -2853,13 +2853,13 @@ begin
end; end;
function intToBin(Value: int64; Digits:integer): string; function intToBin(Value: int64; Digits:integer): string;
var p,p2 : pchar; var p,p2 : PChar;
begin begin
result:=''; result:='';
if digits<=0 then exit; if digits<=0 then exit;
setlength(result,digits); setlength(result,digits);
p:=pchar(pointer(@result[digits])); p:=PChar(pointer(@result[digits]));
p2:=pchar(pointer(@result[1])); p2:=PChar(pointer(@result[1]));
// typecasts because we want to keep intto* delphi compat and take a signed val // typecasts because we want to keep intto* delphi compat and take a signed val
// and avoid warnings // and avoid warnings
while (p>=p2) and (qword(value)>0) do 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])); Result[i]:=Chr(Byte(Key[1 + ((i - 1) mod Length(Key))]) xor Ord(Src[i]));
end; end;
function XorEncode(const Key, Source: string): string; function XorEncode(const Key, Source: Ansistring): Ansistring;
var var
i: Integer; i: Integer;
@ -3043,7 +3043,7 @@ begin
end; end;
end; end;
function XorDecode(const Key, Source: string): string; function XorDecode(const Key, Source: Ansistring): Ansistring;
var var
i: Integer; i: Integer;
C: Char; 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'; function FpTime (tloc:ptime_t): time_t; cdecl; external clib name 'time';
{$if defined(linux)} {$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} {$endif}
Function FpPathconf(path : pchar;name : cint) : clong; cdecl; external clib name 'pathconf'; Function FpPathconf(path : pchar;name : cint) : clong; cdecl; external clib name 'pathconf';