paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:42:34 +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; abssym : tabsolutevarsym;
pt,hp : tnode; pt,hp : tnode;
st : tsymtable; st : tsymtable;
{$ifdef i386} {$if defined(i386) or defined(i8086)}
tmpaddr : int64; tmpaddr : int64;
{$endif} {$endif defined(i386) or defined(i8086)}
begin begin
abssym:=nil; abssym:=nil;
{ only allowed for one var } { only allowed for one var }
@ -1268,9 +1268,9 @@ implementation
else else
{$endif} {$endif}
abssym.addroffset:=Tordconstnode(pt).value.svalue; abssym.addroffset:=Tordconstnode(pt).value.svalue;
{$ifdef i386} {$if defined(i386) or defined(i8086)}
abssym.absseg:=false; 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 try_to_consume(_COLON) then
begin begin
pt.free; pt.free;

4
compiler/pexpr.pas
View File

@ -1857,8 +1857,8 @@ implementation
arraydef: arraydef:
begin begin
p2:=comp_expr(true,false); p2:=comp_expr(true,false);
{ support SEG:OFS for go32v2 Mem[] } { support SEG:OFS for go32v2/msdos Mem[] }
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
(p1.nodetype=loadn) and (p1.nodetype=loadn) and
assigned(tloadnode(p1).symtableentry) and assigned(tloadnode(p1).symtableentry) and
assigned(tloadnode(p1).symtableentry.owner.name) and assigned(tloadnode(p1).symtableentry.owner.name) and

4
compiler/symsym.pas
View File

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