From 666de1e77c5b8ae629c7e0ee5f9afac036b3e18e Mon Sep 17 00:00:00 2001 From: florian Date: Wed, 1 May 2024 23:09:07 +0200 Subject: [PATCH] * packages part of #35433 --- packages/fcl-stl/src/garrayutils.pp | 4 +- packages/gnutls/src/gnutlssockets.pp | 4 +- packages/libusb/src/libusb.pp | 24 ++++++------ packages/rtl-objpas/src/inc/dateutil.inc | 48 ++++++++++++------------ 4 files changed, 40 insertions(+), 40 deletions(-) diff --git a/packages/fcl-stl/src/garrayutils.pp b/packages/fcl-stl/src/garrayutils.pp index 1efc9f0d99..a8ed68c90d 100644 --- a/packages/fcl-stl/src/garrayutils.pp +++ b/packages/fcl-stl/src/garrayutils.pp @@ -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; diff --git a/packages/gnutls/src/gnutlssockets.pp b/packages/gnutls/src/gnutlssockets.pp index 15945ab602..fc0181b86b 100644 --- a/packages/gnutls/src/gnutlssockets.pp +++ b/packages/gnutls/src/gnutlssockets.pp @@ -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; diff --git a/packages/libusb/src/libusb.pp b/packages/libusb/src/libusb.pp index c752a85365..b8d6126f1f 100644 --- a/packages/libusb/src/libusb.pp +++ b/packages/libusb/src/libusb.pp @@ -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 } diff --git a/packages/rtl-objpas/src/inc/dateutil.inc b/packages/rtl-objpas/src/inc/dateutil.inc index 8e33cbdd97..0feaa7c084 100644 --- a/packages/rtl-objpas/src/inc/dateutil.inc +++ b/packages/rtl-objpas/src/inc/dateutil.inc @@ -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;