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

* use voidcodepointertype when creating the methodpointertype in

Browse Source 
psystem.create_intern_types; ifdef i8086 removed.

git-svn-id: trunk@27541 -
This commit is contained in:
nickysn 2014-04-11 23:41:53 +00:00
parent e1716c097d
commit b9af57b97a
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psystem.pas
View File

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