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

+ also support 'external near' var declarations on i8086

Browse Source 
git-svn-id: trunk@37536 -
This commit is contained in:
nickysn 2017-10-30 21:52:03 +00:00
parent 5b766a1e67
commit 49a96af874
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pdecvar.pas
View File

@ -924,10 +924,14 @@ implementation
try_to_consume(_EXTERNAL) then
begin
is_external_var:=true;
{ far? }
if (target_info.system in systems_allow_external_far_var) and
try_to_consume(_FAR) then
is_far:=true;
{ near/far? }
if target_info.system in systems_allow_external_far_var then
begin
if try_to_consume(_FAR) then
is_far:=true
else if try_to_consume(_NEAR) then
is_far:=false;
end;
if (idtoken<>_NAME) and (token<>_SEMICOLON) then
begin
is_dll:=true;