paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* packages part of #35433

Browse Source
This commit is contained in:
florian 2024-05-01 23:09:07 +02:00
parent 346962beaa
commit 666de1e77c
4 changed files with 40 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-stl/src/garrayutils.pp
View File

@ -27,13 +27,13 @@ type
private
class procedure Sortrange(var Arr:TArr; Start,Fin,d:SizeUInt);
class procedure HeapSort(var Arr:TArr; Start,Fin:SizeUInt);
class procedure InsertSort(var Arr:TArr; Start,Fin:SizeUInt);
class procedure InsertSort(var Arr:TArr; Start,Fin:SizeUInt); inline;
class function Left(a:SizeUInt):SizeUInt;inline;
class function Right(a:SizeUInt):SizeUInt;inline;
class procedure Heapify(var Arr: TArr; Position:SizeUInt; Start,Fin:SizeUInt);
class function Parent(a:SizeUInt):SizeUInt;inline;
public
class procedure Sort(var Arr: TArr; size:SizeUInt);
class procedure Sort(var Arr: TArr; size:SizeUInt); inline;
class function NextPermutation(var Arr: TArr; size:SizeUInt):boolean;
end;

4
packages/gnutls/src/gnutlssockets.pp
View File

@ -71,8 +71,8 @@ Type
TGNUTLSX509Certificate = class(TX509Certificate)
private
FMyFormat : tgnutls_x509_crt_fmt_t;
procedure Check(Aret: cint);
procedure Check(Aexp: Boolean; Aret: cint);
procedure Check(Aret: cint); inline;
procedure Check(Aexp: Boolean; Aret: cint); inline;
function GenCACert(const Aca_priv_key: TBytes; const Acommon_name, Aserial: AnsiString; Adays: Word): TBytes;
function GenPrivKey: TBytes;
function GenSrvCert(const Aca_priv_key, Aca_pem, Asrv_priv_key: TBytes; const Acommon_name, Aorganization, Aserial: AnsiString;

24
packages/libusb/src/libusb.pp
View File

@ -155,7 +155,7 @@ const libusb1='libusb-1.0.so';
* \returns the value in little-endian byte order
}
function libusb_cpu_to_le16(const x:uint16_t):uint16_t;
function libusb_cpu_to_le16(const x:uint16_t):uint16_t; inline;
{* \def libusb_le16_to_cpu
@ -167,7 +167,7 @@ function libusb_cpu_to_le16(const x:uint16_t):uint16_t;
* \returns the value in host-endian byte order
}
function libusb_le16_to_cpu(const x:uint16_t):uint16_t;
function libusb_le16_to_cpu(const x:uint16_t):uint16_t; inline;
{ standard USB stuff }
{* \ingroup desc
@ -1338,7 +1338,7 @@ function libusb_control_transfer_get_data(
}
function libusb_control_transfer_get_setup(
transfer:plibusb_transfer):plibusb_control_setup;
transfer:plibusb_transfer):plibusb_control_setup; inline;
{* \ingroup asyncio
@ -1371,7 +1371,7 @@ procedure libusb_fill_control_setup(
bRequest: uint8_t;
wValue:uint16_t;
wIndex:uint16_t;
wLength:uint16_t);
wLength:uint16_t); inline;
function libusb_alloc_transfer(iso_packets:integer):plibusb_transfer;LIBUSB_CALL;external libusb1;
function libusb_submit_transfer(transfer:plibusb_transfer):integer;LIBUSB_CALL;external libusb1;
@ -1418,7 +1418,7 @@ procedure libusb_fill_control_transfer(
buffer:puint8_t;
callback:libusb_transfer_cb_fn;
user_data:pointer;
timeout:cardinal);
timeout:cardinal); inline;
{* \ingroup asyncio
@ -1443,7 +1443,7 @@ procedure libusb_fill_bulk_transfer(
length:integer;
callback:libusb_transfer_cb_fn;
user_data:pointer;
timeout:cardinal);
timeout:cardinal); inline;
{* \ingroup asyncio
@ -1472,7 +1472,7 @@ procedure libusb_fill_bulk_stream_transfer(
length:integer;
callback:libusb_transfer_cb_fn;
user_data:pointer;
timeout:cardinal);
timeout:cardinal); inline;
{* \ingroup asyncio
@ -1497,7 +1497,7 @@ procedure libusb_fill_interrupt_transfer(
length:integer;
callback:libusb_transfer_cb_fn;
user_data:pointer;
timeout:cardinal);
timeout:cardinal); inline;
{* \ingroup asyncio
@ -1523,7 +1523,7 @@ procedure libusb_fill_iso_transfer(transfer:plibusb_transfer;
num_iso_packets:integer;
callback:libusb_transfer_cb_fn;
user_data:pointer;
timeout:cardinal);
timeout:cardinal); inline;
{* \ingroup asyncio
@ -1537,7 +1537,7 @@ procedure libusb_fill_iso_transfer(transfer:plibusb_transfer;
procedure libusb_set_iso_packet_lengths(
transfer:plibusb_transfer;
length:cardinal);
length:cardinal); inline;
{* \ingroup asyncio
@ -1559,7 +1559,7 @@ procedure libusb_set_iso_packet_lengths(
function libusb_get_iso_packet_buffer(
transfer:plibusb_transfer;
packet:cardinal):puint8_t;
packet:cardinal):puint8_t; inline;
{* \ingroup asyncio
@ -1584,7 +1584,7 @@ function libusb_get_iso_packet_buffer(
function libusb_get_iso_packet_buffer_simple(
transfer:plibusb_transfer;
packet:cardinal):puint8_t;
packet:cardinal):puint8_t; inline;
{ sync I/O }

48
packages/rtl-objpas/src/inc/dateutil.inc
View File

@ -94,8 +94,8 @@ Const
Simple trimming functions.
---------------------------------------------------------------------}
Function DateOf(const AValue: TDateTime): TDateTime;
Function TimeOf(const AValue: TDateTime): TDateTime;
Function DateOf(const AValue: TDateTime): TDateTime; inline;
Function TimeOf(const AValue: TDateTime): TDateTime; inline;
{ ---------------------------------------------------------------------
Identification functions.
@ -128,7 +128,7 @@ Function DaysInAMonth(const AYear, AMonth: Word): Word;
---------------------------------------------------------------------}
Function Today: TDateTime;
Function Today: TDateTime; inline;
Function Yesterday: TDateTime;
Function Tomorrow: TDateTime;
Function IsToday(const AValue: TDateTime): Boolean;
@ -142,7 +142,7 @@ Function PreviousDayOfWeek (DayOfWeek : Word) : Word;
Function YearOf(const AValue: TDateTime): Word;
Function MonthOf(const AValue: TDateTime): Word;
Function WeekOf(const AValue: TDateTime): Word;
Function WeekOf(const AValue: TDateTime): Word; inline;
Function DayOf(const AValue: TDateTime): Word;
Function HourOf(const AValue: TDateTime): Word;
Function MinuteOf(const AValue: TDateTime): Word;
@ -164,7 +164,7 @@ Function EndOfAYear(const AYear: Word): TDateTime;
Function StartOfTheMonth(const AValue: TDateTime): TDateTime;
Function EndOfTheMonth(const AValue: TDateTime): TDateTime;
Function StartOfAMonth(const AYear, AMonth: Word): TDateTime;
Function StartOfAMonth(const AYear, AMonth: Word): TDateTime; inline;
Function EndOfAMonth(const AYear, AMonth: Word): TDateTime;
{ ---------------------------------------------------------------------
@ -175,8 +175,8 @@ Function EndOfAMonth(const AYear, AMonth: Word): TDateTime;
Function StartOfTheWeek(const AValue: TDateTime): TDateTime;
Function EndOfTheWeek(const AValue: TDateTime): TDateTime;
Function StartOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;
Function StartOfAWeek(const AYear, AWeekOfYear: Word): TDateTime; // ADayOFWeek 1
Function EndOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime;
Function StartOfAWeek(const AYear, AWeekOfYear: Word): TDateTime; inline; // ADayOFWeek 1
Function EndOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word): TDateTime; inline;
Function EndOfAWeek(const AYear, AWeekOfYear: Word): TDateTime; // const ADayOfWeek: Word = 7
@ -184,18 +184,18 @@ Function EndOfAWeek(const AYear, AWeekOfYear: Word): TDateTime; // const ADayOfW
Start/End of day functions.
---------------------------------------------------------------------}
Function StartOfTheDay(const AValue: TDateTime): TDateTime;
Function StartOfTheDay(const AValue: TDateTime): TDateTime; inline;
Function EndOfTheDay(const AValue: TDateTime): TDateTime;
Function StartOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;
Function StartOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload; inline;
Function StartOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;
Function EndOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;
Function EndOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload; inline;
Function EndOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;
{ ---------------------------------------------------------------------
Part of year functions.
---------------------------------------------------------------------}
Function MonthOfTheYear(const AValue: TDateTime): Word;
Function MonthOfTheYear(const AValue: TDateTime): Word; inline;
Function WeekOfTheYear(const AValue: TDateTime): Word; overload;
Function WeekOfTheYear(const AValue: TDateTime; out AYear: Word): Word; overload;
Function DayOfTheYear(const AValue: TDateTime): Word;
@ -230,7 +230,7 @@ Function MilliSecondOfTheWeek(const AValue: TDateTime): LongWord;
Part of day functions.
---------------------------------------------------------------------}
Function HourOfTheDay(const AValue: TDateTime): Word;
Function HourOfTheDay(const AValue: TDateTime): Word; inline;
Function MinuteOfTheDay(const AValue: TDateTime): Word;
Function SecondOfTheDay(const AValue: TDateTime): LongWord;
Function MilliSecondOfTheDay(const AValue: TDateTime): LongWord;
@ -239,7 +239,7 @@ Function MilliSecondOfTheDay(const AValue: TDateTime): LongWord;
Part of hour functions.
---------------------------------------------------------------------}
Function MinuteOfTheHour(const AValue: TDateTime): Word;
Function MinuteOfTheHour(const AValue: TDateTime): Word; inline;
Function SecondOfTheHour(const AValue: TDateTime): Word;
Function MilliSecondOfTheHour(const AValue: TDateTime): LongWord;
@ -248,28 +248,28 @@ Function MilliSecondOfTheHour(const AValue: TDateTime): LongWord;
---------------------------------------------------------------------}
Function SecondOfTheMinute(const AValue: TDateTime): Word;
Function SecondOfTheMinute(const AValue: TDateTime): Word; inline;
Function MilliSecondOfTheMinute(const AValue: TDateTime): LongWord;
{ ---------------------------------------------------------------------
Part of second functions.
---------------------------------------------------------------------}
Function MilliSecondOfTheSecond(const AValue: TDateTime): Word;
Function MilliSecondOfTheSecond(const AValue: TDateTime): Word; inline;
{ ---------------------------------------------------------------------
Range checking functions.
---------------------------------------------------------------------}
Function WithinPastYears(const ANow, AThen: TDateTime; const AYears: Integer): Boolean;
Function WithinPastMonths(const ANow, AThen: TDateTime; const AMonths: Integer): Boolean;
Function WithinPastWeeks(const ANow, AThen: TDateTime; const AWeeks: Integer): Boolean;
Function WithinPastDays(const ANow, AThen: TDateTime; const ADays: Integer): Boolean;
Function WithinPastHours(const ANow, AThen: TDateTime; const AHours: Int64): Boolean;
Function WithinPastMinutes(const ANow, AThen: TDateTime; const AMinutes: Int64): Boolean;
Function WithinPastSeconds(const ANow, AThen: TDateTime; const ASeconds: Int64): Boolean;
Function WithinPastMilliSeconds(const ANow, AThen: TDateTime; const AMilliSeconds: Int64): Boolean;
Function WithinPastYears(const ANow, AThen: TDateTime; const AYears: Integer): Boolean; inline;
Function WithinPastMonths(const ANow, AThen: TDateTime; const AMonths: Integer): Boolean; inline;
Function WithinPastWeeks(const ANow, AThen: TDateTime; const AWeeks: Integer): Boolean; inline;
Function WithinPastDays(const ANow, AThen: TDateTime; const ADays: Integer): Boolean; inline;
Function WithinPastHours(const ANow, AThen: TDateTime; const AHours: Int64): Boolean; inline;
Function WithinPastMinutes(const ANow, AThen: TDateTime; const AMinutes: Int64): Boolean; inline;
Function WithinPastSeconds(const ANow, AThen: TDateTime; const ASeconds: Int64): Boolean; inline;
Function WithinPastMilliSeconds(const ANow, AThen: TDateTime; const AMilliSeconds: Int64): Boolean; inline;
{ ---------------------------------------------------------------------
Period functions.
@ -384,7 +384,7 @@ Function CompareDateTime(const A, B: TDateTime): TValueRelationship;
Function CompareDate(const A, B: TDateTime): TValueRelationship;
Function CompareTime(const A, B: TDateTime): TValueRelationship;
Function SameDateTime(const A, B: TDateTime): Boolean;
Function SameDate(const A, B: TDateTime): Boolean;
Function SameDate(const A, B: TDateTime): Boolean; inline;
Function SameTime(const A, B: TDateTime): Boolean;
function DateTimeInRange(ADateTime: TDateTime; AStartDateTime, AEndDateTime: TDateTime; aInclusive: Boolean = True): Boolean;
function TimeInRange(ATime: TTime; AStartTime, AEndTime: TTime; AInclusive: Boolean = True): Boolean;