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

+ support the 'absolute seg:ofs' variable declaration in the win16 target as well

Browse Source 
git-svn-id: trunk@31529 -
This commit is contained in:
nickysn 2015-09-05 12:07:29 +00:00
parent 8bca76e645
commit 4068a05631
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecvar.pas
View File

@ -1154,7 +1154,7 @@ implementation
abssym.addroffset:=Tordconstnode(pt).value.svalue; abssym.addroffset:=Tordconstnode(pt).value.svalue;
{$if defined(i386) or defined(i8086)} {$if defined(i386) or defined(i8086)}
tcpuabsolutevarsym(abssym).absseg:=false; tcpuabsolutevarsym(abssym).absseg:=false;
if (target_info.system in [system_i386_go32v2,system_i386_watcom,system_i8086_msdos]) and if (target_info.system in [system_i386_go32v2,system_i386_watcom,system_i8086_msdos,system_i8086_win16]) and
try_to_consume(_COLON) then try_to_consume(_COLON) then
begin begin
pt.free; pt.free;