freepascal.compiler/compiler/x86/symi86.pas

{
    Copyright (c) 2014 by Florian Klaempfl

    Symbol table overrides for i386 and i8086

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

{$i fpcdefs.inc}

interface

uses
  symtype,symdef,symsym,symx86;

type

  { ti86procvardef }

  ti86procvardef = class(tx86procvardef)
    function is_pushleftright: boolean; override;
  end;

  { ti86procdef }

  ti86procdef = class(tx86procdef)
    function is_pushleftright: boolean; override;
  end;

  { ti86absolutevarsym }

  ti86absolutevarsym = class(tabsolutevarsym)
   protected
    procedure ppuload_platform(ppufile: tcompilerppufile); override;
    procedure ppuwrite_platform(ppufile: tcompilerppufile); override;
   public
    absseg  : boolean;
  end;

implementation

uses
  symconst;

{ ti86procvardef }

function ti86procvardef.is_pushleftright: boolean;
  begin
    result:=proccalloption in pushleftright_pocalls;
  end;

{ ti86procdef }

function ti86procdef.is_pushleftright: boolean;
  begin
    result:=proccalloption in pushleftright_pocalls;
  end;

{ ti86absolutevarsym }

procedure ti86absolutevarsym.ppuload_platform(ppufile: tcompilerppufile);
  begin
    inherited;
    if abstyp=toaddr then
      absseg:=ppufile.getboolean
    else
      absseg:=false;
  end;


procedure ti86absolutevarsym.ppuwrite_platform(ppufile: tcompilerppufile);
  begin
    inherited;
    if abstyp=toaddr then
      ppufile.putboolean(absseg);
  end;

end.