Browse Source

* packages part of #35433

florian 1 year ago
parent
commit
666de1e77c

+ 2 - 2
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;
 

+ 2 - 2
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;

+ 12 - 12
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  }

+ 24 - 24
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;