Startsida Utforska Hjälp
Logga in
pascal
/
fpc
spegling av https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Filer Ärenden 0 Wiki
Bläddra i källkod

* Correct modeswitch for strings

Michael VAN CANNEYT 2 år sedan
förälder
7c36c8ec2b
incheckning
1a9c7339b1
23 ändrade filer med 101 tillägg och 26 borttagningar
Unifierad Vy Visa Diff Statistik
  1. 4 1
      rtl/amicommon/sysutils.pp
  2. 4 1
      rtl/atari/sysutils.pp
  3. 5 0
      rtl/embedded/sysutils.pp
  4. 4 1
      rtl/emx/sysutils.pp
  5. 4 0
      rtl/freertos/sysutils.pp
  6. 4 1
      rtl/gba/sysutils.pp
  7. 5 2
      rtl/go32v2/sysutils.pp
  8. 5 2
      rtl/macos/sysutils.pp
  9. 5 2
      rtl/msdos/sysutils.pp
  10. 4 1
      rtl/nativent/sysutils.pp
  11. 4 1
      rtl/nds/sysutils.pp
  12. 4 1
      rtl/netware/sysutils.pp
  13. 4 1
      rtl/netwlibc/sysutils.pp
  14. 4 1
      rtl/os2/sysutils.pp
  15. 4 1
      rtl/sinclairql/sysutils.pp
  16. 5 0
      rtl/symbian/sysutils.pp
  17. 5 1
      rtl/unix/sysutils.pp
  18. 5 2
      rtl/wasi/sysutils.pp
  19. 5 2
      rtl/watcom/sysutils.pp
  20. 4 1
      rtl/wii/sysutils.pp
  21. 4 1
      rtl/win/sysutils.pp
  22. 5 2
      rtl/win16/sysutils.pp
  23. 4 1
      rtl/wince/sysutils.pp

+ 4 - 1
rtl/amicommon/sysutils.pp
Visa fil 

@@ -25,8 +25,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/atari/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 0
rtl/embedded/sysutils.pp
Visa fil 

@@ -15,7 +15,12 @@
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
+
 
 unit sysutils;
 
 unit sysutils;
 
 
 
 interface
 
 interface

+ 4 - 1
rtl/emx/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 0
rtl/freertos/sysutils.pp
Visa fil 

@@ -15,7 +15,11 @@
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 unit sysutils;
 
 unit sysutils;
 
 
 
 interface
 
 interface

+ 4 - 1
rtl/gba/sysutils.pp
Visa fil 

@@ -26,8 +26,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 2
rtl/go32v2/sysutils.pp
Visa fil 

@@ -20,9 +20,12 @@ unit sysutils;
 
 interface
 
 interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
-{$MODESWITCH out}
 
-{ force ansistrings }
 
+{$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 2
rtl/macos/sysutils.pp
Visa fil 

@@ -21,9 +21,12 @@ unit sysutils;
 
 interface
 
 interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
-{$modeswitch out}
 
-{ force ansistrings }
 
+{$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 2
rtl/msdos/sysutils.pp
Visa fil 

@@ -20,9 +20,12 @@ unit sysutils;
 
 interface
 
 interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
-{$MODESWITCH out}
 
-{ force ansistrings }
 
+{$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}
 
 {$hugecode on}
 
 {$hugecode on}

+ 4 - 1
rtl/nativent/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/nds/sysutils.pp
Visa fil 

@@ -26,8 +26,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/netware/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/netwlibc/sysutils.pp
Visa fil 

@@ -18,8 +18,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/os2/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/sinclairql/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 0
rtl/symbian/sysutils.pp
Visa fil 

@@ -15,7 +15,12 @@
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
+
 
 unit sysutils;
 
 unit sysutils;
 
 
 
 interface
 
 interface

+ 5 - 1
rtl/unix/sysutils.pp
Visa fil 

@@ -18,7 +18,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{$H+} // will result in unicode string in unicode RTL
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
+{$H+}
 
+{$ENDIF}
 
 
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 2
rtl/wasi/sysutils.pp
Visa fil 

@@ -19,9 +19,12 @@ unit sysutils;
 
 interface
 
 interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
-{$MODESWITCH out}
 
-{ force ansistrings }
 
+{$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 2
rtl/watcom/sysutils.pp
Visa fil 

@@ -20,9 +20,12 @@ unit sysutils;
 
 interface
 
 interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
-{$modeswitch out}
 
-{ force ansistrings }
 
+{$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/wii/sysutils.pp
Visa fil 

@@ -26,8 +26,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/win/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 5 - 2
rtl/win16/sysutils.pp
Visa fil 

@@ -20,9 +20,12 @@ unit sysutils;
 
 interface
 
 interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
-{$MODESWITCH out}
 
-{ force ansistrings }
 
+{$MODESWITCH OUT}
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}

+ 4 - 1
rtl/wince/sysutils.pp
Visa fil 

@@ -19,8 +19,11 @@ interface
 
 
 
 {$MODE objfpc}
 
 {$MODE objfpc}
 
 {$MODESWITCH OUT}
 
 {$MODESWITCH OUT}
 
-{ force ansistrings }
 
+{$IFDEF UNICODERTL}
 
+{$MODESWITCH UNICODESTRINGS}
 
+{$ELSE}
 
 {$H+}
 
 {$H+}
 
+{$ENDIF}
 
 {$modeswitch typehelpers}
 
 {$modeswitch typehelpers}
 
 {$modeswitch advancedrecords}
 
 {$modeswitch advancedrecords}