* enable absolute for i8086-msdos

git-svn-id: branches/i8086@24054 -

compiler/pdecvar.pas

@@ -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;

compiler/pexpr.pas

@@ -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

compiler/symsym.pas

@@ -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;