Explorar el Código

* LLVM support for writing vector types

git-svn-id: trunk@43783 -
Jonas Maebe hace 5 años
padre
commit
96dfe3d03a
Se han modificado 1 ficheros con 7 adiciones y 1 borrados
  1. 7 1
      compiler/llvm/llvmdef.pas

+ 7 - 1
compiler/llvm/llvmdef.pas

@@ -464,7 +464,13 @@ implementation
             end;
           arraydef :
             begin
-              if is_array_of_const(def) then
+              if tarraydef(def).is_hwvector then
+                begin
+                  encodedstr:=encodedstr+'<'+tostr(tarraydef(def).elecount)+' x ';
+                  llvmaddencodedtype_intern(tarraydef(def).elementdef,[lef_inaggregate],encodedstr);
+                  encodedstr:=encodedstr+'>';
+                end
+              else if is_array_of_const(def) then
                 begin
                   encodedstr:=encodedstr+'[0 x ';
                   llvmaddencodedtype_intern(search_system_type('TVARREC').typedef,[lef_inaggregate],encodedstr);