* Refactor options parsing: one routine per first option letter

packages/fcl-db/src/dbase/dbf_prscore.pas

@@ -100,7 +100,7 @@ type
     procedure ClearExpressions; virtual;
 //    procedure GetGeneratedVars(AList: TList);
     procedure GetFunctionNames(AList: TStrings);
-    function GetFunctionDescription(AFunction: AnsiString): AnsiString;
+    function GetFunctionDescription(const AFunction: AnsiString): AnsiString;
     property HexChar: AnsiChar read FHexChar write FHexChar;
     property ArgSeparator: AnsiChar read FArgSeparator write FArgSeparator;
     property Optimize: Boolean read FOptimize write FOptimize;

packages/fcl-db/src/dbase/dbf_prsdef.pas

@@ -182,7 +182,7 @@ type
     FValue: Double;
   public
     // not overloaded to support older Delphi versions
-    constructor Create(const AName: AnsiString; AValue: AnsiString);
+    constructor Create(const AName: AnsiString; const AValue: AnsiString);
     constructor CreateAsDouble(const AName: AnsiString; AValue: Double);
 
     function AsPointer: PAnsiChar; override;
@@ -605,7 +605,7 @@ end;
 
 { TFloatConstant }
 
-constructor TFloatConstant.Create(const AName, AValue: AnsiString);
+constructor TFloatConstant.Create(const AName : AnsiString; const AValue: AnsiString);
 begin
   inherited Create(AName, etFloat, _FloatVariable);
 

packages/fcl-db/src/sqldb/postgres/pqconnection.pp

@@ -519,7 +519,7 @@ begin
   S:='select oid,typname,typtype,typcategory from pg_type where oid in ('+S+') order by oid';
   Res:=Cursor.Handle.Exec(S,False,'Error getting typeinfo');
   if (PQresultStatus(res)<>PGRES_TUPLES_OK) then
-    CheckResultError(Res,Cursor.tr.PGConn,'Error getting type info');
+    Cursor.Handle.CheckResultError(Res,[craClear],'Error getting type info');
   try
     For I:=0 to PQntuples(Res)-1 do
       begin

packages/fcl-passrc/src/pscanner.pp

@@ -6363,7 +6363,7 @@ begin
   HandleMode(S);
 end;
 
-procedure TPascalScanner.SetModeSwitch(S: String);
+procedure TPascalScanner.SetModeSwitch(S: TPasScannerString);
 begin
   HandleModeSwitch(S);
 end;

utils/fpcm/revision.inc

@@ -1 +1 @@
-'2023-01-26 hash 969d9f3168'
+'2023-05-17 hash b51e0a2cb1'

utils/fpmake.pp

@@ -22,6 +22,9 @@ program fpmake;
 {$endif NO_UNIT_PROCESS}
 
 uses
+{$IFNDEF NO_THREADING}
+{$IFDEF UNIX} cthreads, cwstring, {$ENDIF}
+{$ENDIF}
   fpmkunit,
 {$IFDEF HAS_UNIT_PROCESS}
   process,

utils/h2pas/h2pout.pp

@@ -1,5 +1,7 @@
 unit h2pout;
 
+{$modeswitch result}
+
 interface
 
 uses