paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 12:00:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ method pointer support for targets with a 16-bit address space in tcgloadnode.pass_generate_code

Browse Source 
git-svn-id: trunk@24641 -
This commit is contained in:
nickysn 2013-05-30 13:22:59 +00:00
parent 78f94ab035
commit 35939ff0a9
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgld.pas
View File

@ -481,13 +481,7 @@ implementation
internalerror(200312011);
if assigned(left) then
begin
{$if sizeof(pint) = 4}
location_reset(location,LOC_CREGISTER,OS_64);
{$else} {$if sizeof(pint) = 8}
location_reset(location,LOC_CREGISTER,OS_128);
{$else}
internalerror(20020520);
{$endif} {$endif}
location_reset(location,LOC_CREGISTER,int_cgsize(voidpointertype.size*2));
secondpass(left);
{ load class instance/classrefdef address }