X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;ds=sidebyside;f=src%2Fshared%2Fa_modes.inc;h=a0ea22057a20fde14b3d03f2a2de5dcf87937d7b;hb=8b49757c73738465bc7d0bfbb5156576832ad3cd;hp=13c328e85a2c71cc77397cc5fb72634f27058352;hpb=94896ca5c4f78950b131f47a25e1183329cd7a47;p=d2df-sdl.git

diff --git a/src/shared/a_modes.inc b/src/shared/a_modes.inc
index 13c328e..a0ea220 100644
--- a/src/shared/a_modes.inc
+++ b/src/shared/a_modes.inc
@@ -1,10 +1,33 @@
 // compiler options, common for all game modules
-{$MODE DELPHI}
+{.$MODE DELPHI}
+{$MODE OBJFPC}
 
 {$MODESWITCH ADVANCEDRECORDS+}
-{$MODESWITCH DUPLICATELOCALS-}
+{$MODESWITCH ALLOWINLINE+}
+{$MODESWITCH ANSISTRINGS+} // Allow use of ansistrings.
+{$MODESWITCH AUTODEREF+} // Automatic (silent) dereferencing of typed pointers.
+{$MODESWITCH CLASS+}
+{$MODESWITCH CLASSICPROCVARS+} // Use classical procedural variables.
+{$MODESWITCH DEFAULTPARAMETERS+} // Allow use of default parameter values.
+{$MODESWITCH DUPLICATELOCALS-} // Allow local variables in class methods to have the same names as properties of the class.
+{$MODESWITCH EXCEPTIONS+}
+{$MODESWITCH HINTDIRECTIVE+} // Support the hint directives (deprecated, platform etc.)
+{$MODESWITCH INITFINAL+} // Allow use of Initialization and Finalization
+{.$MODESWITCH ISOUNARYMINUS-} // Unary minus as required by ISO pascal.
+{$MODESWITCH MACPROCVARS-} // Use mac-style procedural variables.
+{$MODESWITCH NESTEDCOMMENTS-}
 {$MODESWITCH NESTEDPROCVARS+}
+{$MODESWITCH OBJPAS+}
+{$MODESWITCH OUT+} // Allow use of the out parameter type.
+{$MODESWITCH PCHARTOSTRING+}
+{$MODESWITCH POINTERTOPROCVAR+} // Allow silent conversion of pointers to procedural variables.
+{$MODESWITCH PROPERTIES+}
+{$MODESWITCH REPEATFORWARD+} // Implementation and Forward declaration must match completely.
+{$MODESWITCH RESULT+}
+{$MODESWITCH TYPEHELPERS-} // Allow the use of type helpers.
 {$MODESWITCH UNICODESTRINGS-}
+{$MODESWITCH UNICODESTRINGS-}
+
 
 {$ASSERTIONS ON}
 {$BITPACKING OFF}
@@ -24,8 +47,8 @@
 {$SAFEFPUEXCEPTIONS OFF}
 {$SCOPEDENUMS OFF} // this will possibly be changed later
 {$SMARTLINK ON}
-{$TYPEDADDRESS OFF}
-{$TYPEINFO OFF}
+{$TYPEDADDRESS ON}
+{$TYPEINFO ON}
 {$VARSTRINGCHECKS OFF}
 
 {$S-} // disable stack checking
@@ -33,9 +56,12 @@
 
 {$IF DEFINED(D2F_DEBUG)}
   {$STACKFRAMES ON}
+  {$HINTS OFF}
 {$ELSE}
   {$STACKFRAMES OFF}
 {$ENDIF}
+{$WARNINGS ON}
+{$NOTES ON}
 
 
 {$IFDEF MSWINDOWS}