freepascal.compiler/compiler/llvm/nllvmutil.pas

{
    Copyright (c) 20011 by Jonas Maebe

    LLVM version of some node tree helper routines

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

{$i fpcdefs.inc}

interface

  uses
    globtype,
    aasmdata,ngenutil,
    symtype,symconst,symsym,symdef;


  type
    tllvmnodeutils = class(tnodeutils)
     strict protected
      class procedure insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint); override;
     public
      class procedure InsertInitFinalTable; override;
      class procedure InsertThreadvarTablesTable; override;
      class procedure InsertThreadvars; override;
      class procedure InsertWideInitsTablesTable; override;
      class procedure InsertWideInits; override;
      class procedure InsertResourceTablesTable; override;
      class procedure InsertResourceInfo(ResourcesUsed : boolean); override;
      class procedure InsertMemorySizes; override;
    end;


implementation

    uses
      verbose,cutils,globals,fmodule,
      aasmtai,cpubase,llvmbase,aasmllvm,
      symbase,symtable,defutil;

  class procedure tllvmnodeutils.insertbsssym(list: tasmlist; sym: tstaticvarsym; size: asizeint);
    begin
      list.concat(taillvmvarsym.Create(sym));
    end;


  class procedure tllvmnodeutils.InsertInitFinalTable;
    begin
      { todo }
    end;


  class procedure tllvmnodeutils.InsertThreadvarTablesTable;
    begin
      { not yet supported }
    end;


  class procedure tllvmnodeutils.InsertThreadvars;
    begin
      { not yet supported }
    end;


  class procedure tllvmnodeutils.InsertWideInitsTablesTable;
    begin
      { not required }
    end;


  class procedure tllvmnodeutils.InsertWideInits;
    begin
      { not required }
    end;


  class procedure tllvmnodeutils.InsertResourceTablesTable;
    begin
      { not supported }
    end;


  class procedure tllvmnodeutils.InsertResourceInfo(ResourcesUsed: boolean);
    begin
      { not supported }
    end;


  class procedure tllvmnodeutils.InsertMemorySizes;
    begin
      { not required }
    end;


begin
  cnodeutils:=tllvmnodeutils;
end.