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

* enable absolute for i8086-msdos

Browse Source 
git-svn-id: branches/i8086@24054 -
This commit is contained in:
florian 2013-03-29 15:13:29 +00:00
parent 40af7b2817
commit fef7832790
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecvar.pas
View File

@ -1225,9 +1225,9 @@ implementation
abssym : tabsolutevarsym;
pt,hp : tnode;
st : tsymtable;
{$ifdef i386}
{$if defined(i386) or defined(i8086)}
tmpaddr : int64;
{$endif}
{$endif defined(i386) or defined(i8086)}
begin
abssym:=nil;
{ only allowed for one var }
@ -1268,9 +1268,9 @@ implementation
else
{$endif}
abssym.addroffset:=Tordconstnode(pt).value.svalue;
{$ifdef i386}
{$if defined(i386) or defined(i8086)}
abssym.absseg:=false;
if (target_info.system in [system_i386_go32v2,system_i386_watcom]) and
if (target_info.system in [system_i386_go32v2,system_i386_watcom,system_i8086_msdos]) and
try_to_consume(_COLON) then
begin
pt.free;

4
compiler/pexpr.pas
View File

@ -1857,8 +1857,8 @@ implementation
arraydef:
begin
p2:=comp_expr(true,false);
{ support SEG:OFS for go32v2 Mem[] }
if (target_info.system in [system_i386_go32v2,system_i386_watcom]) and
{ support SEG:OFS for go32v2/msdos Mem[] }
if (target_info.system in [system_i386_go32v2,system_i386_watcom,system_i8086_msdos]) and
(p1.nodetype=loadn) and
assigned(tloadnode(p1).symtableentry) and
assigned(tloadnode(p1).symtableentry.owner.name) and

4
compiler/symsym.pas
View File

@ -273,9 +273,9 @@ interface
tabsolutevarsym = class(tabstractvarsym)
public
abstyp : absolutetyp;
{$ifdef i386}
{$if defined(i386) or defined(i8086)}
absseg : boolean;
{$endif i386}
{$endif defined(i386) or defined(i8086)}
asmname : pshortstring;
addroffset : aword;
ref : tpropaccesslist;