Disallow writable consts in all units

lighterowl · May 22, 2023 · 191ddcd · 191ddcd
1 parent 3ebd864
commit 191ddcd
Show file tree

Hide file tree

Showing 29 changed files with 30 additions and 32 deletions.
diff --git a/StringToVK.pas b/StringToVK.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit StringToVK;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/about.pas b/about.pas
@@ -31,7 +31,7 @@
 
 unit About;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/addlink.pas b/addlink.pas
@@ -32,7 +32,7 @@
 
 unit AddLink;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/addtorrent.pas b/addtorrent.pas
@@ -32,7 +32,7 @@
 
 unit AddTorrent;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/addtracker.pas b/addtracker.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit AddTracker;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/baseform.pas b/baseform.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit BaseForm;
 
-{$mode objfpc}
+{$mode objfpc}{$J-}
 
 interface
 

diff --git a/buildinfo.pas b/buildinfo.pas
@@ -31,7 +31,7 @@
 
 unit BuildInfo;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/colsetup.pas b/colsetup.pas
@@ -31,7 +31,7 @@
 
 unit ColSetup;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/connoptions.pas b/connoptions.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit ConnOptions;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/daemonoptions.pas b/daemonoptions.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit DaemonOptions;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/download.pas b/download.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit download;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/filtering.pas b/filtering.pas
@@ -32,7 +32,7 @@
 
 unit Filtering;
 
-{$mode ObjFPC}
+{$mode ObjFPC}{$H+}{$J-}
 {$modeswitch nestedprocvars}
 
 interface

diff --git a/gcontnrs.pas b/gcontnrs.pas
@@ -29,7 +29,7 @@
 }
 unit GContnrs;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/ipresolver.pas b/ipresolver.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit IpResolver;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/maclocale.pas b/maclocale.pas
@@ -19,7 +19,7 @@
 
 unit MacLocale;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/main.pas b/main.pas
@@ -29,7 +29,7 @@
   source files in the program, then also delete it here.
 *************************************************************************************}
 unit Main;
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 {$modeswitch nestedprocvars}
 
 interface
@@ -907,10 +907,8 @@ implementation
 
   SpeedHistorySize = 20;
 
-const
-  SizeNames: array[1..5] of string = (sByte, sKByte, sMByte, sGByte, sTByte);
-
 var
+  SizeNames: array[1..5] of string = (sByte, sKByte, sMByte, sGByte, sTByte);
   FAppName: string;
   FAppVersion: string;
 

diff --git a/movetorrent.pas b/movetorrent.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit MoveTorrent;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/options.pas b/options.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit Options;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/passwcon.pas b/passwcon.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit passwcon;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/restranslator.pas b/restranslator.pas
@@ -32,7 +32,7 @@
 
 unit ResTranslator;
 
-{$MODE objfpc}{$H+}
+{$MODE objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/rpc.pas b/rpc.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit rpc;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/rpcconstants.pas b/rpcconstants.pas
@@ -32,7 +32,7 @@
 
 unit RPCConstants;
 
-{$mode ObjFPC}
+{$mode ObjFPC}{$H+}{$J-}
 
 interface
 

diff --git a/torrentcolumns.pas b/torrentcolumns.pas
@@ -32,7 +32,7 @@
 
 unit TorrentColumns;
 
-{$mode ObjFPC}
+{$mode ObjFPC}{$H+}{$J-}
 
 // definitions of column indices in TMainForm.FTorrents
 

diff --git a/torrentstateimages.pas b/torrentstateimages.pas
@@ -32,7 +32,7 @@
 
 unit TorrentStateImages;
 
-{$mode ObjFPC}
+{$mode ObjFPC}{$H+}{$J-}
 
 interface
 

diff --git a/torrprops.pas b/torrprops.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit TorrProps;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/urllistenerosx.pas b/urllistenerosx.pas
@@ -29,7 +29,7 @@
   source files in the program, then also delete it here.
 *************************************************************************************}
 unit URLListenerOSX;
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 {$modeswitch objectivec2}
 
 interface

diff --git a/utils.pas b/utils.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit utils;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface
 

diff --git a/vargrid.pas b/vargrid.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit VarGrid;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 {$modeswitch nestedprocvars}
 
 interface

diff --git a/varlist.pas b/varlist.pas
@@ -30,7 +30,7 @@
 *************************************************************************************}
 unit varlist;
 
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$J-}
 
 interface