+ llvm second_length() implementation (can't use generic one because of its

    use of cg.makeregsize())

git-svn-id: branches/hlcgllvm@28389 -

.gitattributes

@@ -346,6 +346,7 @@ compiler/llvm/nllvmadd.pas svneol=native#text/plain
 compiler/llvm/nllvmcal.pas svneol=native#text/plain
 compiler/llvm/nllvmcnv.pas svneol=native#text/plain
 compiler/llvm/nllvmcon.pas svneol=native#text/plain
+compiler/llvm/nllvminl.pas svneol=native#text/plain
 compiler/llvm/nllvmld.pas svneol=native#text/plain
 compiler/llvm/nllvmmat.pas svneol=native#text/plain
 compiler/llvm/nllvmmem.pas svneol=native#text/plain

compiler/llvm/llvmnode.pas

@@ -37,7 +37,7 @@ implementation
     ncgbas,ncgflw,ncgcnv,ncgld,ncgmem,ncgcon,ncgset,
     ncgadd,ncgcal,ncgmat,ncginl,
     tgllvm,hlcgllvm,
-    nllvmadd,nllvmcal,nllvmcnv,nllvmcon,nllvmld,nllvmmat,nllvmmem,
+    nllvmadd,nllvmcal,nllvmcnv,nllvmcon,nllvminl,nllvmld,nllvmmat,nllvmmem,
     nllvmtcon,nllvmutil,
     llvmpara;
 

compiler/llvm/nllvminl.pas

@@ -0,0 +1,107 @@
+{
+    Copyright (c) 2014 by Jonas Maebe
+
+    Generate LLVM bytecode for inline 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 nllvminl;
+
+{$i fpcdefs.inc}
+
+interface
+
+    uses
+      ncginl;
+
+    type
+      tllvminlinenode = class(tcginlinenode)
+        procedure second_length; override;
+      end;
+
+
+implementation
+
+     uses
+       verbose,globtype,
+       aasmbase, aasmdata,
+       symtype,symdef,defutil,
+       ninl,
+       pass_2,
+       cgbase,cgutils,tgobj,hlcgobj;
+
+
+    procedure tllvminlinenode.second_length;
+      var
+        lengthlab, nillab: tasmlabel;
+        hregister: tregister;
+        href, tempref: treference;
+        lendef: tdef;
+      begin
+        secondpass(left);
+        if is_shortstring(left.resultdef) then
+         begin
+            if not(left.location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) then
+              internalerror(2014080806);
+           { typecast the shortstring reference into a length byte reference }
+           location_reset_ref(location,left.location.loc,def_cgsize(resultdef),left.location.reference.alignment);
+           hregister:=hlcg.getaddressregister(current_asmdata.CurrAsmList,getpointerdef(resultdef));
+           hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.resultdef,getpointerdef(resultdef),left.location.reference,hregister);
+           hlcg.reference_reset_base(location.reference,getpointerdef(resultdef),hregister,0,left.location.reference.alignment);
+         end
+        else
+         begin
+           tg.gethltemp(current_asmdata.CurrAsmList,resultdef,resultdef.size,tt_normal,tempref);
+           { length in ansi/wide strings and high in dynamic arrays is at offset
+             -sizeof(sizeint), for widestrings it's at -4 }
+           if is_widestring(left.resultdef) then
+             lendef:=u32inttype
+           else
+             lendef:=ossinttype;
+           hlcg.location_force_reg(current_asmdata.CurrAsmList,left.location,
+             left.resultdef,getpointerdef(lendef),true);
+           current_asmdata.getjumplabel(nillab);
+           current_asmdata.getjumplabel(lengthlab);
+           hlcg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,getpointerdef(lendef),OC_EQ,0,left.location.register,nillab);
+           hlcg.reference_reset_base(href,getpointerdef(lendef),left.location.register,-lendef.size,lendef.alignment);
+           hregister:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
+           hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,lendef,resultdef,href,hregister);
+           if is_widestring(left.resultdef) then
+             hlcg.a_op_const_reg(current_asmdata.CurrAsmList,OP_SHR,resultdef,1,hregister);
+
+           { Dynamic arrays do not have their length attached but their maximum index }
+           if is_dynamic_array(left.resultdef) then
+             hlcg.a_op_const_reg(current_asmdata.CurrAsmList,OP_ADD,resultdef,1,hregister);
+           hlcg.a_load_reg_ref(current_asmdata.CurrAsmList,resultdef,resultdef,hregister,tempref);
+           hlcg.a_jmp_always(current_asmdata.CurrAsmList,lengthlab);
+
+           hlcg.a_label(current_asmdata.CurrAsmList,nillab);
+           hlcg.a_load_const_ref(current_asmdata.CurrAsmList,resultdef,0,tempref);
+
+           hlcg.a_label(current_asmdata.CurrAsmList,lengthlab);
+           hregister:=hlcg.getintregister(current_asmdata.CurrAsmList,resultdef);
+           hlcg.a_load_ref_reg(current_asmdata.CurrAsmList,resultdef,resultdef,tempref,hregister);
+           tg.ungettemp(current_asmdata.CurrAsmList,tempref);
+           location_reset(location,LOC_REGISTER,def_cgsize(resultdef));
+           location.register:=hregister;
+         end;
+      end;
+
+begin
+  cinlinenode:=tllvminlinenode;
+end.
+