+ implemented bool_to_int and int_to_int (+ helper in nppcutil)

compiler/powerpc/nppccnv.pas

@@ -0,0 +1,238 @@
+{
+    $Id$
+    Copyright (c) 1998-2000 by Florian Klaempfl
+
+    Generate PowerPC assembler for type converting 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 n386cnv;
+
+{$i defines.inc}
+
+interface
+
+    uses
+      node,ncnv,ncgcnv,types;
+
+    type
+       tppctypeconvnode = class(tcgtypeconvnode)
+         protected
+          procedure second_int_to_int;override;
+         { procedure second_string_to_string;override; }
+         { procedure second_cstring_to_pchar;override; }
+         { procedure second_string_to_chararray;override; }
+         { procedure second_array_to_pointer;override; }
+         { procedure second_pointer_to_array;override; }
+         { procedure second_chararray_to_string;override; }
+         { procedure second_char_to_string;override; }
+          procedure second_int_to_real;override;
+          procedure second_real_to_real;override;
+          procedure second_cord_to_pointer;override;
+         { procedure second_proc_to_procvar;override; }
+         { procedure second_bool_to_int;override; }
+          procedure second_int_to_bool;override;
+         { procedure second_load_smallset;override;  }
+         { procedure second_ansistring_to_pchar;override; }
+         { procedure second_pchar_to_string;override; }
+         { procedure second_class_to_intf;override; }
+         { procedure second_char_to_char;override; }
+          procedure pass_2;override;
+          procedure second_call_helper(c : tconverttype);
+       end;
+
+implementation
+
+   uses
+      verbose,globals,systems,
+      symconst,symdef,aasm,
+      cgbase,temp_gen,pass_2,
+      ncon,ncal,
+      cpubase,cpuasm,
+      cga,tgcpu;
+
+
+{*****************************************************************************
+                             SecondTypeConv
+*****************************************************************************}
+
+    procedure tppctypeconvnode.second_int_to_int;
+      var
+        fromsize,
+        tosize    : longint;
+        opsize,
+        tempsize  : tcgsize;
+
+      begin
+        { insert range check if not explicit conversion }
+        if not(nf_explizit in flags) then
+          emitrangecheck(left,resulttype.def);
+
+        fromsize := left.resulttype.def.size;
+        tosize := resulttype.def.size
+        { is the result size smaller ? }
+        if tosize < fromsize then
+          begin
+            opsize := def_cgsize(resulttype.def);
+            case left.location.loc of
+              LOC_REGISTER,LOC_CREGISTER:
+                begin
+                  if location = LOC_REGISTER then
+                    location.register:= left.location.register
+                  else
+                    location.register := getregister32;
+                  case opsize of
+                    OS_8:
+                      exprasmlist.concat(taicpu.op_reg_reg_const_const_const(
+                        A_RLWINM,location.register,left.location.register,
+                        0,24,31));
+                    OS_S8:
+                      exprasmlist.concat(taicpu.op_reg_reg(A_EXTSB,
+                        location.register,left.location.register));
+                    OS_16:
+                      exprasmlist.concat(taicpu.op_reg_reg_const_const_const(
+                        A_RLWINM,location.register,left.location.register,
+                        0,16,31));
+                    OS_S16:
+                      exprasmlist.concat(taicpu.op_reg_reg(A_EXTSH,
+                        location.register,left.location.register));
+                    else
+                      begin
+                        if location.register <> left.location.register then
+                          exprasmlist.concat(taicpu.op_reg_reg(A_MR,
+                            location.register,left.location.register));
+                        { we can release the upper register }
+                        if opsize in [OS_64,OS_S64] then
+                          ungetregister(left.location.registerhigh);
+                      end;
+                  end;
+                end;
+              LOC_REFERENCE,LOC_MEM:
+                begin
+                  set_location(location,left.location);
+                  increfofs(location.reference,fromsize-tosize);
+                end;
+            end;
+          end
+        { is the result size bigger ? }
+        else if resulttype.def.size>left.resulttype.def.size then
+          begin
+            opsize := def_cgsize(fromsize);
+            location.loc := LOC_REGISTER;
+            case left.location.loc of
+              LOC_REFERENCE,LOC_MEM:
+                begin
+                  del_reference(left.location.reference);
+                  location.register := getregister32;
+                  if not (opsize in [OS_64,OS_S64]) then
+                    tempsize := pred(opsize)
+                  else
+                    tempsize := opsize;
+                  { this one takes care of the necessary sign extensions }
+                  cg.a_load_ref_reg(exprasmlist,tempsize,
+                    left.location.reference,location.register);
+                  ungetiftemp(left.location.reference);
+                end;
+              LOC_CREGISTER:
+                { since we only have 32bit registers and everything is }
+                { always loaded with sign-extending or zeroeing        }
+                { instructions as appropriate, the source will contain }
+                { the correct value already, so simply copy it         }
+                begin
+                  location.register := getregister32;
+                  exprasmlist.concat(taicpu.op_reg_reg(A_MR,location.register,
+                    left.location.register));
+                end;
+              { see LOC_CREGISTER }
+              LOC_REGISTER:;
+            end;
+            { sign extend even further if necessary }
+            if opsize in [OS_64,OS_S64] then
+              begin
+                location.registerhigh := getregister32;
+                if (opsize = OS_64) then
+                  cg.a_load_const_reg(exprasmlist,OS_32,0,
+                    location.registerhigh)
+                else
+                  { duplicate the sign bit 32 times in the high reg }
+                  exprasmlist.concat(taicpu.op_reg_reg_const(A_SRAWI,
+                    location.registerhigh,location.register,31));
+              end;
+          end;
+      end;
+
+
+    procedure tppctypeconvnode.second_int_to_bool;
+      var
+        hreg1,
+        hreg2    : tregister;
+        resflags : tresflags;
+        opsize   : tcgsize;
+      begin
+         clear_location(location);
+         { byte(boolean) or word(wordbool) or longint(longbool) must
+         be accepted for var parameters }
+         if (nf_explizit in flags) and
+            (left.resulttype.def.size=resulttype.def.size) and
+            (left.location.loc in [LOC_REFERENCE,LOC_MEM,LOC_CREGISTER]) then
+           begin
+              set_location(location,left.location);
+              exit;
+           end;
+         location.loc:=LOC_REGISTER;
+         opsize := def_cgsize(left.resulttype.def);
+         case left.location.loc of
+            LOC_MEM,LOC_REFERENCE,LOC_REGISTER,LOC_CREGISTER :
+              begin
+                if left.location.loc in [LOC_MEM,LOC_REFERENCE] then
+                  begin
+                    del_reference(left.location);
+                    hreg2:=getregister32;
+                    cg.a_load_ref_reg(exprasmlist,opsize,
+                      left.location.reference,hreg2);
+                  end
+                else
+                  hreg2 := left.location.register;
+                hreg1 := getregister32;
+                exprasmlist.concat(taicpu.op_reg_reg_const(A_SUBIC,hreg1,
+                  hreg2,1);
+                exprasmlist.concat(taicpu.op_reg_reg_reg(A_SUBFE,hreg1,hreg1,
+                  hreg2);
+                ungetregister(hreg2);
+              end;
+            LOC_FLAGS :
+              begin
+                hreg1:=getregister32;
+                resflags:=left.location.resflags;
+                emit_flag2reg(resflags,hreg1);
+              end;
+            else
+              internalerror(10062);
+         end;
+         location.register := hreg1;
+      end;
+
+begin
+   ctypeconvnode:=tppctypeconvnode;
+end.
+{
+  $Log$
+  Revision 1.1  2001-09-29 21:33:12  jonas
+    + implemented bool_to_int and int_to_int (+ helper in nppcutil)
+
+
+}

compiler/powerpc/nppcutil.pas

@@ -0,0 +1,73 @@
+{
+    $Id$
+    Copyright (c) 1998-2000 by Florian Klaempfl
+
+    Helper routines for the PowerPC code generator
+
+    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 n386util;
+
+{$i defines.inc}
+
+interface
+
+    uses
+      symtype,node,cpubase;
+
+    procedure increfofs(var ref: treference; amount: longint);
+
+implementation
+
+    uses
+       globtype,globals,systems,verbose,
+       cutils,
+       aasm,cpuasm,
+       symconst,symbase,symdef,symsym,symtable,
+{$ifdef GDB}
+       gdb,
+{$endif GDB}
+       types,
+       ncon,nld,
+       pass_1,pass_2,
+       cgbase,tgcpu,temp_gen,
+       cga,regvars,cgobj,cgcpu;
+
+
+    procedure increfofs(var ref: treference; amount: longint);
+
+      begin
+        if (ref.index = R_NO) and
+           ((ref.offset + amount) >= low(smallint)) and
+           ((ref.offset + amount) <= high(smallint)) then
+          inc(offset,amount)
+        else
+          begin
+            cg.load_address_ref_reg(exprasmlist,ref,ref.base);
+            ref.index := R_NO;
+            ref.symbol := nil;
+            ref.offset := amount;
+      end;
+
+end.
+{
+  $Log$
+  Revision 1.1  2001-09-29 21:33:12  jonas
+    + implemented bool_to_int and int_to_int (+ helper in nppcutil)
+
+
+}