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

annotate libinterp/parse-tree/jit-typeinfo.cc @ 26003:c60a5493688a

avoid std::cout in JIT compiler code * jit-typeinfo.cc, pt-jit.cc: Use octave_stdout instead of std::cout for debugging messages. Use error instead of writing to std::cerr.

author	John W. Eaton <jwe@octave.org>
date	Thu, 01 Nov 2018 14:37:10 -0400
parents	12d4271aed87
children	b880c6426424

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

Mercurial > octave

annotate libinterp/parse-tree/jit-typeinfo.cc @ 26003:c60a5493688a