paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added parser support for huge pointer declarations

Browse Source 
git-svn-id: trunk@28085 -
This commit is contained in:
nickysn 2014-06-27 10:44:02 +00:00
parent 8b7863d076
commit bff8dc3fbf
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecl.pas
View File

@ -719,6 +719,14 @@ implementation
try_consume_hintdirective(newtype.symoptions,newtype.deprecatedmsg);
consume(_SEMICOLON);
{$ifdef x86}
{$ifdef i8086}
if try_to_consume(_HUGE) then
begin
tcpupointerdef(hdef).x86pointertyp:=x86pt_huge;
consume(_SEMICOLON);
end
else
{$endif i8086}
if try_to_consume(_FAR) then
begin
{$if defined(i8086)}

2
compiler/tokens.pas
View File

@ -135,6 +135,7 @@ type
_FAIL,
_FILE,
_GOTO,
_HUGE,
_NAME,
_NEAR,
_READ,
@ -452,6 +453,7 @@ const
(str:'FAIL' ;special:false;keyword:[m_none];op:NOTOKEN), { only set within constructors PM }
(str:'FILE' ;special:false;keyword:alllanguagemodes;op:NOTOKEN),
(str:'GOTO' ;special:false;keyword:alllanguagemodes;op:NOTOKEN),
(str:'HUGE' ;special:false;keyword:[m_none];op:NOTOKEN),
(str:'NAME' ;special:false;keyword:[m_none];op:NOTOKEN),
(str:'NEAR' ;special:false;keyword:[m_none];op:NOTOKEN),
(str:'READ' ;special:false;keyword:[m_none];op:NOTOKEN),