paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 13:32:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes to compile objpas i8086

Browse Source 
git-svn-id: branches/i8086@23972 -
This commit is contained in:
florian 2013-03-23 18:27:46 +00:00
parent 7db978c3a4
commit feed492568
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/msdos/system.pp
View File

@ -43,6 +43,12 @@ const
segB800 = $B800; segB800 = $B800;
var 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]; AllFilesMask: string [3];
{$ifndef RTLLITE} {$ifndef RTLLITE}
{ System info } { System info }

4
rtl/objpas/objpas.pp
View File

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