paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 21:09:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* LLVM support for writing vector types

Browse Source 
git-svn-id: trunk@43783 -
This commit is contained in:
Jonas Maebe 2019-12-24 22:12:34 +00:00
parent f5833dc048
commit 96dfe3d03a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/llvmdef.pas
View File

@ -464,7 +464,13 @@ implementation
end; end;
arraydef : arraydef :
begin 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 begin
encodedstr:=encodedstr+'[0 x '; encodedstr:=encodedstr+'[0 x ';
llvmaddencodedtype_intern(search_system_type('TVARREC').typedef,[lef_inaggregate],encodedstr); llvmaddencodedtype_intern(search_system_type('TVARREC').typedef,[lef_inaggregate],encodedstr);