paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* far code support for the internal type

Browse Source 
git-svn-id: trunk@24845 -
This commit is contained in:
nickysn 2013-06-09 17:53:54 +00:00
parent bfd65ea550
commit 093b87f50d
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psystem.pas
View File

@ -464,7 +464,14 @@ implementation
addtype('$vtblarray',vmtarraytype);
{ Add a type for methodpointers }
hrecst:=trecordsymtable.create('',1);
{$ifdef i8086}
if current_settings.x86memorymodel in x86_far_code_models then
addfield(hrecst,tfieldvarsym.create('$proc',vs_value,voidfarpointertype,[]))
else
addfield(hrecst,tfieldvarsym.create('$proc',vs_value,voidnearpointertype,[]));
{$else i8086}
addfield(hrecst,tfieldvarsym.create('$proc',vs_value,voidpointertype,[]));
{$endif i8086}
addfield(hrecst,tfieldvarsym.create('$self',vs_value,voidpointertype,[]));
methodpointertype:=trecorddef.create('',hrecst);
addtype('$methodpointer',methodpointertype);