* fixes to compile objpas i8086

git-svn-id: branches/i8086@23972 -

rtl/msdos/system.pp

@@ -43,6 +43,12 @@ const
   segB800 = $B800;
 
 var
+{ C-compatible arguments and environment }
+  argc:longint; //!! public name 'operatingsystem_parameter_argc';
+  argv:PPchar; //!! public name 'operatingsystem_parameter_argv';
+  envp:PPchar; //!! public name 'operatingsystem_parameter_envp';
+  dos_argv0 : pchar; //!! public name 'dos_argv0';
+
   AllFilesMask: string [3];
 {$ifndef RTLLITE}
 { System info }

rtl/objpas/objpas.pp

@@ -308,7 +308,7 @@ Type
 
    TResourceStringTableList = Packed Record
      Count : ptrint;
-     Tables : Array[Word] of record
+     Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record
        TableStart,
        TableEnd   : PResourceStringRecord;
      end;
@@ -324,7 +324,7 @@ Type
 
    TResStrInitTable = packed record
      Count: longint;
-     Tables: packed array[1..32767] of PResStrInitEntry;
+     Tables: packed array[1..{$ifdef cpu16}8191{$else cpu16}32767{$endif cpu16}] of PResStrInitEntry;
    end;
 
 var