freepascal.compiler/compiler/ncon.pas

{
    $Id$
    Copyright (c) 1998-2000 by Florian Klaempfl

    Type checking and register allocation for constants

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

{$i defines.inc}

interface

    uses
      globtype,node,aasm,cpuinfo,symconst;

    type
       trealconstnode = class(tnode)
          value_real : bestreal;
          lab_real : pasmlabel;
          // !!!!!!! needs at least create, getcopy
          function pass_1 : tnode;override;
       end;

       tfixconstnode = class(tnode)
          value_fix: longint;
          // !!!!!!! needs at least create, getcopy
          function pass_1 : tnode;override;
       end;

       tordconstnode = class(tnode)
          value : TConstExprInt;
          // !!!!!!! needs at least create, getcopy
          function pass_1 : tnode;override;
       end;

       tpointerconstnode = class(tnode)
          value : TPointerOrd;
          // !!!!!!! needs at least create, getcopy
          function pass_1 : tnode;override;
       end;

       tstringconstnode = class(tnode)
          value_str : pchar;
          length : longint;
          lab_str : pasmlabel;
          stringtype : tstringtype;
          // !!!!!!! needs at least create, getcopy, destroy
          function pass_1 : tnode;override;
       end;

       tsetconstnode = class(tnode)
          value_set : pconstset;
          lab_set : pasmlabel;
          // !!!!!!! needs at least create,  getcopy
          function pass_1 : tnode;override;
       end;

       tnilnode = class(tnode)
          // !!!!!!! needs at least create
          function pass_1 : tnode;override;
       end;

implementation

    uses
      cobjects,verbose,globals,systems,
      symtable,types,
      hcodegen,pass_1,cpubase;

{*****************************************************************************
                             TREALCONSTNODE
*****************************************************************************}

    function trealconstnode.pass_1 : tnode;
      begin
         pass_1:=nil;
         if (value_real=1.0) or (value_real=0.0) then
           begin
              location.loc:=LOC_FPU;
              registersfpu:=1;
           end
         else
           location.loc:=LOC_MEM;
      end;


{*****************************************************************************
                             TFIXCONSTNODE
*****************************************************************************}

    function tfixconstnode.pass_1 : tnode;
      begin
         pass_1:=nil;
         location.loc:=LOC_MEM;
      end;


{*****************************************************************************
                              TORDCONSTNODE
*****************************************************************************}

    function tordconstnode.pass_1 : tnode;
      begin
         pass_1:=nil;
         location.loc:=LOC_MEM;
      end;


{*****************************************************************************
                            TPOINTERCONSTNODE
*****************************************************************************}

    function tpointerconstnode.pass_1 : tnode;
      begin
         pass_1:=nil;
         location.loc:=LOC_MEM;
      end;


{*****************************************************************************
                             TSTRINGCONSTNODE
*****************************************************************************}

    function tstringconstnode.pass_1 : tnode;
      begin
         pass_1:=nil;
{        if cs_ansistrings in aktlocalswitches then
          resulttype:=cansistringdef
         else
          resulttype:=cshortstringdef; }
        case stringtype of
          st_shortstring :
            resulttype:=cshortstringdef;
          st_ansistring :
            resulttype:=cansistringdef;
          st_widestring :
            resulttype:=cwidestringdef;
          st_longstring :
            resulttype:=clongstringdef;
        end;
        location.loc:=LOC_MEM;
      end;


{*****************************************************************************
                             TSETCONSTNODE
*****************************************************************************}

    function tsetconstnode.pass_1 : tnode;
      begin
         pass_1:=nil;
         location.loc:=LOC_MEM;
      end;

{*****************************************************************************
                               TNILNODE
*****************************************************************************}

    function tnilnode.pass_1 : tnode;
      begin
        pass_1:=nil;
        resulttype:=voidpointerdef;
        location.loc:=LOC_MEM;
      end;

end.
{
  $Log$
  Revision 1.3  2000-09-24 21:15:34  florian
    * some errors fix to get more stuff compilable

  Revision 1.2  2000/09/24 15:06:19  peter
    * use defines.inc

  Revision 1.1  2000/09/22 21:44:48  florian
    + initial revision

}