+ initial (and not yet fully complete) implementation of far pointers on the i8086

git-svn-id: trunk@24553 -

.gitattributes

@@ -250,6 +250,7 @@ compiler/i8086/n8086add.pas svneol=native#text/plain
 compiler/i8086/n8086cal.pas svneol=native#text/plain
 compiler/i8086/n8086inl.pas svneol=native#text/plain
 compiler/i8086/n8086mat.pas svneol=native#text/plain
+compiler/i8086/n8086mem.pas svneol=native#text/plain
 compiler/i8086/r8086ari.inc svneol=native#text/plain
 compiler/i8086/r8086att.inc svneol=native#text/plain
 compiler/i8086/r8086con.inc svneol=native#text/plain

compiler/i8086/cpunode.pas

@@ -48,11 +48,10 @@ unit cpunode;
        nx86set,
        nx86con,
        nx86cnv,
-       nx86mem,
 
        n8086add,
-       n8086cal{,
-       n386mem,
+       n8086cal,
+       n8086mem{,
        n386set},
        n8086inl,
        n8086mat

compiler/i8086/n8086mem.pas

@@ -0,0 +1,132 @@
+{
+    Copyright (c) 1998-2002 by Florian Klaempfl
+
+    Generate i8086 assembler for in memory related nodes
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+ ****************************************************************************
+}
+unit n8086mem;
+
+{$i fpcdefs.inc}
+
+interface
+
+    uses
+      globtype,
+      cgbase,cpuinfo,cpubase,
+      node,nmem,ncgmem,nx86mem;
+
+    type
+       ti8086derefnode = class(tx86derefnode)
+         procedure pass_generate_code;override;
+       end;
+
+implementation
+
+    uses
+      systems,globals,
+      cutils,verbose,
+      symbase,symconst,symdef,symtable,symtype,symsym,
+      parabase,paramgr,
+      aasmtai,aasmdata,
+      nld,ncon,nadd,
+      cgutils,cgobj,
+      defutil,hlcgobj,
+      pass_2,ncgutil;
+
+{*****************************************************************************
+                             TI8086DEREFNODE
+*****************************************************************************}
+
+    procedure ti8086derefnode.pass_generate_code;
+      var
+        paraloc1 : tcgpara;
+        pd : tprocdef;
+        sym : tsym;
+        st : tsymtable;
+        tmpref: treference;
+      begin
+        if tpointerdef(left.resultdef).x86pointertyp in [x86pt_far,x86pt_huge] then
+          begin
+            secondpass(left);
+            { assume natural alignment, except for packed records }
+            if not(resultdef.typ in [recorddef,objectdef]) or
+               (tabstractrecordsymtable(tabstractrecorddef(resultdef).symtable).usefieldalignment<>1) then
+              location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),resultdef.alignment)
+            else
+              location_reset_ref(location,LOC_REFERENCE,def_cgsize(resultdef),1);
+            if not(left.location.loc in [LOC_CREGISTER,LOC_REGISTER,LOC_CREFERENCE,LOC_REFERENCE,LOC_CONSTANT]) then
+              hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,left.resultdef,left.resultdef,true);
+            case left.location.loc of
+               LOC_CREGISTER,
+               LOC_REGISTER:
+                 begin
+                   maybechangeloadnodereg(current_asmdata.CurrAsmList,left,true);
+                   location.reference.base := left.location.register;
+                   location.reference.segment := GetNextReg(left.location.register);
+                 end;
+               LOC_CREFERENCE,
+               LOC_REFERENCE:
+                 begin
+                    location.reference.base:=cg.getaddressregister(current_asmdata.CurrAsmList);
+                    cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_16,OS_16,left.location.reference,location.reference.base);
+                    location.reference.segment:=cg.getintregister(current_asmdata.CurrAsmList,OS_16);
+                    tmpref:=left.location.reference;
+                    inc(tmpref.offset,2);
+                    cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_16,OS_16,tmpref,location.reference.segment);
+                 end;
+               LOC_CONSTANT:
+                 begin
+                   location.reference.offset:=left.location.value and $FFFF;
+                   location.reference.segment:=cg.getintregister(current_asmdata.CurrAsmList,OS_16);
+                   cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_16,(left.location.value shr 16) and $FFFF,location.reference.segment);
+                 end;
+               else
+                 internalerror(200507031);
+            end;
+            if (cs_use_heaptrc in current_settings.globalswitches) and
+               (cs_checkpointer in current_settings.localswitches) and
+               not(cs_compilesystem in current_settings.moduleswitches) and
+   {$ifdef x86}
+               (tpointerdef(left.resultdef).x86pointertyp = default_x86_data_pointer_type) and
+   {$endif x86}
+               not(nf_no_checkpointer in flags) and
+               { can be NR_NO in case of LOC_CONSTANT }
+               (location.reference.base<>NR_NO) then
+             begin
+               if not searchsym_in_named_module('HEAPTRC','CHECKPOINTER',sym,st) or
+                  (sym.typ<>procsym) then
+                 internalerror(2012010601);
+               pd:=tprocdef(tprocsym(sym).ProcdefList[0]);
+               paraloc1.init;
+               paramanager.getintparaloc(pd,1,paraloc1);
+               hlcg.a_load_reg_cgpara(current_asmdata.CurrAsmList,resultdef,location.reference.base,paraloc1);
+               paramanager.freecgpara(current_asmdata.CurrAsmList,paraloc1);
+               paraloc1.done;
+               hlcg.allocallcpuregisters(current_asmdata.CurrAsmList);
+               hlcg.a_call_name(current_asmdata.CurrAsmList,pd,'FPC_CHECKPOINTER',nil,false);
+               hlcg.deallocallcpuregisters(current_asmdata.CurrAsmList);
+             end;
+          end
+        else
+          inherited pass_generate_code;
+      end;
+
+
+begin
+  cderefnode:=ti8086derefnode;
+end.

compiler/x86/nx86mem.pas

@@ -63,8 +63,13 @@ implementation
            x86pt_near_es: location.reference.segment:=NR_ES;
            x86pt_near_fs: location.reference.segment:=NR_FS;
            x86pt_near_gs: location.reference.segment:=NR_GS;
+{$ifdef i8086}
+           x86pt_far,
+           x86pt_huge: {do nothing; handled in ti8086derefnode};
+{$else i8086}
            x86pt_far: internalerror(2013050401);
            x86pt_huge: internalerror(2013050402);
+{$endif i8086}
            else
              internalerror(2013050403);
          end;