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

* fixed the far pointer size not being updated after reading the near/far type modifier, which caused far pointers to be allocated only 2 bytes

Browse Source 
git-svn-id: trunk@24554 -
This commit is contained in:
nickysn 2013-05-22 16:44:05 +00:00
parent fd429612f8
commit abeb2a3aaa
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/pdecl.pas
View File

@ -730,6 +730,7 @@ implementation
tpointerdef(hdef).x86pointertyp:=x86pt_near; tpointerdef(hdef).x86pointertyp:=x86pt_near;
consume(_SEMICOLON); consume(_SEMICOLON);
end; end;
tpointerdef(hdef).update_savesize;
{$else x86} {$else x86}
{ Previous versions of FPC support declaring a pointer as { Previous versions of FPC support declaring a pointer as
far even on non-x86 platforms. far even on non-x86 platforms.