freepascal.compiler/compiler/sparc/cpuelf.pas

{
    Copyright (c) 1998-2006 by Peter Vreman

    Includes ELF-related code specific to SPARC

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

{$i fpcdefs.inc}

interface

implementation

  uses
    verbose,
    systems,ogbase,ogelf,assemble;

  type
    TElfTargetSparc=class(TElfTarget)
      class function encodereloc(objrel:TObjRelocation):byte;override;
      class procedure loadreloc(objrel:TObjRelocation);override;
    end;

  const
    { Relocation types }
    R_SPARC_NONE = 0;
    R_SPARC_8 = 1;
    R_SPARC_16 = 2;
    R_SPARC_32 = 3;
    R_SPARC_DISP8 = 4;
    R_SPARC_DISP16 = 5;
    R_SPARC_DISP32 = 6;
    R_SPARC_WDISP30 = 7;
    R_SPARC_WDISP22 = 8;
    R_SPARC_HI22 = 9;
    R_SPARC_22 = 10;
    R_SPARC_13 = 11;
    R_SPARC_LO10 = 12;
    R_SPARC_GOT10 = 13;
    R_SPARC_GOT13 = 14;
    R_SPARC_GOT22 = 15;
    R_SPARC_PC10 = 16;
    R_SPARC_PC22 = 17;
    R_SPARC_WPLT30 = 18;
    R_SPARC_COPY = 19;
    R_SPARC_GLOB_DAT = 20;
    R_SPARC_JMP_SLOT = 21;
    R_SPARC_RELATIVE = 22;
    R_SPARC_UA32 = 23;
    R_SPARC_GNU_VTINHERIT = 250;
    R_SPARC_GNU_VTENTRY = 251;


{****************************************************************************
                               TElfTargetSparc
****************************************************************************}

   class function TElfTargetSparc.encodereloc(objrel:TObjRelocation):byte;
     begin
       case objrel.typ of
         RELOC_NONE :
           result:=R_SPARC_NONE;
         RELOC_ABSOLUTE :
           result:=R_SPARC_32;
         { TODO }
       else
         result:=0;
         InternalError(2012082303);
       end;
     end;


   class procedure TElfTargetSparc.loadreloc(objrel:TObjRelocation);
     begin
     end;



{*****************************************************************************
                                    Initialize
*****************************************************************************}

  const
    as_sparc_elf32_info : tasminfo =
       (
         id     : as_sparc_elf32;
         idtxt  : 'ELF';
         asmbin : '';
         asmcmd : '';
         supported_targets : [system_sparc_linux, system_sparc_solaris,
                              system_sparc_embedded];
//            flags : [af_outputbinary,af_smartlink_sections];
         flags : [af_outputbinary,af_supports_dwarf];
         labelprefix : '.L';
         comment : '';
         dollarsign: '$';
       );

initialization
  RegisterAssembler(as_sparc_elf32_info,TElfAssembler);
  ElfTarget:=TElfTargetSparc;

end.