Browse Source

* some constants added

Tomas Hajny 21 years ago
parent
commit
36f59e66bc
1 changed files with 11 additions and 1 deletions
  1. 11 1
      rtl/os2/doscalls.pas

+ 11 - 1
rtl/os2/doscalls.pas

@@ -1571,6 +1571,7 @@ const   mfPag_Read      = $00001;   {Give read access to memory.}
         mfObj_Protected = $00080;
         mfObj_Protected = $00080;
         mfObj_Gettable  = $00100;
         mfObj_Gettable  = $00100;
         mfObj_Giveable  = $00200;
         mfObj_Giveable  = $00200;
+        mfObj_Any       = $00400;   {Allow using high memory (> 512 MB).}
         mfPag_Default   = $00400;
         mfPag_Default   = $00400;
         mfPag_Shared    = $02000;
         mfPag_Shared    = $02000;
         mfPag_Free      = $04000;
         mfPag_Free      = $04000;
@@ -1594,6 +1595,7 @@ const   mfPag_Read      = $00001;   {Give read access to memory.}
         obj_Protected = mfObj_Protected;
         obj_Protected = mfObj_Protected;
         obj_Gettable = mfObj_Gettable;
         obj_Gettable = mfObj_Gettable;
         obj_Giveable = mfObj_Giveable;
         obj_Giveable = mfObj_Giveable;
+        obj_Any = mfObj_Any;
         pag_Default = mfPag_Default;
         pag_Default = mfPag_Default;
         pag_Shared = mfPag_Shared;
         pag_Shared = mfPag_Shared;
         pag_Free = mfPag_Free;
         pag_Free = mfPag_Free;
@@ -2498,6 +2500,11 @@ const   deHardErr           = 1;    {Hard errors are enabled, to disable
                                      do not give this switch.}
                                      do not give this switch.}
         deDisableExceptions = 2;    {Exceptions are disabled, to enable
         deDisableExceptions = 2;    {Exceptions are disabled, to enable
                                      do not give this switch.}
                                      do not give this switch.}
+{For compatibility with VP:}
+        ferr_DisableHardErr = 0;    {Disable hard error popups.}
+        ferr_EnableHardErr  = deHardErr;
+        ferr_EnableException = 0;   {Enable exception popups.}
+        ferr_DisableException = deDisableExceptions;
 
 
 {Disable the end user notification of hardware errors and exceptions. Users
 {Disable the end user notification of hardware errors and exceptions. Users
  can overide this in config.sys. By default, notification is enabled.
  can overide this in config.sys. By default, notification is enabled.
@@ -5356,7 +5363,10 @@ external 'DOSCALLS' index 582;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.27  2004-05-24 19:33:22  hajny
+  Revision 1.28  2004-09-11 19:35:27  hajny
+    * some constants added
+
+  Revision 1.27  2004/05/24 19:33:22  hajny
     * regcall update
     * regcall update
 
 
   Revision 1.26  2004/05/23 21:47:34  hajny
   Revision 1.26  2004/05/23 21:47:34  hajny