* LongStrings switch must be before unit keyword

rtl/amicommon/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/atari/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/beos/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/embedded/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/freertos/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/gba/classes.pp

@@ -15,6 +15,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/go32v2/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/haiku/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/macos/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/msdos/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/nativent/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/nds/classes.pp

@@ -15,6 +15,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/netware/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/netwlibc/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/os2/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/sinclairql/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/symbian/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/wasi/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/watcom/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/wii/classes.pp

@@ -15,6 +15,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/win16/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/win32/classes.pp

@@ -14,7 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
-
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/win64/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}

rtl/wince/classes.pp

@@ -14,6 +14,7 @@
  **********************************************************************}
 
 {$mode objfpc}
+{$H+}
 {$IF FPC_FULLVERSION>=30301}
 {$modeswitch FUNCTIONREFERENCES}
 {$define FPC_HAS_REFERENCE_PROCEDURE}