* fixed padding in the filerec to match textrec even on platforms where

  sizeof(pointer)<>sizeof(codepointer), like in the medium and compact i8086
  memory models

rtl/inc/filerec.inc

@@ -37,7 +37,7 @@ type
     Mode      : longint;
 {$endif}
     RecSize   : SizeInt;
-    _private  : array[1..3 * SizeOf(SizeInt) + 5 * SizeOf (pointer)] of byte;
+    _private  : array[1..3 * SizeOf(SizeInt) + SizeOf(pointer) + 4 * SizeOf(codepointer)] of byte;
     UserData  : array[1..32] of byte;
     name      : array[0..filerecnamelength] of TFileTextRecChar;
 {$ifdef USE_FILEREC_FULLNAME}