From bff8dc3fbfe71e88bd0d23ae66afa191b3aab9e5 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 27 Jun 2014 10:44:02 +0000
Subject: [PATCH] + added parser support for huge pointer declarations

git-svn-id: trunk@28085 -
---
 compiler/pdecl.pas  | 8 ++++++++
 compiler/tokens.pas | 2 ++
 2 files changed, 10 insertions(+)

diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index 9617d95344..ad408988e3 100644
--- a/compiler/pdecl.pas
+++ b/compiler/pdecl.pas
@@ -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)}
diff --git a/compiler/tokens.pas b/compiler/tokens.pas
index 7ad47b11da..004981001d 100644
--- a/compiler/tokens.pas
+++ b/compiler/tokens.pas
@@ -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),