Browse Source

--- Merging r29797 into '.':
U rtl/win/sysos.inc
U rtl/os2/sysos.inc
U rtl/emx/sysos.inc
--- Recording mergeinfo for merge of r29797 into '.':
U .

# revisions: 29797

git-svn-id: branches/fixes_3_0@31128 -

marco 10 years ago
parent
commit
c24ef72ed3
3 changed files with 6 additions and 3 deletions
  1. 2 1
      rtl/emx/sysos.inc
  2. 3 2
      rtl/os2/sysos.inc
  3. 1 0
      rtl/win/sysos.inc

+ 2 - 1
rtl/emx/sysos.inc

@@ -84,7 +84,8 @@ procedure emx_init; external 'EMX' index 1;
       112 : InOutRes := 101;
       110 : InOutRes := 5;
       114 : InOutRes := 6;
-      290 : InOutRes := 290;
+      206 : InOutRes := 3;
+      290 : InOutRes := 4;
      end;
      { all other cases ... we keep the same error code }
    end;

+ 3 - 2
rtl/os2/sysos.inc

@@ -223,7 +223,8 @@ const
       112 : InOutRes := 101;
       110 : InOutRes := 5;
       114 : InOutRes := 6;
-      290 : InOutRes := 290;
+      206 : InOutRes := 3; (* TH: Path too long *)
+      290 : InOutRes := 4;
      end;
      { all other cases ... we keep the same error code }
    end;
@@ -318,7 +319,7 @@ type
     Nested_RepRec: PExceptionReportRecord;
     Address: pointer;
     ParamCount: cardinal;
-    Parameters: array [0..MaxExceptionParameters] of cardinal;
+    Parameters: array [0..Pred (MaxExceptionParameters)] of cardinal;
   end;
 
   TContextRecord = packed record

+ 1 - 0
rtl/win/sysos.inc

@@ -362,6 +362,7 @@ type
          begin
            res :=5;
          end;
+       ERROR_FILENAME_EXCED_RANGE : Res := 3;
        else
          begin
            { other error codes can directly be mapped }