octave: libinterp/parse-tree/jit-typeinfo.cc annotate

annotate libinterp/parse-tree/jit-typeinfo.cc @ 28223:45763d59cb4f stable

use nullptr instead of NULL or 0 in a few more places * QWinTerminalImpl.cpp, oct-procbuf.cc, audioread.cc, jit-typeinfo.cc, lo-sysdep.cc, url-transfer.cc, shared-fcns.h: Replace NULL and 0 with nullptr where appropriate.

author	John W. Eaton <jwe@octave.org>
date	Wed, 15 Apr 2020 15:55:32 -0400
parents	a4268efb7334
children	98192ec1621f 0a5b15007766

rev	line source
27923 bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	1 ////////////////////////////////////////////////////////////////////////
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	2 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	3 // Copyright (C) 2012-2020 The Octave Project Developers
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	4 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	5 // See the file COPYRIGHT.md in the top-level directory of this
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	6 // distribution or <https://octave.org/copyright/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	7 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	8 // This file is part of Octave.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	9 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	10 // Octave is free software: you can redistribute it and/or modify it
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	11 // under the terms of the GNU General Public License as published by
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	12 // the Free Software Foundation, either version 3 of the License, or
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	13 // (at your option) any later version.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	14 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	15 // Octave is distributed in the hope that it will be useful, but
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	16 // WITHOUT ANY WARRANTY; without even the implied warranty of
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	18 // GNU General Public License for more details.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	19 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	20 // You should have received a copy of the GNU General Public License
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	21 // along with Octave; see the file COPYING. If not, see
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	22 // <https://www.gnu.org/licenses/>.
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	23 //
bd51beb6205e update formatting of copyright notices John W. Eaton <jwe@octave.org> parents: 27919 diff changeset	24 ////////////////////////////////////////////////////////////////////////
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	25
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	26 // defines required by llvm
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	27 #define __STDC_LIMIT_MACROS
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	28 #define __STDC_CONSTANT_MACROS
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	29
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	30 #if defined (HAVE_CONFIG_H)
21301 40de9f8f23a6 Use '#include "config.h"' rather than <config.h>. Rik <rik@octave.org> parents: 21200 diff changeset	31 # include "config.h"
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	32 #endif
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	33
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	34 #if defined (HAVE_LLVM)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	35
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	36 #if defined (HAVE_LLVM_IR_VERIFIER_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	37 # include <llvm/IR/Verifier.h>
18831 4a4edf0f2077 fix LLVM 3.4 build (bug #41061) Stefan Mahr <dac922@gmx.de> parents: 18446 diff changeset	38 #else
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	39 # include <llvm/Analysis/Verifier.h>
18831 4a4edf0f2077 fix LLVM 3.4 build (bug #41061) Stefan Mahr <dac922@gmx.de> parents: 18446 diff changeset	40 #endif
4a4edf0f2077 fix LLVM 3.4 build (bug #41061) Stefan Mahr <dac922@gmx.de> parents: 18446 diff changeset	41
17164 36fd98b9ce48 Add support for llvm 3.3 Max Brister <max@2bass.com> parents: 17031 diff changeset	42 #include <llvm/ExecutionEngine/ExecutionEngine.h>
36fd98b9ce48 Add support for llvm 3.3 Max Brister <max@2bass.com> parents: 17031 diff changeset	43
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	44 #if defined (HAVE_LLVM_IR_FUNCTION_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	45 # include <llvm/IR/GlobalVariable.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	46 # include <llvm/IR/LLVMContext.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	47 # include <llvm/IR/Function.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	48 # include <llvm/IR/Instructions.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	49 # include <llvm/IR/Intrinsics.h>
17164 36fd98b9ce48 Add support for llvm 3.3 Max Brister <max@2bass.com> parents: 17031 diff changeset	50 #else
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	51 # include <llvm/GlobalVariable.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	52 # include <llvm/LLVMContext.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	53 # include <llvm/Function.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	54 # include <llvm/Instructions.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	55 # include <llvm/Intrinsics.h>
17164 36fd98b9ce48 Add support for llvm 3.3 Max Brister <max@2bass.com> parents: 17031 diff changeset	56 #endif
36fd98b9ce48 Add support for llvm 3.3 Max Brister <max@2bass.com> parents: 17031 diff changeset	57
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	58 #if defined (HAVE_LLVM_SUPPORT_IRBUILDER_H)
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	59 # include <llvm/Support/IRBuilder.h>
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	60 # elif defined(HAVE_LLVM_IR_IRBUILDER_H)
fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	61 # include <llvm/IR/IRBuilder.h>
17031 38bcfd413db0 Handle LLVM API incoherence. Octave now works with LLVM 3.0, 3.1, and 3.2 LYH <lyh.kernel@gmail.com> parents: 16892 diff changeset	62 #else
21200 fcac5dbbf9ed maint: Indent #ifdef blocks in libinterp. Rik <rik@octave.org> parents: 21102 diff changeset	63 # include <llvm/IRBuilder.h>
17031 38bcfd413db0 Handle LLVM API incoherence. Octave now works with LLVM 3.0, 3.1, and 3.2 LYH <lyh.kernel@gmail.com> parents: 16892 diff changeset	64 #endif
17164 36fd98b9ce48 Add support for llvm 3.3 Max Brister <max@2bass.com> parents: 17031 diff changeset	65
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	66 #include <llvm/Support/raw_os_ostream.h>
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	67
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	68 #include "jit-typeinfo.h"
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	69 #include "pt-jit.h"
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	70 #include "jit-ir.h"
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	71 #include "ov.h"
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	72 #include "ov-builtin.h"
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	73 #include "ov-complex.h"
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	74 #include "ov-scalar.h"
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	75 #include "pager.h"
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	76 #include "interpreter-private.h"
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	77
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	78 namespace octave
15027 741d2dbcc117 Check trip count before compiling for loops. Max Brister <max@2bass.com> parents: 15019 diff changeset	79 {
26535 d68381feb6cb jit: Avoid the use of llvm::getGlobalContext, removed in LLVM 3.9 Julien Bect <jbect@users.sourceforge.net> parents: 26376 diff changeset	80 static llvm::LLVMContext& context = tree_jit::llvm_context;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	81
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	82 std::ostream& jit_print (std::ostream& os, jit_type *atype)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	83 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	84 if (! atype)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	85 return os << "null";
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	86 return os << atype->name ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	87 }
15027 741d2dbcc117 Check trip count before compiling for loops. Max Brister <max@2bass.com> parents: 15019 diff changeset	88
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	89 // function that jit code calls
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	90 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	91 octave_jit_print_any (const char name, octave_base_value obv)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	92 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	93 obv->print_with_name (octave_stdout, name, true);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	94 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	95
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	96 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	97 octave_jit_print_scalar (const char *name, double value)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	98 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	99 // FIXME: We should avoid allocating a new octave_scalar each time
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	100 octave_value ov (value);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	101 ov.print_with_name (octave_stdout, name);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	102 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	103
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	104 extern "C" octave_base_value*
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	105 octave_jit_binary_any_any (octave_value::binary_op op, octave_base_value *lhs,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	106 octave_base_value *rhs)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	107 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	108 octave_value olhs (lhs, true);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	109 octave_value orhs (rhs, true);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	110 octave_value result = do_binary_op (op, olhs, orhs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	111 octave_base_value *rep = result.internal_rep ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	112 rep->grab ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	113 return rep;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	114 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	115
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	116 extern "C" octave_idx_type
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	117 octave_jit_compute_nelem (double base, double limit, double inc)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	118 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	119 Range rng = Range (base, limit, inc);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	120 return rng.numel ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	121 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	122
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	123 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	124 octave_jit_release_any (octave_base_value *obv)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	125 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	126 obv->release ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	127 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	128
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	129 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	130 octave_jit_release_matrix (jit_matrix *m)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	131 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	132 delete m->m_array;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	133 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	134
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	135 extern "C" octave_base_value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	136 octave_jit_grab_any (octave_base_value *obv)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	137 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	138 obv->grab ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	139 return obv;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	140 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	141
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	142 extern "C" jit_matrix
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	143 octave_jit_grab_matrix (jit_matrix *m)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	144 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	145 return *m->m_array;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	146 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	147
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	148 extern "C" octave_base_value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	149 octave_jit_cast_any_matrix (jit_matrix *m)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	150 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	151 octave_value ret (*m->m_array);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	152 octave_base_value *rep = ret.internal_rep ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	153 rep->grab ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	154 delete m->m_array;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	155
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	156 return rep;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	157 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	158
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	159 extern "C" jit_matrix
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	160 octave_jit_cast_matrix_any (octave_base_value *obv)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	161 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	162 NDArray m = obv->array_value ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	163 obv->release ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	164 return m;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	165 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	166
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	167 extern "C" octave_base_value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	168 octave_jit_cast_any_range (jit_range *rng)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	169 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	170 Range temp (*rng);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	171 octave_value ret (temp);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	172 octave_base_value *rep = ret.internal_rep ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	173 rep->grab ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	174
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	175 return rep;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	176 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	177 extern "C" jit_range
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	178 octave_jit_cast_range_any (octave_base_value *obv)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	179 {
15068 f57d7578c1a6 Support ND matrix indexing with scalar assignment in JIT. Max Brister <max@2bass.com> parents: 15067 diff changeset	180
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	181 jit_range r (obv->range_value ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	182 obv->release ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	183 return r;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	184 }
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20228 diff changeset	185
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	186 extern "C" double
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	187 octave_jit_cast_scalar_any (octave_base_value *obv)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	188 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	189 double ret = obv->double_value ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	190 obv->release ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	191 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	192 }
15067 df4538e3b50b ND scalar indexing in JIT. Max Brister <max@2bass.com> parents: 15056 diff changeset	193
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	194 extern "C" octave_base_value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	195 octave_jit_cast_any_scalar (double value)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	196 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	197 return new octave_scalar (value);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	198 }
20535 b70cc4bd8109 begin removal of global error_state variable John W. Eaton <jwe@octave.org> parents: 20228 diff changeset	199
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	200 extern "C" Complex
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	201 octave_jit_cast_complex_any (octave_base_value *obv)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	202 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	203 Complex ret = obv->complex_value ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	204 obv->release ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	205 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	206 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	207
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	208 extern "C" octave_base_value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	209 octave_jit_cast_any_complex (Complex c)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	210 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	211 if (c.imag () == 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	212 return new octave_scalar (c.real ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	213 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	214 return new octave_complex (c);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	215 }
15068 f57d7578c1a6 Support ND matrix indexing with scalar assignment in JIT. Max Brister <max@2bass.com> parents: 15067 diff changeset	216
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	217 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	218 octave_jit_err_nan_to_logical_conversion (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	219 {
25336 389757b7b6af eliminate redundant octave:: namespace tags John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	220 err_nan_to_logical_conversion ();
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	221 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	222
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	223 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	224 octave_jit_ginvalid_index (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	225 {
27102 84ff9953faa1 where possible, eliminate octave:: namespace qualifier inside octave namespace John W. Eaton <jwe@octave.org> parents: 26596 diff changeset	226 // FIXME: 0-argument form of err_invalid_index removed in
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	227 // cset dd6345fd8a97. Report -1 as the bad index for all
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	228 // occurrences.
25336 389757b7b6af eliminate redundant octave:: namespace tags John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	229 err_invalid_index (static_cast<octave_idx_type> (-1));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	230 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	231
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	232 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	233 octave_jit_gindex_range (int nd, int dim, octave_idx_type iext,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	234 octave_idx_type ext)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	235 {
25336 389757b7b6af eliminate redundant octave:: namespace tags John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	236 err_index_out_of_range (nd, dim, iext, ext);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	237 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	238
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	239 extern "C" jit_matrix
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	240 octave_jit_paren_subsasgn_impl (jit_matrix *mat, octave_idx_type index,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	241 double value)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	242 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	243 NDArray *array = mat->m_array;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	244 if (array->numel () < index)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	245 array->resize1 (index);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	246
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	247 double *data = array->fortran_vec ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	248 data[index - 1] = value;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	249
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	250 mat->update ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	251 return *mat;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	252 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	253
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	254 static void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	255 make_indices (double *indices, octave_idx_type idx_count,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	256 Array<idx_vector>& result)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	257 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	258 result.resize (dim_vector (1, idx_count));
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	259 for (octave_idx_type i = 0; i < idx_count; ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	260 result(i) = idx_vector (indices[i]);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	261 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	262
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	263 extern "C" double
27956 2310164737b3 fix many spelling errors (bug #57613) John W. Eaton <jwe@octave.org> parents: 26535 diff changeset	264 octave_jit_paren_scalar (jit_matrix mat, double indices,
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	265 octave_idx_type idx_count)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	266 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	267 // FIXME: Replace this with a more optimal version
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	268 Array<idx_vector> idx;
27956 2310164737b3 fix many spelling errors (bug #57613) John W. Eaton <jwe@octave.org> parents: 26535 diff changeset	269 make_indices (indices, idx_count, idx);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	270
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	271 Array<double> ret = mat->m_array->index (idx);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	272
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	273 return ret.xelem (0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	274 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	275
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	276 extern "C" jit_matrix
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	277 octave_jit_paren_scalar_subsasgn (jit_matrix mat, double indices,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	278 octave_idx_type idx_count, double value)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	279 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	280 // FIXME: Replace this with a more optimal version
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	281 jit_matrix ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	282
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	283 Array<idx_vector> idx;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	284 make_indices (indices, idx_count, idx);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	285
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	286 Matrix temp (1, 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	287 temp.xelem(0) = value;
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	288 mat->m_array->assign (idx, temp);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	289 ret.update (mat->m_array);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	290
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	291 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	292 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	293
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	294 extern "C" jit_matrix
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	295 octave_jit_paren_subsasgn_matrix_range (jit_matrix mat, jit_range index,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	296 double value)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	297 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	298 NDArray *array = mat->m_array;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	299 bool done = false;
15102 d29f2583cf7b Support end in multi indexing in JIT Max Brister <max@2bass.com> parents: 15096 diff changeset	300
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	301 // optimize for the simple case (no resizing and no errors)
27447 396996f1dad0 use std::atomic to implement refcount class John W. Eaton <jwe@octave.org> parents: 27277 diff changeset	302 if (array->jit_ref_count () == 1
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	303 && index->all_elements_are_ints ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	304 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	305 // this code is similar to idx_vector::fill, but we avoid allocating an
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	306 // idx_vector and its associated rep
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	307 octave_idx_type start = static_cast<octave_idx_type> (index->m_base)-1;
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	308 octave_idx_type step = static_cast<octave_idx_type> (index->m_inc);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	309 octave_idx_type nelem = index->m_nelem;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	310 octave_idx_type final = start + nelem * step;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	311 if (step < 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	312 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	313 step = -step;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	314 std::swap (final, start);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	315 }
15102 d29f2583cf7b Support end in multi indexing in JIT Max Brister <max@2bass.com> parents: 15096 diff changeset	316
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	317 if (start >= 0 && final < mat->m_slice_len)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	318 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	319 done = true;
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15334 diff changeset	320
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	321 double *data = array->jit_slice_data ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	322 if (step == 1)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	323 std::fill (data + start, data + start + nelem, value);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	324 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	325 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	326 for (octave_idx_type i = start; i < final; i += step)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	327 data[i] = value;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	328 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	329 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	330 }
15893 1f076c40c133 Do not use vectorized llvm commands for complex numbers Max Brister <max@2bass.com> parents: 15603 diff changeset	331
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	332 if (! done)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	333 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	334 idx_vector idx (*index);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	335 NDArray avalue (dim_vector (1, 1));
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	336 avalue.xelem (0) = value;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	337 array->assign (idx, avalue);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	338 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	339
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	340 jit_matrix ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	341 ret.update (array);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	342 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	343 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	344
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	345 extern "C" double
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	346 octave_jit_end_matrix (jit_matrix *mat, octave_idx_type idx,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	347 octave_idx_type count)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	348 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	349 octave_idx_type ndim = mat->m_dimensions[-1];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	350 if (ndim == count)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	351 return mat->m_dimensions[idx];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	352 else if (ndim > count)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	353 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	354 if (idx == count - 1)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	355 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	356 double ret = mat->m_dimensions[idx];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	357 for (octave_idx_type i = idx + 1; i < ndim; ++i)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	358 ret *= mat->m_dimensions[idx];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	359 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	360 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	361
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	362 return mat->m_dimensions[idx];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	363 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	364 else // ndim < count
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	365 return idx < ndim ? mat->m_dimensions[idx] : 1;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	366 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	367
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	368 extern "C" octave_base_value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	369 octave_jit_create_undef (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	370 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	371 octave_value undef;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	372 octave_base_value *ret = undef.internal_rep ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	373 ret->grab ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	374
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	375 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	376 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	377
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	378 extern "C" Complex
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	379 octave_jit_complex_mul (Complex lhs, Complex rhs)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	380 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	381 if (lhs.imag () == 0 && rhs.imag() == 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	382 return Complex (lhs.real () * rhs.real (), 0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	383
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	384 return lhs * rhs;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	385 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	386
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	387 extern "C" Complex
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	388 octave_jit_complex_div (Complex lhs, Complex rhs)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	389 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	390 return lhs / rhs;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	391 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	392
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	393 // FIXME: CP form src/xpow.cc
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	394 static inline int
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	395 xisint (double x)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	396 {
25336 389757b7b6af eliminate redundant octave:: namespace tags John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	397 return (math::x_nint (x) == x
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	398 && ((x >= 0 && x < std::numeric_limits<int>::max ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	399 \|\| (x <= 0 && x > std::numeric_limits<int>::min ())));
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	400 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	401
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	402 extern "C" Complex
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	403 octave_jit_pow_scalar_scalar (double lhs, double rhs)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	404 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	405 // FIXME: almost CP from src/xpow.cc
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	406 if (lhs < 0.0 && ! xisint (rhs))
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	407 return std::pow (Complex (lhs), rhs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	408 return std::pow (lhs, rhs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	409 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	410
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	411 extern "C" Complex
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	412 octave_jit_pow_complex_complex (Complex lhs, Complex rhs)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	413 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	414 if (lhs.imag () == 0 && rhs.imag () == 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	415 return octave_jit_pow_scalar_scalar (lhs.real (), rhs.real ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	416 return std::pow (lhs, rhs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	417 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	418
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	419 extern "C" Complex
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	420 octave_jit_pow_complex_scalar (Complex lhs, double rhs)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	421 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	422 if (lhs.imag () == 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	423 return octave_jit_pow_scalar_scalar (lhs.real (), rhs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	424 return std::pow (lhs, rhs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	425 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	426
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	427 extern "C" Complex
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	428 octave_jit_pow_scalar_complex (double lhs, Complex rhs)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	429 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	430 if (rhs.imag () == 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	431 return octave_jit_pow_scalar_scalar (lhs, rhs.real ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	432 return std::pow (lhs, rhs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	433 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	434
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	435 extern "C" void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	436 octave_jit_print_matrix (jit_matrix *m)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	437 {
26003 c60a5493688a avoid std::cout in JIT compiler code John W. Eaton <jwe@octave.org> parents: 25952 diff changeset	438 octave_stdout << *m << std::endl;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	439 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	440
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	441 OCTAVE_NORETURN static
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	442 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	443 err_bad_result (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	444 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	445 error ("incorrect type information given to the JIT compiler");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	446 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	447
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	448 // FIXME: Add support for multiple outputs
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	449 extern "C" octave_base_value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	450 octave_jit_call (octave_builtin::fcn fn, size_t nargin,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	451 octave_base_value *argin, jit_type result_type)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	452 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	453 octave_value_list ovl (nargin);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	454 for (size_t i = 0; i < nargin; ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	455 ovl.xelem (i) = octave_value (argin[i]);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	456
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	457 ovl = fn (ovl, 1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	458
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	459 // FIXME: Check result_type somehow
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	460 if (result_type)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	461 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	462 if (ovl.length () < 1)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	463 err_bad_result ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	464
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	465 octave_value result = ovl.xelem(0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	466 octave_base_value *ret = result.internal_rep ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	467 ret->grab ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	468 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	469 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	470
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	471 if (! (ovl.empty ()
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	472 \|\| (ovl.length () == 1 && ovl.xelem (0).is_undefined ())))
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	473 err_bad_result ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	474
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	475 return 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	476 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	477
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	478
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	479 // -------------------- jit_range --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	480 bool
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	481 jit_range::all_elements_are_ints () const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	482 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	483 Range r (*this);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	484 return r.all_elements_are_ints ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	485 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	486
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	487 std::ostream&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	488 operator<< (std::ostream& os, const jit_range& rng)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	489 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	490 return os << "Range[" << rng.m_base << ", " << rng.m_limit
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	491 << ", " << rng.m_inc << ", " << rng.m_nelem << ']';
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	492 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	493
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	494
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	495 // -------------------- jit_matrix --------------------
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	496
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	497 std::ostream&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	498 operator<< (std::ostream& os, const jit_matrix& mat)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	499 {
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	500 return os << "Matrix[" << mat.m_ref_count << ", "
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	501 << mat.m_slice_data << ", " << mat.m_slice_len << ", "
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	502 << mat.m_dimensions << ", " << mat.m_array << ']';
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	503 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	504
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	505
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	506 // -------------------- jit_type --------------------
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	507
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	508 jit_type::jit_type (const std::string& aname, jit_type *aparent,
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	509 llvm::Type *allvm_type, bool askip_paren, int aid)
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	510 : m_name (aname), m_parent (aparent), m_llvm_type (allvm_type), m_id (aid),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	511 m_depth (aparent ? aparent->m_depth + 1 : 0), m_skip_paren (askip_paren)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	512 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	513 std::memset (m_sret, 0, sizeof (m_sret));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	514 std::memset (m_pointer_arg, 0, sizeof (m_pointer_arg));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	515 std::memset (m_pack, 0, sizeof (m_pack));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	516 std::memset (m_unpack, 0, sizeof (m_unpack));
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	517
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	518 for (size_t i = 0; i < jit_convention::length; ++i)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	519 m_packed_type[i] = m_llvm_type;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	520 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	521
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	522 llvm::Type *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	523 jit_type::to_llvm_arg (void) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	524 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	525 return m_llvm_type ? m_llvm_type->getPointerTo () : nullptr;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	526 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	527
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	528 jit_type*
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	529 jit_type_join (jit_type lhs, jit_type rhs)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	530 {
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	531 // empty case
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	532 if (! lhs)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	533 return rhs;
24248 af23baa0a9da jit: Move join() outside of class jit_typeinfo, renamed to jit_type_join() Julien Bect <jbect@users.sourceforge.net> parents: 24247 diff changeset	534
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	535 if (! rhs)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	536 return lhs;
24248 af23baa0a9da jit: Move join() outside of class jit_typeinfo, renamed to jit_type_join() Julien Bect <jbect@users.sourceforge.net> parents: 24247 diff changeset	537
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	538 // check for a shared parent
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	539 while (lhs != rhs)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	540 {
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	541 if (lhs->depth () > rhs->depth ())
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	542 lhs = lhs->parent ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	543 else if (lhs->depth () < rhs->depth ())
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	544 rhs = rhs->parent ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	545 else
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	546 {
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	547 // we MUST have depth > 0 as any is the base type of everything
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	548 do
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	549 {
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	550 lhs = lhs->parent ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	551 rhs = rhs->parent ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	552 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	553 while (lhs != rhs);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	554 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	555 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	556 return lhs;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	557 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	558
24248 af23baa0a9da jit: Move join() outside of class jit_typeinfo, renamed to jit_type_join() Julien Bect <jbect@users.sourceforge.net> parents: 24247 diff changeset	559
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	560 // -------------------- jit_function --------------------
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	561 jit_function::jit_function ()
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	562 : m_module (nullptr), m_llvm_function (nullptr), m_result (nullptr),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	563 m_call_conv (jit_convention::length), m_can_error (false)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	564 { }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	565
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	566 jit_function::jit_function (const jit_module *amodule,
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	567 jit_convention::type acall_conv,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	568 const llvm::Twine& aname, jit_type *aresult,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	569 const std::vector<jit_type *>& aargs)
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	570 : m_module (amodule), m_result (aresult), m_args (aargs),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	571 m_call_conv (acall_conv), m_can_error (false)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	572 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	573 llvm::SmallVector<llvm::Type *, 15> llvm_args;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	574
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	575 llvm::Type *rtype = llvm::Type::getVoidTy (context);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	576 if (m_result)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	577 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	578 rtype = m_result->packed_type (m_call_conv);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	579 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	580 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	581 llvm_args.push_back (rtype->getPointerTo ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	582 rtype = llvm::Type::getVoidTy (context);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	583 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	584 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	585
25343 4d7790d9793f use cbegin, crbegin, cend, and crend and auto decls where possible John W. Eaton <jwe@octave.org> parents: 25342 diff changeset	586 for (auto iter = m_args.cbegin (); iter != m_args.cend (); ++iter)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	587 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	588 jit_type ty = iter;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	589 assert (ty);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	590 llvm::Type *argty = ty->packed_type (m_call_conv);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	591 if (ty->pointer_arg (m_call_conv))
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	592 argty = argty->getPointerTo ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	593
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	594 llvm_args.push_back (argty);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	595 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	596
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	597 llvm::FunctionType *ft = llvm::FunctionType::get (rtype, llvm_args, false);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	598 m_llvm_function = m_module->create_llvm_function (ft, aname);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	599
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	600 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	601 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	602 #if defined (FUNCTION_ADDATTRIBUTE_ARG_IS_ATTRIBUTES)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	603 llvm::AttrBuilder attr_builder;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	604 attr_builder.addAttribute (llvm::Attributes::StructRet);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	605 llvm::Attributes attrs = llvm::Attributes::get(context, attr_builder);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	606 m_llvm_function->addAttribute (1, attrs);
17031 38bcfd413db0 Handle LLVM API incoherence. Octave now works with LLVM 3.0, 3.1, and 3.2 LYH <lyh.kernel@gmail.com> parents: 16892 diff changeset	607 #else
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	608 m_llvm_function->addAttribute (1, llvm::Attribute::StructRet);
17031 38bcfd413db0 Handle LLVM API incoherence. Octave now works with LLVM 3.0, 3.1, and 3.2 LYH <lyh.kernel@gmail.com> parents: 16892 diff changeset	609 #endif
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	610 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	611
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	612 if (m_call_conv == jit_convention::internal)
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	613 #if defined (FUNCTION_ADDFNATTR_ARG_IS_ATTRIBUTES)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	614 m_llvm_function->addFnAttr (llvm::Attributes::AlwaysInline);
17031 38bcfd413db0 Handle LLVM API incoherence. Octave now works with LLVM 3.0, 3.1, and 3.2 LYH <lyh.kernel@gmail.com> parents: 16892 diff changeset	615 #else
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	616 m_llvm_function->addFnAttr (llvm::Attribute::AlwaysInline);
17031 38bcfd413db0 Handle LLVM API incoherence. Octave now works with LLVM 3.0, 3.1, and 3.2 LYH <lyh.kernel@gmail.com> parents: 16892 diff changeset	617 #endif
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	618 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	619
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	620 jit_function::jit_function (const jit_function& fn, jit_type *aresult,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	621 const std::vector<jit_type *>& aargs)
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	622 : m_module (fn.m_module), m_llvm_function (fn.m_llvm_function),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	623 m_result (aresult), m_args (aargs), m_call_conv (fn.m_call_conv),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	624 m_can_error (fn.m_can_error)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	625 { }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	626
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	627 jit_function::jit_function (const jit_function& fn)
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	628 : m_module (fn.m_module), m_llvm_function (fn.m_llvm_function),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	629 m_result (fn.m_result), m_args (fn.m_args), m_call_conv (fn.m_call_conv),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	630 m_can_error (fn.m_can_error)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	631 { }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	632
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	633 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	634 jit_function::erase (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	635 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	636 if (! m_llvm_function)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	637 return;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	638
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	639 m_llvm_function->eraseFromParent ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	640 m_llvm_function = 0;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	641 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	642
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	643 std::string
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	644 jit_function::name (void) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	645 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	646 return m_llvm_function->getName ();
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	647 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	648
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	649 llvm::BasicBlock *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	650 jit_function::new_block (const std::string& aname,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	651 llvm::BasicBlock *insert_before)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	652 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	653 return llvm::BasicBlock::Create (context, aname, m_llvm_function,
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	654 insert_before);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	655 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	656
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	657 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	658 jit_function::call (llvm::IRBuilderD& builder,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	659 const std::vector<jit_value *>& in_args) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	660 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	661 if (! valid ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	662 throw jit_fail_exception ("Call not implemented");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	663
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	664 assert (in_args.size () == m_args.size ());
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	665 std::vector<llvm::Value *> llvm_args (m_args.size ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	666 for (size_t i = 0; i < in_args.size (); ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	667 llvm_args[i] = in_args[i]->to_llvm ();
15385 8ccb187b24e9 Erase partially created functions on JIT compilation failure (bug #37308) Max Brister <max@2bass.com> parents: 15370 diff changeset	668
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	669 return call (builder, llvm_args);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	670 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	671
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	672 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	673 jit_function::call (llvm::IRBuilderD& builder,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	674 const std::vector<llvm::Value *>& in_args) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	675 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	676 if (! valid ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	677 throw jit_fail_exception ("Call not implemented");
15385 8ccb187b24e9 Erase partially created functions on JIT compilation failure (bug #37308) Max Brister <max@2bass.com> parents: 15370 diff changeset	678
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	679 assert (in_args.size () == m_args.size ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	680 llvm::SmallVector<llvm::Value *, 10> llvm_args;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	681 llvm_args.reserve (in_args.size () + sret ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	682
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	683 llvm::BasicBlock *insert_block = builder.GetInsertBlock ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	684 llvm::Function *parent = insert_block->getParent ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	685 assert (parent);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	686
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	687 // Insert allocas inside the prelude block to prevent stack overflows
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	688 llvm::BasicBlock& prelude = parent->getEntryBlock ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	689 llvm::IRBuilder<> pre_builder (&prelude, prelude.begin ());
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	690
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	691 llvm::AllocaInst *sret_mem = nullptr;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	692 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	693 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	694 sret_mem = pre_builder.CreateAlloca (m_result->packed_type (m_call_conv));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	695 llvm_args.push_back (sret_mem);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	696 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	697
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	698 for (size_t i = 0; i < in_args.size (); ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	699 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	700 llvm::Value *arg = in_args[i];
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	701 jit_type::convert_fn convert = m_args[i]->pack (m_call_conv);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	702 if (convert)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	703 arg = convert (builder, arg);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	704
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	705 if (m_args[i]->pointer_arg (m_call_conv))
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	706 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	707 llvm::Type *ty = m_args[i]->packed_type (m_call_conv);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	708 llvm::Value *alloca = pre_builder.CreateAlloca (ty);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	709 builder.CreateStore (arg, alloca);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	710 arg = alloca;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	711 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	712
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	713 llvm_args.push_back (arg);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	714 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	715
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	716 llvm::CallInst *callinst = builder.CreateCall (m_llvm_function, llvm_args);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	717 llvm::Value *ret = callinst;
15056 bc32288f4a42 Support the end keyword for one dimentional indexing in JIT. Max Brister <max@2bass.com> parents: 15027 diff changeset	718
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	719 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	720 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	721 #if defined (CALLINST_ADDATTRIBUTE_ARG_IS_ATTRIBUTES)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	722 llvm::AttrBuilder attr_builder;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	723 attr_builder.addAttribute(llvm::Attributes::StructRet);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	724 llvm::Attributes attrs = llvm::Attributes::get(context, attr_builder);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	725 callinst->addAttribute (1, attrs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	726 #else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	727 callinst->addAttribute (1, llvm::Attribute::StructRet);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	728 #endif
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	729 ret = builder.CreateLoad (sret_mem);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	730 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	731
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	732 if (m_result)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	733 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	734 jit_type::convert_fn unpack = m_result->unpack (m_call_conv);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	735 if (unpack)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	736 ret = unpack (builder, ret);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	737 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	738
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	739 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	740 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	741
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	742 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	743 jit_function::argument (llvm::IRBuilderD& builder, size_t idx) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	744 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	745 assert (idx < m_args.size ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	746
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	747 // FIXME: We should be treating arguments like a list, not a vector.
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	748 // Shouldn't matter much for now, as the number of arguments shouldn't
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	749 // be much bigger than 4
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25336 diff changeset	750 auto iter = m_llvm_function->arg_begin ();
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	751 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	752 ++iter;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	753
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	754 for (size_t i = 0; i < idx; ++i, ++iter);
15056 bc32288f4a42 Support the end keyword for one dimentional indexing in JIT. Max Brister <max@2bass.com> parents: 15027 diff changeset	755
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	756 if (m_args[idx]->pointer_arg (m_call_conv))
24241 ca25f6e48ca5 jit: Convert llvm::Function::arg_iterator to pointer explicitely Julien Bect <jbect@users.sourceforge.net> parents: 24239 diff changeset	757 return builder.CreateLoad (&*iter);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	758
24241 ca25f6e48ca5 jit: Convert llvm::Function::arg_iterator to pointer explicitely Julien Bect <jbect@users.sourceforge.net> parents: 24239 diff changeset	759 return &*iter;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	760 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	761
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	762 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	763 jit_function::do_return (llvm::IRBuilderD& builder, llvm::Value *rval,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	764 bool verify)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	765 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	766 assert (! rval == ! m_result);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	767
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	768 if (rval)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	769 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	770 jit_type::convert_fn convert = m_result->pack (m_call_conv);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	771 if (convert)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	772 rval = convert (builder, rval);
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	773
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	774 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	775 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	776 builder.CreateStore (rval, &*(m_llvm_function->arg_begin ()));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	777 builder.CreateRetVoid ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	778 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	779 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	780 builder.CreateRet (rval);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	781 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	782 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	783 builder.CreateRetVoid ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	784
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	785 if (verify)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	786 llvm::verifyFunction (*m_llvm_function);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	787 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	788
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	789 std::ostream&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	790 operator<< (std::ostream& os, const jit_function& fn)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	791 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	792 llvm::Function *lfn = fn.to_llvm ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	793 os << "jit_function: cc=" << fn.m_call_conv;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	794 llvm::raw_os_ostream llvm_out (os);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	795 lfn->print (llvm_out);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	796 llvm_out.flush ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	797 return os;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	798 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	799
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	800 // -------------------- jit_operation --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	801 jit_operation::~jit_operation (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	802 {
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25336 diff changeset	803 for (auto iter = m_generated.begin (); iter != m_generated.end (); ++iter)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	804 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	805 delete iter->first;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	806 delete iter->second;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	807 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	808 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	809
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	810 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	811 jit_operation::add_overload (const jit_function& func,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	812 const std::vector<jit_type*>& args)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	813 {
24247 4e045a476598 jit: jit-typeinfo.cc: Introduce a local variable for clarity Julien Bect <jbect@users.sourceforge.net> parents: 24246 diff changeset	814 // Number of input arguments of the overload that is being registered
4e045a476598 jit: jit-typeinfo.cc: Introduce a local variable for clarity Julien Bect <jbect@users.sourceforge.net> parents: 24246 diff changeset	815 size_t nargs = args.size ();
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	816
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	817 if (nargs >= m_overloads.size ())
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	818 m_overloads.resize (nargs + 1);
24247 4e045a476598 jit: jit-typeinfo.cc: Introduce a local variable for clarity Julien Bect <jbect@users.sourceforge.net> parents: 24246 diff changeset	819
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	820 Array<jit_function>& over = m_overloads[nargs];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	821 dim_vector dv (over.dims ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	822 Array<octave_idx_type> idx = to_idx (args);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	823 bool must_resize = false;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	824
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	825 if (dv.length () != idx.numel ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	826 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	827 dv.resize (idx.numel ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	828 must_resize = true;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	829 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	830
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	831 for (octave_idx_type i = 0; i < dv.length (); ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	832 if (dv(i) <= idx(i))
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	833 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	834 must_resize = true;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	835 dv(i) = idx(i) + 1;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	836 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	837
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	838 if (must_resize)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	839 over.resize (dv);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	840
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	841 over(idx) = func;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	842 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	843
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	844 const jit_function&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	845 jit_operation::overload (const std::vector<jit_type*>& types) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	846 {
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	847 // Number of input arguments of the overload that is being looked for
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	848 size_t nargs = types.size ();
24247 4e045a476598 jit: jit-typeinfo.cc: Introduce a local variable for clarity Julien Bect <jbect@users.sourceforge.net> parents: 24246 diff changeset	849
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	850 static jit_function null_overload;
24247 4e045a476598 jit: jit-typeinfo.cc: Introduce a local variable for clarity Julien Bect <jbect@users.sourceforge.net> parents: 24246 diff changeset	851 for (size_t i = 0; i < nargs; ++i)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	852 if (! types[i])
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	853 return null_overload;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	854
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	855 if (nargs >= m_overloads.size ())
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	856 return do_generate (types);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	857
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	858 const Array<jit_function>& over = m_overloads[nargs];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	859 dim_vector dv (over.dims ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	860 Array<octave_idx_type> idx = to_idx (types);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	861 for (octave_idx_type i = 0; i < dv.length (); ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	862 if (idx(i) >= dv(i))
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	863 return do_generate (types);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	864
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	865 const jit_function& ret = over(idx);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	866 if (! ret.valid ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	867 return do_generate (types);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	868
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	869 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	870 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	871
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	872 Array<octave_idx_type>
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	873 jit_operation::to_idx (const std::vector<jit_type*>& types) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	874 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	875 octave_idx_type numel = types.size ();
25688 b2917b7858ba maint: Use Octave convention for spacing of C++ cast statements. Rik <rik@octave.org> parents: 25343 diff changeset	876 numel = std::max (numel, static_cast<octave_idx_type> (2));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	877
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	878 Array<octave_idx_type> idx (dim_vector (1, numel));
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	879 for (octave_idx_type i = 0;
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	880 i < static_cast<octave_idx_type> (types.size ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	881 ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	882 idx(i) = types[i]->type_id ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	883
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	884 if (types.size () == 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	885 idx(0) = idx(1) = 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	886 if (types.size () == 1)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	887 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	888 idx(1) = idx(0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	889 idx(0) = 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	890 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	891
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	892 return idx;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	893 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	894
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	895 const jit_function&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	896 jit_operation::do_generate (const signature_vec& types) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	897 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	898 static jit_function null_overload;
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	899 generated_map::const_iterator find = m_generated.find (&types);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	900 if (find != m_generated.end ())
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	901 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	902 if (find->second)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	903 return *find->second;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	904 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	905 return null_overload;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	906 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	907
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	908 jit_function *ret = generate (types);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	909 m_generated[new signature_vec (types)] = ret;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	910 return ret ? *ret : null_overload;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	911 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	912
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	913 jit_function *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	914 jit_operation::generate (const signature_vec&) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	915 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	916 return 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	917 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	918
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	919 bool
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	920 jit_operation::signature_cmp::operator () (const signature_vec *lhs,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	921 const signature_vec *rhs) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	922 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	923 const signature_vec& l = *lhs;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	924 const signature_vec& r = *rhs;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	925
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	926 if (l.size () < r.size ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	927 return true;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	928 else if (l.size () > r.size ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	929 return false;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	930
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	931 for (size_t i = 0; i < l.size (); ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	932 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	933 if (l[i]->type_id () < r[i]->type_id ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	934 return true;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	935 else if (l[i]->type_id () > r[i]->type_id ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	936 return false;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	937 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	938
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	939 return false;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	940 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	941
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	942 // -------------------- jit_index_operation --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	943 jit_function *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	944 jit_index_operation::generate (const signature_vec& types) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	945 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	946 if (types.size () > 2 && types[0] == jit_typeinfo::get_matrix ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	947 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	948 // indexing a matrix with scalars
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	949 jit_type *scalar = jit_typeinfo::get_scalar ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	950 for (size_t i = 1; i < types.size (); ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	951 if (types[i] != scalar)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	952 return 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	953
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	954 return generate_matrix (types);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	955 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	956
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	957 return 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	958 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	959
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	960 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	961 jit_index_operation::create_arg_array (llvm::IRBuilderD& builder,
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	962 const jit_function& fn,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	963 size_t start_idx,
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	964 size_t end_idx) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	965 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	966 size_t n = end_idx - start_idx;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	967 llvm::Type *scalar_t = jit_typeinfo::get_scalar_llvm ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	968 llvm::ArrayType *array_t = llvm::ArrayType::get (scalar_t, n);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	969 llvm::Value *array = llvm::UndefValue::get (array_t);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	970 for (size_t i = start_idx; i < end_idx; ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	971 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	972 llvm::Value *idx = fn.argument (builder, i);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	973 array = builder.CreateInsertValue (array, idx, i - start_idx);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	974 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	975
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	976 llvm::Value *array_mem = builder.CreateAlloca (array_t);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	977 builder.CreateStore (array, array_mem);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	978 return builder.CreateBitCast (array_mem, scalar_t->getPointerTo ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	979 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	980
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	981 // -------------------- jit_paren_subsref --------------------
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	982
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	983 jit_paren_subsref::jit_paren_subsref (const jit_typeinfo& ti)
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	984 : jit_index_operation (ti, "()subsref"), m_paren_scalar (nullptr)
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	985 { }
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	986
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	987 jit_paren_subsref::~jit_paren_subsref (void)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	988 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	989 delete m_paren_scalar;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	990 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	991
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	992 jit_function *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	993 jit_paren_subsref::generate_matrix (const signature_vec& types) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	994 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	995 if (m_paren_scalar == nullptr)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	996 panic_impossible ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	997
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	998 std::stringstream ss;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	999 ss << "jit_paren_subsref_matrix_scalar" << (types.size () - 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1000
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1001 // FIXME: Where will this be deleted?
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1002 jit_function *fn = new jit_function
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1003 (m_typeinfo.create_internal (ss.str (), m_typeinfo.m_scalar, types));
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1004
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1005 fn->mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1006 llvm::BasicBlock *body = fn->new_block ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1007 llvm::IRBuilder<> builder (body);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1008
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1009 llvm::Value array = create_arg_array (builder, fn, 1, types.size ());
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1010 llvm::Value *nelem = llvm::ConstantInt::get (m_typeinfo.m_index_t,
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1011 types.size () - 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1012 llvm::Value *mat = fn->argument (builder, 0);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1013 llvm::Value *ret = m_paren_scalar->call (builder, mat, array, nelem);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1014 fn->do_return (builder, ret);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1015 return fn;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1016 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	1017
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1018 void
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1019 jit_paren_subsref::init_paren_scalar ()
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1020 {
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1021 std::vector<jit_type *> types (3);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1022 types[0] = m_typeinfo.m_matrix;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1023 types[1] = m_typeinfo.m_scalar_ptr;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1024 types[2] = m_typeinfo.m_index;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1025
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1026 m_paren_scalar = new jit_function
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1027 (m_typeinfo.create_external (&octave_jit_paren_scalar,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1028 "octave_jit_paren_scalar",
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1029 m_typeinfo.m_scalar, types));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1030
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1031 m_paren_scalar->mark_can_error ();
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1032 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1033
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1034 // -------------------- jit_paren_subsasgn --------------------
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1035
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1036 jit_paren_subsasgn::jit_paren_subsasgn (const jit_typeinfo& ti)
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1037 : jit_index_operation (ti, "()subsasgn"), m_paren_scalar (nullptr)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1038 { }
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1039
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1040 jit_paren_subsasgn::~jit_paren_subsasgn (void)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1041 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1042 delete m_paren_scalar;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1043 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1044
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1045 jit_function *
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1046 jit_paren_subsasgn::generate_matrix (const signature_vec& types) const
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1047 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1048 if (m_paren_scalar == nullptr)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1049 panic_impossible ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1050
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1051 std::stringstream ss;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1052 ss << "jit_paren_subsasgn_matrix_scalar" << (types.size () - 2);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1053
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1054 // FIXME: Where will this be deleted?
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1055 jit_function *fn = new jit_function
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1056 (m_typeinfo.create_internal (ss.str (), m_typeinfo.m_matrix, types));
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1057
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1058 fn->mark_can_error ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1059 llvm::BasicBlock *body = fn->new_block ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1060 llvm::IRBuilder<> builder (body);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1061
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1062 llvm::Value array = create_arg_array (builder, fn, 1, types.size () - 1);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1063 llvm::Value *nelem = llvm::ConstantInt::get (m_typeinfo.m_index_t,
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1064 types.size () - 2);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1065
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1066 llvm::Value *mat = fn->argument (builder, 0);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1067 llvm::Value *value = fn->argument (builder, types.size () - 1);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1068 llvm::Value *ret = m_paren_scalar->call (builder, mat, array, nelem, value);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1069 fn->do_return (builder, ret);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1070
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1071 return fn;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1072 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1073
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1074 void
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1075 jit_paren_subsasgn::init_paren_scalar ()
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1076 {
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1077 std::vector<jit_type *> types (4);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1078 types[0] = m_typeinfo.m_matrix;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1079 types[1] = m_typeinfo.m_scalar_ptr;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1080 types[2] = m_typeinfo.m_index;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1081 types[3] = m_typeinfo.m_scalar;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1082
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1083 m_paren_scalar = new jit_function
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1084 (m_typeinfo.create_external (&octave_jit_paren_scalar_subsasgn,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1085 "octave_jit_paren_scalar",
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1086 m_typeinfo.m_matrix, types));
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1087
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1088 m_paren_scalar->mark_can_error ();
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1089 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1090
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1091
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1092 // -------------------- jit_typeinfo --------------------
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1093
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1094 bool jit_typeinfo::s_in_construction = false;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1095
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1096 // Static method that holds the singleton instance
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1097 jit_typeinfo&
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1098 jit_typeinfo::instance (void)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1099 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1100 if (s_in_construction)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1101 // This state is typically reached when the constructor calls one
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1102 // of the static methods of the singleton class...
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1103 panic_impossible ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1104
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1105 static jit_typeinfo typeinfo;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1106 return typeinfo;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1107 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1108
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1109 jit_typeinfo::~jit_typeinfo (void)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1110 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1111 while (! m_id_to_type.empty ())
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1112 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1113 delete m_id_to_type.back ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1114 m_id_to_type.pop_back ();
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1115 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1116
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1117 delete m_builder_ptr;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1118 delete m_base_jit_module;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1119 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1120
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1121 // wrap function names to simplify jit_typeinfo::create_external
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1122 #define JIT_FN(fn) &fn, #fn
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1123
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1124 jit_typeinfo::jit_typeinfo (void)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1125 : paren_subsref_fn (*this),
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1126 paren_subsasgn_fn (*this),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1127 m_next_id (0),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1128 m_grab_fn ("grab"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1129 m_release_fn ("release"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1130 m_destroy_fn ("destroy"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1131 m_print_fn ("print"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1132 m_for_init_fn ("for_init"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1133 m_for_check_fn ("for_check"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1134 m_for_index_fn ("for_index"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1135 m_logically_true_fn ("logically_true"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1136 m_make_range_fn ("make_range"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1137 m_end1_fn ("end1"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1138 m_end_fn ("end"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1139 m_create_undef_fn ("create_undef"),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1140 m_base_jit_module (new jit_module ("octaveJITBaseModule")),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1141 m_builder_ptr (new llvm::IRBuilderD (context)),
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1142 // FIXME: Use a pointer directly in the constructor, and get rid of this
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1143 m_builder (*m_builder_ptr)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1144 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1145 s_in_construction = true;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1146
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1147 // ----- Register basic JIT types -----
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1148
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1149 // FIXME: It seems that our type lattice is not really a lattice
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1150 // since any and any_ptr have no common upper_bound (?!?)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1151
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1152 // jit_types: "any" < (nullptr)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1153 // "any_ptr" < (nullptr)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1154 m_any_t = llvm::StructType::create (context, "octave_base_value");
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1155 m_any_t = m_any_t->getPointerTo ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1156 m_any = do_register_new_type ("any", nullptr, m_any_t);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1157 m_any_ptr = do_register_new_type ("any_ptr", nullptr,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1158 m_any_t->getPointerTo ());
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1159
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1160 // jit_types: "scalar" < "complex" < "any"
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1161 // and: "scalar_ptr" < (nullptr)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1162 // FIXME: what about sing-precision floats ???
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1163 // FIXME: shouldn't we make scalar_ptr a sub_type of any_ptr ?
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1164 m_scalar_t = llvm::Type::getDoubleTy (context);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1165 m_complex_t = llvm::ArrayType::get (m_scalar_t, 2);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1166 m_complex = do_register_new_type ("complex", m_any, m_complex_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1167 m_scalar = do_register_new_type ("scalar", m_complex, m_scalar_t);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1168 m_scalar_ptr = do_register_new_type ("scalar_ptr", nullptr,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1169 m_scalar_t->getPointerTo ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1170
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1171 // jit_type: "bool" < "any"
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1172 m_bool_t = llvm::Type::getInt1Ty (context);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1173 m_boolean = do_register_new_type ("bool", m_any, m_bool_t);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1174
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1175 // jit_types: "int8", "int16", "int32", "int64" < "any"
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1176 m_ints[ 8] = do_register_new_type ("int8", m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1177 llvm::Type::getIntNTy (context, 8));
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1178 m_ints[16] = do_register_new_type ("int16", m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1179 llvm::Type::getIntNTy (context, 16));
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1180 m_ints[32] = do_register_new_type ("int32", m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1181 llvm::Type::getIntNTy (context, 32));
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1182 m_ints[64] = do_register_new_type ("int64", m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1183 llvm::Type::getIntNTy (context, 64));
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1184
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1185 // jit_type: "string" < "any"
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1186 m_string_t = llvm::Type::getInt8Ty (context);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1187 m_string_t = m_string_t->getPointerTo ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1188 m_string = do_register_new_type ("string", m_any, m_string_t);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1189
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1190 // jit_type: "index" < "any"
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1191 m_index_t = llvm::Type::getIntNTy (context, sizeof (octave_idx_type) * 8);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1192 m_index = do_register_new_type ("index", m_any, m_index_t);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1193
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1194 // jit_type: "range" < "any"
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1195 m_range_t = llvm::StructType::create (context, "range");
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1196 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1197 std::vector<llvm::Type *> range_contents (4, m_scalar_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1198 range_contents[3] = m_index_t;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1199 m_range_t->setBody (range_contents);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1200 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1201 m_range = do_register_new_type ("range", m_any, m_range_t);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1202
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1203 // jit_type: "matrix" < "any"
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1204 m_matrix_t = llvm::StructType::create (context, "matrix");
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1205 {
24446 4ca5c9f899d3 maint: Strip trailing whitespace from source files. John W. Eaton <jwe@octave.org> parents: 24249 diff changeset	1206 llvm::Type refcount_t = llvm::Type::getIntNTy (context, sizeof(int) 8);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1207 llvm::Type *matrix_contents[5];
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1208 matrix_contents[0] = refcount_t->getPointerTo ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1209 matrix_contents[1] = m_scalar_t->getPointerTo ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1210 matrix_contents[2] = m_index_t;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1211 matrix_contents[3] = m_index_t->getPointerTo ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1212 matrix_contents[4] = m_string_t;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1213 m_matrix_t->setBody (llvm::makeArrayRef (matrix_contents, 5));
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1214 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1215 m_matrix = do_register_new_type ("matrix", m_any, m_matrix_t);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1216
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1217 // ----- Specify calling conventions -----
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1218
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1219 // complex_ret is what is passed to C functions
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1220 // in order to get calling convention right
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1221 m_complex_ret = llvm::StructType::create (context, "complex_ret");
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	1222 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1223 llvm::Type *cmplx_inner_cont[] = {m_scalar_t, m_scalar_t};
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1224 llvm::StructType *cmplx_inner = llvm::StructType::create (cmplx_inner_cont);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1225 llvm::Type *contents[] = {cmplx_inner};
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1226 m_complex_ret->setBody (contents);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1227 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1228
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1229 // FIXME: We should detect architecture and do something sane
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1230 // based on that here we assume x86 or x86_64
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1231 m_matrix->mark_sret (jit_convention::external);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1232 m_matrix->mark_pointer_arg (jit_convention::external);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1233
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1234 m_range->mark_sret (jit_convention::external);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1235 m_range->mark_pointer_arg (jit_convention::external);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1236
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1237 m_complex->set_pack (jit_convention::external,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1238 &jit_typeinfo::pack_complex);
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1239 m_complex->set_unpack (jit_convention::external,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1240 &jit_typeinfo::unpack_complex);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1241 m_complex->set_packed_type (jit_convention::external, m_complex_ret);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1242
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1243 if (sizeof (void *) == 4)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1244 m_complex->mark_sret (jit_convention::external);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1245
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1246 paren_subsref_fn.init_paren_scalar ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1247 paren_subsasgn_fn.init_paren_scalar ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1248
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1249 // bind global variables
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1250 m_lerror_state = m_base_jit_module->create_global_variable (m_bool_t, false,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1251 "error_state");
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1252
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1253 m_base_jit_module->add_global_mapping (m_lerror_state, &error_state);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1254
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1255 // sig_atomic_type is going to be some sort of integer
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1256 m_sig_atomic_type = llvm::Type::getIntNTy (context,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1257 sizeof(sig_atomic_t) * 8);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1258
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1259 m_loctave_interrupt_state = m_base_jit_module->create_global_variable
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1260 (m_sig_atomic_type, false, "octave_interrupt_state");
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1261
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1262 m_base_jit_module->add_global_mapping (m_loctave_interrupt_state,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1263 &octave_interrupt_state);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1264
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1265 // generic call function
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1266 {
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1267 jit_type int_t = do_get_intN (sizeof (octave_builtin::fcn) 8);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1268 m_any_call = create_external (JIT_FN (octave_jit_call), m_any, int_t,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1269 int_t, m_any_ptr, int_t);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1270 }
fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1271
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1272 // any with anything is an any op
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1273 jit_function fn;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1274 jit_type binary_op_type = do_get_intN (sizeof (octave_value::binary_op) 8);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1275 llvm::Type *llvm_bo_type = binary_op_type->to_llvm ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1276 jit_function any_binary = create_external (JIT_FN (octave_jit_binary_any_any),
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1277 m_any, binary_op_type,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1278 m_any, m_any);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1279 any_binary.mark_can_error ();
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1280
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1281 for (size_t i = 0; i < octave_value::num_binary_ops; ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1282 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1283 octave_value::binary_op op = static_cast<octave_value::binary_op> (i);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1284 std::string op_name = octave_value::binary_op_as_string (op);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1285 m_binary_ops.push_back (jit_operation ("binary" + op_name));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1286 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1287
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1288 for (size_t i = 0; i < octave_value::num_unary_ops; ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1289 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1290 octave_value::unary_op op = static_cast<octave_value::unary_op> (i);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1291 std::string op_name = octave_value::unary_op_as_string (op);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1292 m_unary_ops.push_back (jit_operation ("unary" + op_name));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1293 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1294
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1295 for (int op = 0; op < octave_value::num_binary_ops; ++op)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1296 {
27277 db687716fed6 style fixes: generally aim to break long lines before operators, not after John W. Eaton <jwe@octave.org> parents: 27102 diff changeset	1297 const llvm::Twine& fn_name
db687716fed6 style fixes: generally aim to break long lines before operators, not after John W. Eaton <jwe@octave.org> parents: 27102 diff changeset	1298 = "octave_jit_binary_any_any_" + llvm::Twine (op);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1299
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1300 fn = create_internal (fn_name, m_any, m_any, m_any);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1301 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1302 llvm::BasicBlock *block = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1303 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1304 llvm::APInt op_int(sizeof (octave_value::binary_op) * 8, op,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1305 std::numeric_limits<octave_value::binary_op>::is_signed);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1306 llvm::Value *op_as_llvm = llvm::ConstantInt::get (llvm_bo_type, op_int);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1307 llvm::Value *ret = any_binary.call (m_builder, op_as_llvm,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1308 fn.argument (m_builder, 0),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1309 fn.argument (m_builder, 1));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1310 fn.do_return (m_builder, ret);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1311 m_binary_ops[op].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1312 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1313
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1314 // grab matrix
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1315 fn = create_external (JIT_FN (octave_jit_grab_matrix), m_matrix, m_matrix);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1316 m_grab_fn.add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1317 m_grab_fn.add_overload (create_identity (m_scalar));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1318 m_grab_fn.add_overload (create_identity (m_scalar_ptr));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1319 m_grab_fn.add_overload (create_identity (m_any_ptr));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1320 m_grab_fn.add_overload (create_identity (m_boolean));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1321 m_grab_fn.add_overload (create_identity (m_complex));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1322 m_grab_fn.add_overload (create_identity (m_index));
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1323
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1324 // release any
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1325 fn = create_external (JIT_FN (octave_jit_release_any), nullptr, m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1326 m_release_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1327
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1328 // release matrix
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1329 fn = create_external (JIT_FN (octave_jit_release_matrix), nullptr,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1330 m_matrix);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1331 m_release_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1332
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1333 // destroy
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1334 m_destroy_fn = m_release_fn;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1335 m_destroy_fn.add_overload (create_identity(m_scalar));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1336 m_destroy_fn.add_overload (create_identity(m_boolean));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1337 m_destroy_fn.add_overload (create_identity(m_index));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1338 m_destroy_fn.add_overload (create_identity(m_complex));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1339
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1340 // -------------------- scalar related operations --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1341
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1342 // now for binary scalar operations
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1343 add_binary_op (m_scalar, octave_value::op_add, llvm::Instruction::FAdd);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1344 add_binary_op (m_scalar, octave_value::op_sub, llvm::Instruction::FSub);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1345 add_binary_op (m_scalar, octave_value::op_mul, llvm::Instruction::FMul);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1346 add_binary_op (m_scalar, octave_value::op_el_mul, llvm::Instruction::FMul);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1347
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1348 add_binary_fcmp (m_scalar, octave_value::op_lt, llvm::CmpInst::FCMP_ULT);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1349 add_binary_fcmp (m_scalar, octave_value::op_le, llvm::CmpInst::FCMP_ULE);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1350 add_binary_fcmp (m_scalar, octave_value::op_eq, llvm::CmpInst::FCMP_UEQ);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1351 add_binary_fcmp (m_scalar, octave_value::op_ge, llvm::CmpInst::FCMP_UGE);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1352 add_binary_fcmp (m_scalar, octave_value::op_gt, llvm::CmpInst::FCMP_UGT);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1353 add_binary_fcmp (m_scalar, octave_value::op_ne, llvm::CmpInst::FCMP_UNE);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1354
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1355 // divide is annoying because it might error
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1356 fn = create_internal ("octave_jit_div_scalar_scalar", m_scalar, m_scalar,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1357 m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1358 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1359
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1360 llvm::BasicBlock *body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1361 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1362 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1363 llvm::BasicBlock *warn_block = fn.new_block ("warn");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1364 llvm::BasicBlock *normal_block = fn.new_block ("normal");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1365
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1366 llvm::Value *zero = llvm::ConstantFP::get (m_scalar_t, 0);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1367 llvm::Value *check = m_builder.CreateFCmpUEQ (zero,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1368 fn.argument (m_builder, 1));
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1369 m_builder.CreateCondBr (check, warn_block, normal_block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1370
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1371 m_builder.SetInsertPoint (warn_block);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1372 m_builder.CreateBr (normal_block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1373
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1374 m_builder.SetInsertPoint (normal_block);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1375 llvm::Value *ret = m_builder.CreateFDiv (fn.argument (m_builder, 0),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1376 fn.argument (m_builder, 1));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1377 fn.do_return (m_builder, ret);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1378 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1379 m_binary_ops[octave_value::op_div].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1380 m_binary_ops[octave_value::op_el_div].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1381
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1382 // ldiv is the same as div with the operators reversed
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1383 fn = mirror_binary (fn);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1384 m_binary_ops[octave_value::op_ldiv].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1385 m_binary_ops[octave_value::op_el_ldiv].add_overload (fn);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1386
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1387 // In general, the result of scalar ^ scalar is a complex number. We might
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1388 // be able to improve on this if we keep track of the range of values
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1389 // variables can take on.
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1390 fn = create_external (JIT_FN (octave_jit_pow_scalar_scalar), m_complex,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1391 m_scalar, m_scalar);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1392 m_binary_ops[octave_value::op_pow].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1393 m_binary_ops[octave_value::op_el_pow].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1394
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1395 // now for unary scalar operations
27956 2310164737b3 fix many spelling errors (bug #57613) John W. Eaton <jwe@octave.org> parents: 26535 diff changeset	1396 // FIXME: Implement not
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1397 fn = create_internal ("octave_jit_++", m_scalar, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1398 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1399 m_builder.SetInsertPoint (body);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1400 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1401 llvm::Value *one = llvm::ConstantFP::get (m_scalar_t, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1402 llvm::Value *val = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1403 val = m_builder.CreateFAdd (val, one);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1404 fn.do_return (m_builder, val);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1405 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1406 m_unary_ops[octave_value::op_incr].add_overload (fn);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1407
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1408 fn = create_internal ("octave_jit_--", m_scalar, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1409 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1410 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1411 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1412 llvm::Value *one = llvm::ConstantFP::get (m_scalar_t, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1413 llvm::Value *val = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1414 val = m_builder.CreateFSub (val, one);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1415 fn.do_return (m_builder, val);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1416 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1417 m_unary_ops[octave_value::op_decr].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1418
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1419 fn = create_internal ("octave_jit_uminus", m_scalar, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1420 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1421 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1422 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1423 llvm::Value *mone = llvm::ConstantFP::get (m_scalar_t, -1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1424 llvm::Value *val = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1425 val = m_builder.CreateFMul (val, mone);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1426 fn.do_return (m_builder, val);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1427 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1428 m_unary_ops[octave_value::op_uminus].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1429
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1430 fn = create_identity (m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1431 m_unary_ops[octave_value::op_uplus].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1432 m_unary_ops[octave_value::op_transpose].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1433 m_unary_ops[octave_value::op_hermitian].add_overload (fn);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1434
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1435 // now for binary complex operations
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1436 fn = create_internal ("octave_jit_+_complex_complex", m_complex, m_complex,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1437 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1438 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1439 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1440 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1441 llvm::Value *lhs = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1442 llvm::Value *rhs = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1443 llvm::Value *real = m_builder.CreateFAdd (complex_real (lhs),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1444 complex_real (rhs));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1445 llvm::Value *imag = m_builder.CreateFAdd (complex_imag (lhs),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1446 complex_imag (rhs));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1447 fn.do_return (m_builder, complex_new (real, imag));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1448 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1449 m_binary_ops[octave_value::op_add].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1450
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1451 fn = create_internal ("octave_jit_-_complex_complex", m_complex, m_complex,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1452 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1453 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1454 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1455 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1456 llvm::Value *lhs = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1457 llvm::Value *rhs = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1458 llvm::Value *real = m_builder.CreateFSub (complex_real (lhs),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1459 complex_real (rhs));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1460 llvm::Value *imag = m_builder.CreateFSub (complex_imag (lhs),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1461 complex_imag (rhs));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1462 fn.do_return (m_builder, complex_new (real, imag));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1463 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1464 m_binary_ops[octave_value::op_sub].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1465
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1466 fn = create_external (JIT_FN (octave_jit_complex_mul),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1467 m_complex, m_complex, m_complex);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1468 m_binary_ops[octave_value::op_mul].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1469 m_binary_ops[octave_value::op_el_mul].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1470
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1471 jit_function complex_div = create_external (JIT_FN (octave_jit_complex_div),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1472 m_complex, m_complex, m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1473 complex_div.mark_can_error ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1474 m_binary_ops[octave_value::op_div].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1475 m_binary_ops[octave_value::op_ldiv].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1476
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1477 fn = create_external (JIT_FN (octave_jit_pow_complex_complex), m_complex,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1478 m_complex, m_complex);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1479 m_binary_ops[octave_value::op_pow].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1480 m_binary_ops[octave_value::op_el_pow].add_overload (fn);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1481
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1482 fn = create_internal ("octave_jit_*_scalar_complex", m_complex, m_scalar,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1483 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1484 jit_function mul_scalar_complex = fn;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1485 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1486 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1487 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1488 llvm::BasicBlock *complex_mul = fn.new_block ("complex_mul");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1489 llvm::BasicBlock *scalar_mul = fn.new_block ("scalar_mul");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1490
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1491 llvm::Value *fzero = llvm::ConstantFP::get (m_scalar_t, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1492 llvm::Value *lhs = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1493 llvm::Value *rhs = fn.argument (m_builder, 1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1494
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1495 llvm::Value *cmp = m_builder.CreateFCmpUEQ (complex_imag (rhs), fzero);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1496 m_builder.CreateCondBr (cmp, scalar_mul, complex_mul);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1497
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1498 m_builder.SetInsertPoint (scalar_mul);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1499 llvm::Value *temp = complex_real (rhs);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1500 temp = m_builder.CreateFMul (lhs, temp);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1501 fn.do_return (m_builder, complex_new (temp, fzero), false);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1502
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1503 m_builder.SetInsertPoint (complex_mul);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1504 temp = complex_new (m_builder.CreateFMul (lhs, complex_real (rhs)),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1505 m_builder.CreateFMul (lhs, complex_imag (rhs)));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1506 fn.do_return (m_builder, temp);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1507 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1508 m_binary_ops[octave_value::op_mul].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1509 m_binary_ops[octave_value::op_el_mul].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1510
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1511 fn = mirror_binary (mul_scalar_complex);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1512 m_binary_ops[octave_value::op_mul].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1513 m_binary_ops[octave_value::op_el_mul].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1514
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1515 fn = create_internal ("octave_jit_+_scalar_complex", m_complex, m_scalar,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1516 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1517 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1518 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1519 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1520 llvm::Value *lhs = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1521 llvm::Value *rhs = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1522 llvm::Value *real = m_builder.CreateFAdd (lhs, complex_real (rhs));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1523 fn.do_return (m_builder, complex_real (rhs, real));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1524 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1525 m_binary_ops[octave_value::op_add].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1526
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1527 fn = mirror_binary (fn);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1528 m_binary_ops[octave_value::op_add].add_overload (fn);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1529
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1530 fn = create_internal ("octave_jit_-_complex_scalar", m_complex, m_complex,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1531 m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1532 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1533 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1534 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1535 llvm::Value *lhs = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1536 llvm::Value *rhs = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1537 llvm::Value *real = m_builder.CreateFSub (complex_real (lhs), rhs);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1538 fn.do_return (m_builder, complex_real (lhs, real));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1539 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1540 m_binary_ops[octave_value::op_sub].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1541
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1542 fn = create_internal ("octave_jit_-_scalar_complex", m_complex, m_scalar,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1543 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1544 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1545 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1546 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1547 llvm::Value *lhs = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1548 llvm::Value *rhs = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1549 llvm::Value *real = m_builder.CreateFSub (lhs, complex_real (rhs));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1550 fn.do_return (m_builder, complex_real (rhs, real));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1551 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1552 m_binary_ops[octave_value::op_sub].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1553
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1554 fn = create_external (JIT_FN (octave_jit_pow_scalar_complex), m_complex,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1555 m_scalar, m_complex);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1556 m_binary_ops[octave_value::op_pow].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1557 m_binary_ops[octave_value::op_el_pow].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1558
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1559 fn = create_external (JIT_FN (octave_jit_pow_complex_scalar), m_complex,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1560 m_complex, m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1561 m_binary_ops[octave_value::op_pow].add_overload (fn);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1562 m_binary_ops[octave_value::op_el_pow].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1563
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1564 // now for binary index operators
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1565 add_binary_op (m_index, octave_value::op_add, llvm::Instruction::Add);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1566
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1567 // and binary bool operators
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1568 add_binary_op (m_boolean, octave_value::op_el_or, llvm::Instruction::Or);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1569 add_binary_op (m_boolean, octave_value::op_el_and, llvm::Instruction::And);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1570
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1571 // now for printing functions
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1572 add_print (m_any, reinterpret_cast<void *> (&octave_jit_print_any));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1573 add_print (m_scalar, reinterpret_cast<void *> (&octave_jit_print_scalar));
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1574
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1575 // initialize for loop
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1576 fn = create_internal ("octave_jit_for_range_init", m_index, m_range);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1577 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1578 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1579 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1580 llvm::Value *zero = llvm::ConstantInt::get (m_index_t, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1581 fn.do_return (m_builder, zero);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1582 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1583 m_for_init_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1584
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1585 // bounds check for for loop
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1586 fn = create_internal ("octave_jit_for_range_check", m_boolean, m_range,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1587 m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1588 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1589 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1590 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1591 llvm::Value *nelem
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1592 = m_builder.CreateExtractValue (fn.argument (m_builder, 0), 3);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1593 llvm::Value *idx = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1594 llvm::Value *ret = m_builder.CreateICmpULT (idx, nelem);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1595 fn.do_return (m_builder, ret);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1596 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1597 m_for_check_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1598
27956 2310164737b3 fix many spelling errors (bug #57613) John W. Eaton <jwe@octave.org> parents: 26535 diff changeset	1599 // index variable for for loop
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1600 fn = create_internal ("octave_jit_for_range_idx", m_scalar, m_range,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1601 m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1602 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1603 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1604 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1605 llvm::Value *idx = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1606 llvm::Value *didx = m_builder.CreateSIToFP (idx, m_scalar_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1607 llvm::Value *rng = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1608 llvm::Value *base = m_builder.CreateExtractValue (rng, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1609 llvm::Value *inc = m_builder.CreateExtractValue (rng, 2);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1610
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1611 llvm::Value *ret = m_builder.CreateFMul (didx, inc);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1612 ret = m_builder.CreateFAdd (base, ret);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1613 fn.do_return (m_builder, ret);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1614 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1615 m_for_index_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1616
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1617 // logically true
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1618 jit_function gripe_nantl
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1619 = create_external (JIT_FN (octave_jit_err_nan_to_logical_conversion),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1620 nullptr);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1621 gripe_nantl.mark_can_error ();
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1622 fn = create_internal ("octave_jit_logically_true_scalar", m_boolean,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1623 m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1624 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1625 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1626 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1627 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1628 llvm::BasicBlock *error_block = fn.new_block ("error");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1629 llvm::BasicBlock *normal_block = fn.new_block ("normal");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1630
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1631 llvm::Value *check = m_builder.CreateFCmpUNE (fn.argument (m_builder, 0),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1632 fn.argument (m_builder, 0));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1633 m_builder.CreateCondBr (check, error_block, normal_block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1634
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1635 m_builder.SetInsertPoint (error_block);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1636 gripe_nantl.call (m_builder);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1637 m_builder.CreateBr (normal_block);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1638 m_builder.SetInsertPoint (normal_block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1639
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1640 llvm::Value *zero = llvm::ConstantFP::get (m_scalar_t, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1641 llvm::Value *ret = m_builder.CreateFCmpONE (fn.argument (m_builder, 0), zero);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1642 fn.do_return (m_builder, ret);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1643 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1644 m_logically_true_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1645
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1646 // logically_true boolean
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1647 fn = create_identity (m_boolean);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1648 m_logically_true_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1649
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1650 // make_range
27956 2310164737b3 fix many spelling errors (bug #57613) John W. Eaton <jwe@octave.org> parents: 26535 diff changeset	1651 // FIXME: May be beneficial to implement all in LLVM
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1652 jit_function compute_nelem
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1653 = create_external (JIT_FN (octave_jit_compute_nelem),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1654 m_index, m_scalar, m_scalar, m_scalar);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1655 fn = create_internal ("octave_jit_make_range", m_range, m_scalar, m_scalar,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1656 m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1657 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1658 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1659 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1660 llvm::Value *base = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1661 llvm::Value *limit = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1662 llvm::Value *inc = fn.argument (m_builder, 2);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1663 llvm::Value *nelem = compute_nelem.call (m_builder, base, limit, inc);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1664
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1665 llvm::Value *dzero = llvm::ConstantFP::get (m_scalar_t, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1666 llvm::Value *izero = llvm::ConstantInt::get (m_index_t, 0);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1667 llvm::Value *rng = llvm::ConstantStruct::get (m_range_t, dzero, dzero,
28223 45763d59cb4f use nullptr instead of NULL or 0 in a few more places John W. Eaton <jwe@octave.org> parents: 27978 diff changeset	1668 dzero, izero, nullptr);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1669 rng = m_builder.CreateInsertValue (rng, base, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1670 rng = m_builder.CreateInsertValue (rng, limit, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1671 rng = m_builder.CreateInsertValue (rng, inc, 2);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1672 rng = m_builder.CreateInsertValue (rng, nelem, 3);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1673 fn.do_return (m_builder, rng);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1674 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1675 m_make_range_fn.add_overload (fn);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1676
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1677 // paren_subsref
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1678 jit_type jit_int = do_get_intN (sizeof (int) 8);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1679 llvm::Type *int_t = jit_int->to_llvm ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1680 jit_function ginvalid_index
24246 d74d01e39f91 jit: Use nullptr (instead of 0 or NULL) as much as possible Julien Bect <jbect@users.sourceforge.net> parents: 24242 diff changeset	1681 = create_external (JIT_FN (octave_jit_ginvalid_index), nullptr);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1682 jit_function gindex_range = create_external (JIT_FN (octave_jit_gindex_range),
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1683 nullptr, jit_int, jit_int,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1684 m_index, m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1685
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1686 fn = create_internal ("()subsref", m_scalar, m_matrix, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1687 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1688
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1689 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1690 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1691 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1692 llvm::Value *one_idx = llvm::ConstantInt::get (m_index_t, 1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1693 llvm::Value *one_int = llvm::ConstantInt::get (int_t, 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1694
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1695 llvm::Value *undef = llvm::UndefValue::get (m_scalar_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1696 llvm::Value *mat = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1697 llvm::Value *idx = fn.argument (m_builder, 1);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1698
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1699 // convert index to scalar to integer, and check index >= 1
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1700 llvm::Value *int_idx = m_builder.CreateFPToSI (idx, m_index_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1701 llvm::Value *check_idx = m_builder.CreateSIToFP (int_idx, m_scalar_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1702 llvm::Value *cond0 = m_builder.CreateFCmpUNE (idx, check_idx);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1703 llvm::Value *cond1 = m_builder.CreateICmpSLT (int_idx, one_idx);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1704 llvm::Value *cond = m_builder.CreateOr (cond0, cond1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1705
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1706 llvm::BasicBlock *done = fn.new_block ("done");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1707 llvm::BasicBlock *conv_error = fn.new_block ("conv_error", done);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1708 llvm::BasicBlock *normal = fn.new_block ("normal", done);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1709 m_builder.CreateCondBr (cond, conv_error, normal);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1710
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1711 m_builder.SetInsertPoint (conv_error);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1712 ginvalid_index.call (m_builder);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1713 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1714
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1715 m_builder.SetInsertPoint (normal);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1716 llvm::Value *len
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1717 = m_builder.CreateExtractValue (mat, llvm::ArrayRef<unsigned> (2));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1718 cond = m_builder.CreateICmpSGT (int_idx, len);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1719
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1720 llvm::BasicBlock *bounds_error = fn.new_block ("bounds_error", done);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1721 llvm::BasicBlock *success = fn.new_block ("success", done);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1722 m_builder.CreateCondBr (cond, bounds_error, success);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1723
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1724 m_builder.SetInsertPoint (bounds_error);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1725 gindex_range.call (m_builder, one_int, one_int, int_idx, len);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1726 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1727
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1728 m_builder.SetInsertPoint (success);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1729 llvm::Value *data = m_builder.CreateExtractValue (mat,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1730 llvm::ArrayRef<unsigned> (1));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1731 llvm::Value *gep = m_builder.CreateInBoundsGEP (data, int_idx);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1732 llvm::Value *ret = m_builder.CreateLoad (gep);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1733 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1734
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1735 m_builder.SetInsertPoint (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1736
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1737 llvm::PHINode *merge = llvm::PHINode::Create (m_scalar_t, 3);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1738 m_builder.Insert (merge);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1739 merge->addIncoming (undef, conv_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1740 merge->addIncoming (undef, bounds_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1741 merge->addIncoming (ret, success);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1742 fn.do_return (m_builder, merge);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1743 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1744 paren_subsref_fn.add_overload (fn);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1745
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1746 // paren subsasgn
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1747 jit_function resize_paren_subsasgn
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1748 = create_external (JIT_FN (octave_jit_paren_subsasgn_impl), m_matrix,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1749 m_matrix, m_index, m_scalar);
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1750 fn = create_internal ("octave_jit_paren_subsasgn", m_matrix, m_matrix,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1751 m_scalar, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1752 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1753 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1754 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1755 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1756 llvm::Value *one_idx = llvm::ConstantInt::get (m_index_t, 1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1757 llvm::Value *one_int = llvm::ConstantInt::get (int_t, 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1758
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1759 llvm::Value *mat = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1760 llvm::Value *idx = fn.argument (m_builder, 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1761 llvm::Value *value = fn.argument (m_builder, 2);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1762
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1763 llvm::Value *int_idx = m_builder.CreateFPToSI (idx, m_index_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1764 llvm::Value *check_idx = m_builder.CreateSIToFP (int_idx, m_scalar_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1765 llvm::Value *cond0 = m_builder.CreateFCmpUNE (idx, check_idx);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1766 llvm::Value *cond1 = m_builder.CreateICmpSLT (int_idx, one_idx);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1767 llvm::Value *cond = m_builder.CreateOr (cond0, cond1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1768
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1769 llvm::BasicBlock *done = fn.new_block ("done");
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1770
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1771 llvm::BasicBlock *conv_error = fn.new_block ("conv_error", done);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1772 llvm::BasicBlock *normal = fn.new_block ("normal", done);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1773 m_builder.CreateCondBr (cond, conv_error, normal);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1774 m_builder.SetInsertPoint (conv_error);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1775 ginvalid_index.call (m_builder);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1776 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1777
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1778 m_builder.SetInsertPoint (normal);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1779 llvm::Value *len = m_builder.CreateExtractValue (mat, 2);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1780 cond0 = m_builder.CreateICmpSGT (int_idx, len);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1781
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1782 llvm::Value *rcount = m_builder.CreateExtractValue (mat, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1783 rcount = m_builder.CreateLoad (rcount);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1784 cond1 = m_builder.CreateICmpSGT (rcount, one_int);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1785 cond = m_builder.CreateOr (cond0, cond1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1786
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1787 llvm::BasicBlock *bounds_error = fn.new_block ("bounds_error", done);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1788 llvm::BasicBlock *success = fn.new_block ("success", done);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1789 m_builder.CreateCondBr (cond, bounds_error, success);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1790
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1791 // resize on out of bounds access
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1792 m_builder.SetInsertPoint (bounds_error);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1793 llvm::Value *resize_result = resize_paren_subsasgn.call (m_builder, mat,
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1794 int_idx, value);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1795 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1796
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1797 m_builder.SetInsertPoint (success);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1798 llvm::Value *data
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1799 = m_builder.CreateExtractValue (mat, llvm::ArrayRef<unsigned> (1));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1800 llvm::Value *gep = m_builder.CreateInBoundsGEP (data, int_idx);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1801 m_builder.CreateStore (value, gep);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1802 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1803
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1804 m_builder.SetInsertPoint (done);
15893 1f076c40c133 Do not use vectorized llvm commands for complex numbers Max Brister <max@2bass.com> parents: 15603 diff changeset	1805
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1806 llvm::PHINode *merge = llvm::PHINode::Create (m_matrix_t, 3);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1807 m_builder.Insert (merge);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1808 merge->addIncoming (mat, conv_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1809 merge->addIncoming (resize_result, bounds_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1810 merge->addIncoming (mat, success);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1811 fn.do_return (m_builder, merge);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1812 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1813 paren_subsasgn_fn.add_overload (fn);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1814
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1815 fn = create_external (JIT_FN (octave_jit_paren_subsasgn_matrix_range),
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1816 m_matrix, m_matrix, m_range, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1817 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1818 paren_subsasgn_fn.add_overload (fn);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1819
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1820 fn = create_internal ("octave_jit_end1_matrix", m_scalar, m_matrix,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1821 m_index, m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1822 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1823 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1824 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1825 llvm::Value *mat = fn.argument (m_builder, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1826 llvm::Value *ret = m_builder.CreateExtractValue (mat, 2);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1827 fn.do_return (m_builder, m_builder.CreateSIToFP (ret, m_scalar_t));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1828 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1829 m_end1_fn.add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1830
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1831 fn = create_external (JIT_FN (octave_jit_end_matrix),m_scalar, m_matrix,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1832 m_index, m_index);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1833 m_end_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1834
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1835 // -------------------- create_undef --------------------
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1836 fn = create_external (JIT_FN (octave_jit_create_undef), m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1837 m_create_undef_fn.add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1838
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1839 m_casts[m_any->type_id ()].stash_name ("(any)");
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1840 m_casts[m_scalar->type_id ()].stash_name ("(scalar)");
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1841 m_casts[m_complex->type_id ()].stash_name ("(complex)");
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1842 m_casts[m_matrix->type_id ()].stash_name ("(matrix)");
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1843 m_casts[m_range->type_id ()].stash_name ("(range)");
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1844
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1845 // cast m_any <- matrix
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1846 fn = create_external (JIT_FN (octave_jit_cast_any_matrix), m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1847 m_matrix);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1848 m_casts[m_any->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1849
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1850 // cast matrix <- any
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1851 fn = create_external (JIT_FN (octave_jit_cast_matrix_any), m_matrix,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1852 m_any);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1853 m_casts[m_matrix->type_id ()].add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1854
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1855 // cast any <- range
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1856 fn = create_external (JIT_FN (octave_jit_cast_any_range), m_any, m_range);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1857 m_casts[m_any->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1858
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1859 // cast range <- any
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1860 fn = create_external (JIT_FN (octave_jit_cast_range_any), m_range, m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1861 m_casts[m_range->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1862
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1863 // cast any <- scalar
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1864 fn = create_external (JIT_FN (octave_jit_cast_any_scalar), m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1865 m_scalar);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1866 m_casts[m_any->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1867
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1868 // cast scalar <- any
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1869 fn = create_external (JIT_FN (octave_jit_cast_scalar_any), m_scalar,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1870 m_any);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1871 m_casts[m_scalar->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1872
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1873 // cast any <- complex
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1874 fn = create_external (JIT_FN (octave_jit_cast_any_complex), m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1875 m_complex);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1876 m_casts[m_any->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1877
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1878 // cast complex <- any
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1879 fn = create_external (JIT_FN (octave_jit_cast_complex_any), m_complex,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1880 m_any);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1881 m_casts[m_complex->type_id ()].add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1882
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1883 // cast complex <- scalar
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1884 fn = create_internal ("octave_jit_cast_complex_scalar", m_complex,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1885 m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1886 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1887 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1888 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1889 llvm::Value *zero = llvm::ConstantFP::get (m_scalar_t, 0);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1890 fn.do_return (m_builder, complex_new (fn.argument (m_builder, 0), zero));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1891 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1892 m_casts[m_complex->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1893
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1894 // cast scalar <- complex
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1895 fn = create_internal ("octave_jit_cast_scalar_complex", m_scalar,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1896 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1897 body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1898 m_builder.SetInsertPoint (body);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1899 fn.do_return (m_builder, complex_real (fn.argument (m_builder, 0)));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1900 m_casts[m_scalar->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1901
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1902 // cast any <- any
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1903 fn = create_identity (m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1904 m_casts[m_any->type_id ()].add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1905
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1906 // cast scalar <- scalar
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1907 fn = create_identity (m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1908 m_casts[m_scalar->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1909
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1910 // cast complex <- complex
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1911 fn = create_identity (m_complex);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1912 m_casts[m_complex->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1913
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1914 // -------------------- builtin functions --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1915 add_builtin ("#unknown_function");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1916 m_unknown_function = m_builtins["#unknown_function"];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1917
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1918 add_builtin ("sin");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1919 register_intrinsic ("sin", llvm::Intrinsic::sin, m_scalar, m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1920 register_generic ("sin", m_matrix, m_matrix);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1921
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1922 add_builtin ("cos");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1923 register_intrinsic ("cos", llvm::Intrinsic::cos, m_scalar, m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1924 register_generic ("cos", m_matrix, m_matrix);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1925
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1926 add_builtin ("exp");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1927 register_intrinsic ("exp", llvm::Intrinsic::exp, m_scalar, m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1928 register_generic ("exp", m_matrix, m_matrix);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1929
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1930 add_builtin ("balance");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1931 register_generic ("balance", m_matrix, m_matrix);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1932
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1933 add_builtin ("cond");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1934 register_generic ("cond", m_scalar, m_matrix);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1935
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1936 add_builtin ("det");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1937 register_generic ("det", m_scalar, m_matrix);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1938
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1939 add_builtin ("norm");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1940 register_generic ("norm", m_scalar, m_matrix);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1941
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1942 add_builtin ("rand");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1943 register_generic ("rand", m_matrix, m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1944 register_generic ("rand", m_matrix, std::vector<jit_type *> (2, m_scalar));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1945
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1946 add_builtin ("magic");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1947 register_generic ("magic", m_matrix, m_scalar);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1948 register_generic ("magic", m_matrix,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1949 std::vector<jit_type *> (2, m_scalar));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1950
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1951 add_builtin ("eye");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1952 register_generic ("eye", m_matrix, m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1953 register_generic ("eye", m_matrix, std::vector<jit_type *> (2, m_scalar));
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1954
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1955 add_builtin ("mod");
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1956 register_generic ("mod", m_scalar, std::vector<jit_type *> (2, m_scalar));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1957
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1958 // m_casts.resize (m_next_id + 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1959 jit_function any_id = create_identity (m_any);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1960 jit_function grab_any = create_external (JIT_FN (octave_jit_grab_any),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1961 m_any, m_any);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1962
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1963 jit_function release_any = m_release_fn.overload (m_any);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1964
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1965 std::vector<jit_type *> args;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1966 args.resize (1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1967
25337 3ff9192b676e use auto keyword to declare iterator variables where possible John W. Eaton <jwe@octave.org> parents: 25336 diff changeset	1968 for (auto iter = m_builtins.begin ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1969 iter != m_builtins.end (); ++iter)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1970 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1971 jit_type *btype = iter->second;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1972 args[0] = btype;
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	1973
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1974 m_grab_fn.add_overload (jit_function (grab_any, btype, args));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1975 m_release_fn.add_overload (jit_function (release_any, 0, args));
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1976 m_casts[m_any->type_id ()].add_overload (jit_function (any_id, m_any,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	1977 args));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1978
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1979 args[0] = m_any;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1980 m_casts[btype->type_id ()].add_overload (jit_function (any_id, btype,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1981 args));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1982 }
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1983
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1984 m_base_jit_module->finalizeObject ();
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1985
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1986 s_in_construction = false;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1987 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1988
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1989 // create a function with an external calling convention
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1990 // forces the function pointer to be specified
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1991 template <typename fn_ptr_type> jit_function
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1992 jit_typeinfo::create_external (fn_ptr_type fn,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1993 const llvm::Twine& name,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1994 jit_type *ret,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1995 const std::vector<jit_type *>& args) const
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1996 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1997 jit_function retval (m_base_jit_module, jit_convention::external,
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1998 name, ret, args);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1999
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2000 m_base_jit_module->add_global_mapping (retval.to_llvm (), fn);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2001
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2002 return retval;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2003 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2004
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2005 jit_type*
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2006 jit_typeinfo::do_register_new_type (const std::string& name,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2007 jit_type *parent,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2008 llvm::Type *llvm_type,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2009 bool skip_paren)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2010 {
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2011 // FIXME: Currently our types do not form a lattice
25951 7a507e71d922 style fixes John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2012 assert ((name == "any") \|\| (name == "any_ptr")
7a507e71d922 style fixes John W. Eaton <jwe@octave.org> parents: 25103 diff changeset	2013 \|\| (name == "scalar_ptr") \|\| (parent != nullptr));
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2014
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2015 jit_type *ret = new jit_type (name, parent, llvm_type, skip_paren,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2016 m_next_id++);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2017 m_id_to_type.push_back (ret);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2018
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2019 m_casts.push_back (jit_operation ("(" + name + ")"));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2020 m_identities.push_back (jit_function ());
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2021
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2022 return ret;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2023 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2024
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2025 jit_type*
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2026 jit_typeinfo::do_get_intN (size_t nbits) const
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2027 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2028 std::map<size_t, jit_type *>::const_iterator iter = m_ints.find (nbits);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2029 if (iter != m_ints.end ())
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2030 return iter->second;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2031
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2032 throw jit_fail_exception ("No such integer type");
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	2033 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2034
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2035 const jit_function&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2036 jit_typeinfo::do_end (jit_value value, jit_value idx, jit_value *count)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2037 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2038 jit_const_index ccount = dynamic_cast<jit_const_index > (count);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2039 if (ccount && ccount->value () == 1)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2040 return m_end1_fn.overload (value->type (), idx->type (), count->type ());
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2041
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2042 return m_end_fn.overload (value->type (), idx->type (), count->type ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2043 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2044
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2045 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2046 jit_typeinfo::add_print (jit_type ty, void fptr)
15135 bd6bb87e2bea Support sin, cos, and exp with matrix arguments in JIT Max Brister <max@2bass.com> parents: 15124 diff changeset	2047 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2048 std::stringstream name;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2049 name << "octave_jit_print_" << ty->name ();
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2050
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2051 jit_function fn = create_external (fptr, name.str (), nullptr,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2052 do_get_intN (8), ty);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2053
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2054 m_print_fn.add_overload (fn);
15135 bd6bb87e2bea Support sin, cos, and exp with matrix arguments in JIT Max Brister <max@2bass.com> parents: 15124 diff changeset	2055 }
bd6bb87e2bea Support sin, cos, and exp with matrix arguments in JIT Max Brister <max@2bass.com> parents: 15124 diff changeset	2056
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2057 // FIXME: cp between add_binary_op, add_binary_icmp, and add_binary_fcmp
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2058 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2059 jit_typeinfo::add_binary_op (jit_type *ty, int op, int llvm_op)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2060 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2061 std::stringstream fname;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2062 octave_value::binary_op ov_op = static_cast<octave_value::binary_op>(op);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2063 fname << "octave_jit_" << octave_value::binary_op_as_string (ov_op)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2064 << '_' << ty->name ();
15146 709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2065
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2066 jit_function fn = create_internal (fname.str (), ty, ty, ty);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2067 llvm::BasicBlock *block = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2068 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2069 llvm::Instruction::BinaryOps temp
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2070 = static_cast<llvm::Instruction::BinaryOps>(llvm_op);
15334 8125773322d4 Error on undefined an unused variables in JIT Max Brister <max@2bass.com> parents: 15311 diff changeset	2071
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2072 llvm::Value *ret = m_builder.CreateBinOp (temp, fn.argument (m_builder, 0),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2073 fn.argument (m_builder, 1));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2074 fn.do_return (m_builder, ret);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2075 m_binary_ops[op].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2076 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2077
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2078 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2079 jit_typeinfo::add_binary_icmp (jit_type *ty, int op, int llvm_op)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2080 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2081 std::stringstream fname;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2082 octave_value::binary_op ov_op = static_cast<octave_value::binary_op>(op);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2083 fname << "octave_jit" << octave_value::binary_op_as_string (ov_op)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2084 << '_' << ty->name ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2085
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2086 jit_function fn = create_internal (fname.str (), m_boolean, ty, ty);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2087 llvm::BasicBlock *block = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2088 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2089 llvm::CmpInst::Predicate temp
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2090 = static_cast<llvm::CmpInst::Predicate>(llvm_op);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2091 llvm::Value *ret = m_builder.CreateICmp (temp, fn.argument (m_builder, 0),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2092 fn.argument (m_builder, 1));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2093 fn.do_return (m_builder, ret);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2094 m_binary_ops[op].add_overload (fn);
15146 709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2095 }
709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2096
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2097 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2098 jit_typeinfo::add_binary_fcmp (jit_type *ty, int op, int llvm_op)
15146 709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2099 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2100 std::stringstream fname;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2101 octave_value::binary_op ov_op = static_cast<octave_value::binary_op>(op);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2102 fname << "octave_jit" << octave_value::binary_op_as_string (ov_op)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2103 << '_' << ty->name ();
15146 709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2104
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2105 jit_function fn = create_internal (fname.str (), m_boolean, ty, ty);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2106 llvm::BasicBlock *block = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2107 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2108 llvm::CmpInst::Predicate temp
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2109 = static_cast<llvm::CmpInst::Predicate>(llvm_op);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2110 llvm::Value *ret = m_builder.CreateFCmp (temp, fn.argument (m_builder, 0),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2111 fn.argument (m_builder, 1));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2112 fn.do_return (m_builder, ret);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2113 m_binary_ops[op].add_overload (fn);
15893 1f076c40c133 Do not use vectorized llvm commands for complex numbers Max Brister <max@2bass.com> parents: 15603 diff changeset	2114 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2115
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2116 jit_function
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2117 jit_typeinfo::create_identity (jit_type *type)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2118 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2119 size_t id = type->type_id ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2120 if (id >= m_identities.size ())
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2121 m_identities.resize (id + 1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2122
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2123 if (! m_identities[id].valid ())
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2124 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2125 std::stringstream name;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2126 name << "id_" << type->name ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2127
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2128 jit_function fn = create_internal (name.str (), type, type);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2129 llvm::BasicBlock *body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2130 m_builder.SetInsertPoint (body);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2131 fn.do_return (m_builder, fn.argument (m_builder, 0));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2132 return m_identities[id] = fn;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2133 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2134
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2135 return m_identities[id];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2136 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2137
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2138 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2139 jit_typeinfo::do_insert_error_check (llvm::IRBuilderD& abuilder)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2140 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2141 return abuilder.CreateLoad (m_lerror_state);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2142 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2143
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2144 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2145 jit_typeinfo::do_insert_interrupt_check (llvm::IRBuilderD& abuilder)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2146 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2147 llvm::LoadInst *val = abuilder.CreateLoad (m_loctave_interrupt_state);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2148 val->setVolatile (true);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2149 return abuilder.CreateICmpSGT (val, abuilder.getInt32 (0));
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2150 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2151
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2152 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2153 jit_typeinfo::add_builtin (const std::string& name)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2154 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2155 jit_type *btype = do_register_new_type (name, m_any, m_any_t, true);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2156 m_builtins[name] = btype;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2157
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2158 octave_builtin *ov_builtin = find_builtin (name);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2159 if (ov_builtin)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2160 ov_builtin->stash_jit (*btype);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2161 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2162
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2163 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2164 jit_typeinfo::register_intrinsic (const std::string& name, size_t iid,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2165 jit_type *result,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2166 const std::vector<jit_type *>& args)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2167 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2168 jit_type *builtin_type = m_builtins[name];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2169 size_t nargs = args.size ();
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2170 std::vector<llvm::Type*> llvm_args (nargs);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2171 for (size_t i = 0; i < nargs; ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2172 llvm_args[i] = args[i]->to_llvm ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2173
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2174 llvm::Function *ifun = m_base_jit_module->
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2175 get_intrinsic_declaration (iid, llvm_args);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2176
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2177 std::stringstream fn_name;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2178 fn_name << "octave_jit_" << name;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2179
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2180 std::vector<jit_type *> args1 (nargs + 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2181 args1[0] = builtin_type;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2182 std::copy (args.begin (), args.end (), args1.begin () + 1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2183
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2184 // The first argument will be the Octave function, but we already know that
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2185 // the function call is the equivalent of the intrinsic, so we ignore it
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2186 // and call the intrinsic with the remaining arguments.
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2187 jit_function fn = create_internal (fn_name.str (), result, args1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2188 llvm::BasicBlock *body = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2189 m_builder.SetInsertPoint (body);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2190
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2191 llvm::SmallVector<llvm::Value *, 5> fargs (nargs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2192 for (size_t i = 0; i < nargs; ++i)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2193 fargs[i] = fn.argument (m_builder, i + 1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2194
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2195 llvm::Value *ret = m_builder.CreateCall (ifun, fargs);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2196 fn.do_return (m_builder, ret);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2197 paren_subsref_fn.add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2198 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2199
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2200 octave_builtin *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2201 jit_typeinfo::find_builtin (const std::string& name)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2202 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2203 symbol_table& symtab = __get_symbol_table__ ("jit_typeinfo::find_builtin");
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2204
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2205 // FIXME: Finalize what we want to store in octave_builtin, then add
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2206 // functions to access these values in octave_value
26339 b880c6426424 Fix jit compilation with LLVM 3.8 (bug #55349). Julien Bect <jbect@users.sourceforge.net> parents: 26003 diff changeset	2207 octave_value ov_builtin = symtab.builtin_find (name);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2208 return dynamic_cast<octave_builtin *> (ov_builtin.internal_rep ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2209 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2210
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2211 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2212 jit_typeinfo::register_generic (const std::string& name, jit_type *result,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2213 const std::vector<jit_type *>& args)
15056 bc32288f4a42 Support the end keyword for one dimentional indexing in JIT. Max Brister <max@2bass.com> parents: 15027 diff changeset	2214 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2215 octave_builtin *builtin = find_builtin (name);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2216 if (! builtin)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2217 return;
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15334 diff changeset	2218
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2219 std::vector<jit_type *> fn_args (args.size () + 1);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2220 fn_args[0] = m_builtins[name];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2221 std::copy (args.begin (), args.end (), fn_args.begin () + 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2222 jit_function fn = create_internal (name, result, fn_args);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2223 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2224 llvm::BasicBlock *block = fn.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2225 m_builder.SetInsertPoint (block);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2226 llvm::ArrayType *array_t = llvm::ArrayType::get (m_any_t, args.size ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2227 llvm::Value *array = llvm::UndefValue::get (array_t);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2228 for (size_t i = 0; i < args.size (); ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2229 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2230 llvm::Value *arg = fn.argument (m_builder, i + 1);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2231 jit_function agrab = m_grab_fn.overload (args[i]);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2232 if (agrab.valid ())
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2233 arg = agrab.call (m_builder, arg);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2234 jit_function acast = do_cast (m_any, args[i]);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2235 array = m_builder.CreateInsertValue (array,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2236 acast.call (m_builder, arg), i);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2237 }
15027 741d2dbcc117 Check trip count before compiling for loops. Max Brister <max@2bass.com> parents: 15019 diff changeset	2238
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2239 llvm::Value *array_mem = m_builder.CreateAlloca (array_t);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2240 m_builder.CreateStore (array, array_mem);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2241 array = m_builder.CreateBitCast (array_mem, m_any_t->getPointerTo ());
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2242
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2243 jit_type jintTy = do_get_intN (sizeof (octave_builtin::fcn) 8);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2244 llvm::Type *intTy = jintTy->to_llvm ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2245 size_t fcn_int = reinterpret_cast<size_t> (builtin->function ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2246 llvm::Value *fcn = llvm::ConstantInt::get (intTy, fcn_int);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2247 llvm::Value *nargin = llvm::ConstantInt::get (intTy, args.size ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2248 size_t result_int = reinterpret_cast<size_t> (result);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2249 llvm::Value *res_llvm = llvm::ConstantInt::get (intTy, result_int);
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2250 llvm::Value *ret = m_any_call.call (m_builder, fcn, nargin, array,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2251 res_llvm);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2252
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2253 jit_function cast_result = do_cast (result, m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2254 fn.do_return (m_builder, cast_result.call (m_builder, ret));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2255 paren_subsref_fn.add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2256 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2257
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2258 jit_function
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2259 jit_typeinfo::mirror_binary (const jit_function& fn)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2260 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2261 jit_function ret = create_internal (fn.name () + "_reverse",
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2262 fn.result (), fn.argument_type (1),
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2263 fn.argument_type (0));
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2264 if (fn.can_error ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2265 ret.mark_can_error ();
15169 6242904370bd Support balance, cond, det, norm, rand, magic, eye, and mod in JIT Max Brister <max@2bass.com> parents: 15148 diff changeset	2266
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2267 llvm::BasicBlock *body = ret.new_block ();
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2268 m_builder.SetInsertPoint (body);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2269 llvm::Value *result = fn.call (m_builder, ret.argument (m_builder, 1),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2270 ret.argument (m_builder, 0));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2271 if (ret.result ())
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2272 ret.do_return (m_builder, result);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2273 else
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2274 ret.do_return (m_builder);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2275
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2276 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2277 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2278
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2279 llvm::Value *
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2280 jit_typeinfo::do_pack_complex (llvm::IRBuilderD& bld, llvm::Value *cplx) const
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2281 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2282 llvm::Value *real = bld.CreateExtractValue (cplx, 0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2283 llvm::Value *imag = bld.CreateExtractValue (cplx, 1);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2284 llvm::Value *ret = llvm::UndefValue::get (m_complex_ret);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2285
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2286 unsigned int re_idx[] = {0, 0};
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2287 unsigned int im_idx[] = {0, 1};
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2288 ret = bld.CreateInsertValue (ret, real, re_idx);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2289 return bld.CreateInsertValue (ret, imag, im_idx);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2290 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2291
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2292 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2293 jit_typeinfo::unpack_complex (llvm::IRBuilderD& bld, llvm::Value *result)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2294 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2295 unsigned int re_idx[] = {0, 0};
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2296 unsigned int im_idx[] = {0, 1};
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2297
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2298 llvm::Type *m_complex_t = get_complex ()->to_llvm ();
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2299 llvm::Value *real = bld.CreateExtractValue (result, re_idx);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2300 llvm::Value *imag = bld.CreateExtractValue (result, im_idx);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2301 llvm::Value *ret = llvm::UndefValue::get (m_complex_t);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2302
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2303 ret = bld.CreateInsertValue (ret, real, 0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2304 return bld.CreateInsertValue (ret, imag, 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2305 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	2306
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2307 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2308 jit_typeinfo::complex_real (llvm::Value *cx)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2309 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2310 return m_builder.CreateExtractValue (cx, 0);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2311 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2312
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2313 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2314 jit_typeinfo::complex_real (llvm::Value cx, llvm::Value real)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2315 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2316 return m_builder.CreateInsertValue (cx, real, 0);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2317 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2318
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2319 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2320 jit_typeinfo::complex_imag (llvm::Value *cx)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2321 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2322 return m_builder.CreateExtractValue (cx, 1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2323 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2324
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2325 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2326 jit_typeinfo::complex_imag (llvm::Value cx, llvm::Value imag)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2327 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2328 return m_builder.CreateInsertValue (cx, imag, 1);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2329 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2330
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2331 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2332 jit_typeinfo::complex_new (llvm::Value real, llvm::Value imag)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2333 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2334 llvm::Value *ret = llvm::UndefValue::get (m_complex->to_llvm ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2335 ret = complex_real (ret, real);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2336 return complex_imag (ret, imag);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2337 }
15135 bd6bb87e2bea Support sin, cos, and exp with matrix arguments in JIT Max Brister <max@2bass.com> parents: 15124 diff changeset	2338
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2339 jit_type *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2340 jit_typeinfo::do_type_of (const octave_value& ov) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2341 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2342 if (ov.is_function ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2343 {
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2344 // FIXME: This is ugly, we need to finalize how we want to do this,
078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2345 // then have octave_value fully support the needed functionality
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2346 octave_builtin *builtin
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2347 = dynamic_cast<octave_builtin *> (ov.internal_rep ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2348 return builtin && builtin->to_jit () ? builtin->to_jit ()
25103 078b795c5219 maint: style check C++ ahead of 4.4 release. Rik <rik@octave.org> parents: 25054 diff changeset	2349 : m_unknown_function;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2350 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2351
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2352 if (ov.is_range ())
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2353 return m_range;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2354
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2355 if (ov.is_double_type () && ! ov.iscomplex ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2356 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2357 if (ov.is_real_scalar ())
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2358 return m_scalar;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2359
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2360 if (ov.is_matrix_type ())
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2361 return m_matrix;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2362 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2363
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2364 if (ov.is_complex_scalar ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2365 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2366 Complex cv = ov.complex_value ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2367
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2368 // We don't really represent complex values, instead we represent
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2369 // complex_or_scalar. If the imag value is zero, we assume a scalar.
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2370 if (cv.imag () != 0)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2371 return m_complex;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2372 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2373
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2374 return m_any;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2375 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2376 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2377
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2378 #endif

Mercurial > octave

annotate libinterp/parse-tree/jit-typeinfo.cc @ 28223:45763d59cb4f stable