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

annotate libinterp/parse-tree/jit-typeinfo.cc @ 24847:fa4e852dae1e

use m_ prefix consistently in jit compiler classes in the parser * jit-ir.cc, jit-ir.h, jit-typeinfo.cc, jit-typeinfo.h, jit-util.cc, jit-util.h, pt-jit.cc: Use m_ prefix consistently in jit compiler classes in the parser. Style fixes.

author	John W. Eaton <jwe@octave.org>
date	Wed, 07 Mar 2018 16:42:08 -0500
parents	194eb4bd202b
children	6652d3823428

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
23219 3ac9f9ecfae5 maint: Update copyright dates. John W. Eaton <jwe@octave.org> parents: 23083 diff changeset	3 Copyright (C) 2012-2017 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 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	219 octave::err_nan_to_logical_conversion ();
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.
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	228 octave::err_invalid_index (static_cast<octave_idx_type> (-1));
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 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	235 octave::err_index_out_of_range (nd, dim, iext, ext);
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
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	306 octave_idx_type start = static_cast<octave_idx_type> (index->m_base) - 1;
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 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	400 return (octave::math::x_nint (x) == x
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 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	441 std::cout << *m << std::endl;
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 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	503 return os << "Matrix[" << mat.m_ref_count << ", " << mat.m_slice_data << ", "
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	504 << mat.m_slice_len << ", " << mat.m_dimensions << ", "
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	505 << 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,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	512 llvm::Type *allvm_type, bool askip_paren, int aid) :
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	513 m_name (aname), m_parent (aparent), m_llvm_type (allvm_type), m_id (aid),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 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)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	573 : m_module (amodule), m_result (aresult), m_args (aargs), m_call_conv (acall_conv),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	574 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
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	589 for (std::vector<jit_type *>::const_iterator iter = m_args.begin ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	590 iter != m_args.end (); ++iter)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	591 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	592 jit_type ty = iter;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	593 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	594 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	595 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	596 argty = argty->getPointerTo ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	597
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	598 llvm_args.push_back (argty);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	599 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	600
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	601 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	602 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	603
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	604 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	605 {
21724 aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef" John W. Eaton <jwe@octave.org> parents: 21568 diff changeset	606 #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	607 llvm::AttrBuilder attr_builder;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	608 attr_builder.addAttribute (llvm::Attributes::StructRet);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	609 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	610 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	611 #else
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	612 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	613 #endif
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	614 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	615
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	616 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	617 #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	618 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	619 #else
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	620 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	621 #endif
24239 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
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	624 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	625 const std::vector<jit_type *>& aargs)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	626 : m_module (fn.m_module), m_llvm_function (fn.m_llvm_function), m_result (aresult),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	627 m_args (aargs), m_call_conv (fn.m_call_conv), 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)
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	631 : m_module (fn.m_module), m_llvm_function (fn.m_llvm_function), m_result (fn.m_result),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	632 m_args (fn.m_args), m_call_conv (fn.m_call_conv), 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	633 { }
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 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	636 jit_function::erase (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	637 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	638 if (! m_llvm_function)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	639 return;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	640
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	641 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	642 m_llvm_function = 0;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	643 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	644
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	645 std::string
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	646 jit_function::name (void) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	647 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	648 return m_llvm_function->getName ();
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	649 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	650
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	651 llvm::BasicBlock *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	652 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	653 llvm::BasicBlock *insert_before)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	654 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	655 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	656 insert_before);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	657 }
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 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	660 jit_function::call (llvm::IRBuilderD& builder,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	661 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	662 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	663 if (! valid ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	664 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	665
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	666 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	667 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	668 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	669 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	670
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	671 return call (builder, llvm_args);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	672 }
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 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	675 jit_function::call (llvm::IRBuilderD& builder,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	676 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	677 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	678 if (! valid ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	679 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	680
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	681 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	682 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	683 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	684
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	685 llvm::BasicBlock *insert_block = builder.GetInsertBlock ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	686 llvm::Function *parent = insert_block->getParent ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	687 assert (parent);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	688
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	689 // we insert allocas inside the prelude block to prevent stack overflows
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	690 llvm::BasicBlock& prelude = parent->getEntryBlock ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	691 llvm::IRBuilder<> pre_builder (&prelude, prelude.begin ());
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	692
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	693 llvm::AllocaInst *sret_mem = nullptr;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	694 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	695 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	696 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	697 llvm_args.push_back (sret_mem);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	698 }
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 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	701 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	702 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	703 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	704 if (convert)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	705 arg = convert (builder, arg);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	706
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	707 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	708 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	709 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	710 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	711 builder.CreateStore (arg, alloca);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	712 arg = alloca;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	713 }
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 llvm_args.push_back (arg);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	716 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	717
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	718 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	719 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	720
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	721 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	722 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	723 #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	724 llvm::AttrBuilder attr_builder;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	725 attr_builder.addAttribute(llvm::Attributes::StructRet);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	726 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	727 callinst->addAttribute (1, attrs);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	728 #else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	729 callinst->addAttribute (1, llvm::Attribute::StructRet);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	730 #endif
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	731 ret = builder.CreateLoad (sret_mem);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	732 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	733
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	734 if (m_result)
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	735 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	736 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	737 if (unpack)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	738 ret = unpack (builder, ret);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	739 }
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 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	742 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	743
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	744 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	745 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	746 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	747 assert (idx < m_args.size ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	748
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	749 // 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	750 // 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	751 // be much bigger than 4
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	752 llvm::Function::arg_iterator 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	753 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	754 ++iter;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	755
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	756 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	757
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	758 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	759 return builder.CreateLoad (&*iter);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	760
24241 ca25f6e48ca5 jit: Convert llvm::Function::arg_iterator to pointer explicitely Julien Bect <jbect@users.sourceforge.net> parents: 24239 diff changeset	761 return &*iter;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	762 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	763
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	764 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	765 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	766 bool verify)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	767 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	768 assert (! rval == ! m_result);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	769
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	770 if (rval)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	771 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	772 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	773 if (convert)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	774 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	775
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	776 if (sret ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	777 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	778 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	779 builder.CreateRetVoid ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	780 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	781 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	782 builder.CreateRet (rval);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	783 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	784 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	785 builder.CreateRetVoid ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	786
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	787 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	788 llvm::verifyFunction (*m_llvm_function);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	789 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	790
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	791 std::ostream&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	792 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	793 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	794 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	795 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	796 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	797 lfn->print (llvm_out);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	798 llvm_out.flush ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	799 return os;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	800 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	801
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	802 // -------------------- jit_operation --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	803 jit_operation::~jit_operation (void)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	804 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	805 for (generated_map::iterator iter = m_generated.begin ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	806 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 ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	879 numel = std::max (numel, static_cast<octave_idx_type>(2));
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));
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	882 for (octave_idx_type i = 0; i < static_cast<octave_idx_type> (types.size ());
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	883 ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	884 idx(i) = types[i]->type_id ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	885
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	886 if (types.size () == 0)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	887 idx(0) = idx(1) = 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	888 if (types.size () == 1)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	889 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	890 idx(1) = idx(0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	891 idx(0) = 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	892 }
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 return idx;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	895 }
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 const jit_function&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	898 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	899 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	900 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	901 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	902 if (find != m_generated.end ())
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	903 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	904 if (find->second)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	905 return *find->second;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	906 else
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	907 return null_overload;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	908 }
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 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	911 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	912 return ret ? *ret : null_overload;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	913 }
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 jit_function *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	916 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	917 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	918 return 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	919 }
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 bool
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	922 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	923 const signature_vec *rhs) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	924 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	925 const signature_vec& l = *lhs;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	926 const signature_vec& r = *rhs;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	927
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	928 if (l.size () < r.size ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	929 return true;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	930 else if (l.size () > r.size ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	931 return false;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	932
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	933 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	934 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	935 if (l[i]->type_id () < r[i]->type_id ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	936 return true;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	937 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	938 return false;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	939 }
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 return false;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	942 }
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 // -------------------- jit_index_operation --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	945 jit_function *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	946 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	947 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	948 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	949 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	950 // indexing a matrix with scalars
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	951 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	952 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	953 if (types[i] != scalar)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	954 return 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	955
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	956 return generate_matrix (types);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	957 }
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 return 0;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	960 }
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 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	963 jit_index_operation::create_arg_array (llvm::IRBuilderD& builder,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	964 const jit_function& fn, size_t start_idx,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	965 size_t end_idx) const
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	966 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	967 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	968 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	969 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	970 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	971 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	972 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	973 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	974 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	975 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	976
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	977 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	978 builder.CreateStore (array, array_mem);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	979 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	980 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	981
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	982 // -------------------- jit_paren_subsref --------------------
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	983
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	984 jit_paren_subsref::jit_paren_subsref (const jit_typeinfo& ti)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	985 : jit_index_operation (ti, "()subsref"),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	986 m_paren_scalar (nullptr)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	987 {
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	988 }
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)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1040 : jit_index_operation (ti, "()subsasgn"),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1041 m_paren_scalar (nullptr)
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1042 { }
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1043
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1044 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	1045 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1046 delete m_paren_scalar;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1047 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1048
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1049 jit_function *
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1050 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	1051 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1052 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	1053 panic_impossible ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1054
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1055 std::stringstream ss;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1056 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	1057
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1058 // 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	1059 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	1060 (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	1061
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1062 fn->mark_can_error ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1063 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	1064 llvm::IRBuilder<> builder (body);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1065
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1066 llvm::Value 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	1067 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	1068 types.size () - 2);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1069
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1070 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	1071 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	1072 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	1073 fn->do_return (builder, ret);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1074
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1075 return fn;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1076 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1077
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1078 void
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1079 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	1080 {
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1081 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	1082 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	1083 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	1084 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	1085 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	1086
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1087 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	1088 (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	1089 "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	1090 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	1091
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1092 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	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
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1096 // -------------------- jit_typeinfo --------------------
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1097
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1098 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	1099
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1100 // 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	1101 jit_typeinfo&
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1102 jit_typeinfo::instance (void)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1103 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1104 if (s_in_construction)
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1105 // 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	1106 // 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	1107 panic_impossible ();
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1108
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1109 static jit_typeinfo typeinfo;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1110 return typeinfo;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1111 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1112
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1113 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	1114 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1115 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	1116 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1117 delete m_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	1118 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	1119 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1120
24847 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_builder_ptr;
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1122 delete m_base_jit_module;
24239 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
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1125 // 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	1126 #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	1127
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1128 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	1129 : paren_subsref_fn (*this),
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1130 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	1131 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	1132 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	1133 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	1134 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	1135 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	1136 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	1137 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	1138 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	1139 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	1140 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	1141 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	1142 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	1143 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	1144 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	1145 m_builder_ptr (new llvm::IRBuilderD (context)),
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1146 m_builder (*m_builder_ptr) // FIXME: Use a pointer directly in the constructor, and get rid of this
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);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1160 m_any_ptr = do_register_new_type ("any_ptr", nullptr, m_any_t->getPointerTo ());
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1161
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1162 // jit_types: "scalar" < "complex" < "any"
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1163 // and: "scalar_ptr" < (nullptr)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1164 // 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	1165 // 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	1166 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	1167 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	1168 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	1169 m_scalar = do_register_new_type ("scalar", m_complex, 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	1170 m_scalar_ptr = do_register_new_type ("scalar_ptr", nullptr, m_scalar_t->getPointerTo ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1171
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1172 // 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	1173 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	1174 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	1175
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1176 // jit_types: "int8", "int16", "int32", "int64" < "any"
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1177 m_ints[ 8] = do_register_new_type ("int8", m_any, llvm::Type::getIntNTy (context, 8));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1178 m_ints[16] = do_register_new_type ("int16", m_any, llvm::Type::getIntNTy (context, 16));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1179 m_ints[32] = do_register_new_type ("int32", m_any, llvm::Type::getIntNTy (context, 32));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1180 m_ints[64] = do_register_new_type ("int64", m_any, 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	1181
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1182 // 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	1183 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	1184 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	1185 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	1186
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1187 // 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	1188 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	1189 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	1190
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1191 // 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	1192 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	1193 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1194 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	1195 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	1196 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	1197 }
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 = 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	1199
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1200 // 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	1201 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	1202 {
24446 4ca5c9f899d3 maint: Strip trailing whitespace from source files. John W. Eaton <jwe@octave.org> parents: 24249 diff changeset	1203 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	1204 llvm::Type *matrix_contents[5];
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1205 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	1206 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	1207 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	1208 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	1209 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	1210 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	1211 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1212 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	1213
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1214 // ----- Specify calling conventions -----
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1215
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1216 // 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	1217 // 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	1218 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	1219 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1220 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	1221 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	1222 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	1223 m_complex_ret->setBody (contents);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1224 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1225
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1226 // 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	1227 // 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	1228 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	1229 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	1230
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1231 m_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	1232 m_range->mark_pointer_arg (jit_convention::external);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1233
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1234 m_complex->set_pack (jit_convention::external, &jit_typeinfo::pack_complex);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1235 m_complex->set_unpack (jit_convention::external, &jit_typeinfo::unpack_complex);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1236 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	1237
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1238 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	1239 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	1240
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1241 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	1242 paren_subsasgn_fn.init_paren_scalar ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1243
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1244 // 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	1245 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	1246 "error_state");
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1247
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1248 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	1249
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1250 // sig_atomic_type is going to be some sort of integer
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1251 m_sig_atomic_type = llvm::Type::getIntNTy (context, 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	1252
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1253 m_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	1254 (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	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_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	1257 &octave_interrupt_state);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1258
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1259 // generic call function
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1260 {
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1261 jit_type int_t = do_get_intN (sizeof (octave_builtin::fcn) 8);
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_any_call = create_external (JIT_FN (octave_jit_call), m_any, int_t, int_t,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1263 m_any_ptr, int_t);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1264 }
fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1265
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1266 // 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	1267 jit_function fn;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1268 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	1269 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	1270 jit_function any_binary = create_external (JIT_FN (octave_jit_binary_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	1271 m_any, binary_op_type, m_any, m_any);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1272 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	1273
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1274 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	1275 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1276 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	1277 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	1278 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	1279 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1280
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1281 for (size_t i = 0; i < octave_value::num_unary_ops; ++i)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1282 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1283 octave_value::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	1284 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	1285 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	1286 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1287
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1288 for (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	1289 {
24242 545657c20e60 jit: jit-typeinfo.cc: Do not use assignment with llvm::Twine objects Julien Bect <jbect@users.sourceforge.net> parents: 24241 diff changeset	1290 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	1291 "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	1292
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1293 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	1294 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1295 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	1296 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1297 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	1298 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	1299 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	1300 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	1301 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	1302 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	1303 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	1304 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	1305 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1306
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1307 // 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	1308 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	1309 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	1310 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	1311 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	1312 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	1313 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	1314 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	1315 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	1316
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1317 // 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	1318 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	1319 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	1320
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1321 // release matrix
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1322 fn = create_external (JIT_FN (octave_jit_release_matrix), nullptr, m_matrix);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1323 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	1324
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1325 // destroy
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1326 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	1327 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	1328 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	1329 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	1330 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	1331
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1332 // -------------------- scalar related operations --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1333
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1334 // 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	1335 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	1336 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	1337 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	1338 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	1339
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1340 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	1341 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	1342 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	1343 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	1344 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	1345 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	1346
24246 d74d01e39f91 jit: Use nullptr (instead of 0 or NULL) as much as possible Julien Bect <jbect@users.sourceforge.net> parents: 24242 diff changeset	1347 jit_function gripe_div0 = create_external (JIT_FN (warn_divide_by_zero), nullptr);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1348 gripe_div0.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1349
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1350 // divide is annoying because it might error
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1351 fn = create_internal ("octave_jit_div_scalar_scalar", m_scalar, m_scalar, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1352 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1353
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1354 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	1355 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1356 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1357 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	1358 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	1359
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1360 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	1361 llvm::Value *check = m_builder.CreateFCmpUEQ (zero, 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	1362 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	1363
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1364 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	1365 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	1366 m_builder.CreateBr (normal_block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1367
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 (normal_block);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1369 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	1370 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	1371 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	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 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	1374 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	1375
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1376 // 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	1377 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	1378 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	1379 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	1380
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1381 // 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	1382 // 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	1383 // variables can take on.
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1384 fn = create_external (JIT_FN (octave_jit_pow_scalar_scalar), 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	1385 m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1386 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	1387 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	1388
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1389 // now for unary scalar operations
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1390 // 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	1391 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	1392 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	1393 m_builder.SetInsertPoint (body);
15078 fe4752f772e2 Generate ND indexing functions on demand in JIT. Max Brister <max@2bass.com> parents: 15068 diff changeset	1394 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1395 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	1396 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	1397 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	1398 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	1399 }
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_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	1401
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1402 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	1403 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	1404 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1405 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1406 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	1407 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	1408 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	1409 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	1410 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1411 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	1412
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1413 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	1414 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	1415 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1416 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1417 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	1418 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	1419 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	1420 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	1421 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1422 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	1423
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1424 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	1425 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	1426 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	1427 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	1428
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1429 // 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	1430 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	1431 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1432 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	1433 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1434 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1435 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	1436 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	1437 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	1438 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	1439 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	1440 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	1441 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	1442 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1443 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	1444
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1445 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	1446 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1447 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	1448 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1449 {
24847 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 *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	1451 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	1452 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	1453 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	1454 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	1455 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	1456 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	1457 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1458 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	1459
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1460 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	1461 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	1462 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	1463 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	1464
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1465 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	1466 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	1467 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	1468 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	1469 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	1470
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1471 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	1472 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	1473 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	1474 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	1475
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1476 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	1477 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1478 jit_function mul_scalar_complex = fn;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1479 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	1480 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1481 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1482 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	1483 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	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 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	1486 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	1487 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	1488
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1489 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	1490 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	1491
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1492 m_builder.SetInsertPoint (scalar_mul);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1493 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	1494 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	1495 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	1496
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1497 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	1498 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	1499 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	1500 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	1501 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1502 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	1503 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	1504
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1505 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	1506 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	1507 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	1508
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1509 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	1510 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1511 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	1512 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1513 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1514 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	1515 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	1516 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	1517 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	1518 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1519 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	1520
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1521 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	1522 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	1523
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1524 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	1525 m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1526 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	1527 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1528 {
24847 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 *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	1530 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	1531 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	1532 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	1533 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1534 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	1535
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1536 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	1537 m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1538 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	1539 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1540 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1541 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	1542 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	1543 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	1544 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	1545 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1546 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	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 fn = create_external (JIT_FN (octave_jit_pow_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	1549 m_complex);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1550 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	1551 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	1552
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1553 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	1554 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	1555 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	1556 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	1557
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1558 // 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	1559 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	1560
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1561 // 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	1562 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	1563 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	1564
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1565 // 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	1566 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	1567 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	1568
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1569 // 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	1570 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	1571 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	1572 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1573 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1574 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	1575 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	1576 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1577 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	1578
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1579 // bounds check for 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	1580 fn = create_internal ("octave_jit_for_range_check", m_boolean, m_range, m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1581 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	1582 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1583 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1584 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	1585 = 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	1586 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	1587 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	1588 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	1589 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1590 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	1591
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1592 // index variabe for 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	1593 fn = create_internal ("octave_jit_for_range_idx", m_scalar, m_range, m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1594 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	1595 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1596 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1597 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	1598 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	1599 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	1600 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	1601 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	1602
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1603 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	1604 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	1605 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	1606 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1607 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	1608
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1609 // logically true
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1610 jit_function gripe_nantl
24246 d74d01e39f91 jit: Use nullptr (instead of 0 or NULL) as much as possible Julien Bect <jbect@users.sourceforge.net> parents: 24242 diff changeset	1611 = create_external (JIT_FN (octave_jit_err_nan_to_logical_conversion), nullptr);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1612 gripe_nantl.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	1613 fn = create_internal ("octave_jit_logically_true_scalar", m_boolean, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1614 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1615 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	1616 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1617 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1618 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	1619 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	1620
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1621 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	1622 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	1623 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	1624
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1625 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	1626 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	1627 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	1628 m_builder.SetInsertPoint (normal_block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1629
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1630 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	1631 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	1632 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	1633 }
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_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	1635
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1636 // 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	1637 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	1638 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	1639
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1640 // make_range
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1641 // 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	1642 jit_function compute_nelem
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1643 = 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	1644 m_index, m_scalar, 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	1645 fn = create_internal ("octave_jit_make_range", m_range, m_scalar, m_scalar, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1646 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	1647 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1648 {
24847 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 *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	1650 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	1651 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	1652 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	1653
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1654 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	1655 llvm::Value *izero = 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	1656 llvm::Value *rng = llvm::ConstantStruct::get (m_range_t, dzero, dzero, dzero,
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1657 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	1658 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	1659 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	1660 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	1661 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	1662 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	1663 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1664 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	1665
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1666 // paren_subsref
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1667 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	1668 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	1669 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	1670 = 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	1671 jit_function gindex_range = create_external (JIT_FN (octave_jit_gindex_range),
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1672 nullptr, jit_int, jit_int, m_index,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1673 m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1674
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1675 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	1676 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1677
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1678 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	1679 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1680 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1681 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	1682 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	1683
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1684 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	1685 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	1686 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	1687
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1688 // 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	1689 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	1690 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	1691 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	1692 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	1693 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	1694
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1695 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	1696 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	1697 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	1698 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	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 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	1701 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	1702 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1703
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1704 m_builder.SetInsertPoint (normal);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1705 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	1706 = 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	1707 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	1708
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1709 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	1710 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	1711 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	1712
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1713 m_builder.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	1714 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	1715 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1716
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.SetInsertPoint (success);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1718 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	1719 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	1720 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	1721 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	1722 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1723
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1724 m_builder.SetInsertPoint (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1725
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1726 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	1727 m_builder.Insert (merge);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1728 merge->addIncoming (undef, conv_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1729 merge->addIncoming (undef, bounds_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1730 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	1731 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	1732 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1733 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	1734
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1735 // paren subsasgn
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1736 jit_function resize_paren_subsasgn
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1737 = create_external (JIT_FN (octave_jit_paren_subsasgn_impl), 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	1738 m_index, m_scalar);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1739 fn = create_internal ("octave_jit_paren_subsasgn", m_matrix, 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	1740 m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1741 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1742 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	1743 m_builder.SetInsertPoint (body);
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::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	1746 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	1747
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1748 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	1749 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	1750 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	1751
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1752 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	1753 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	1754 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	1755 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	1756 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	1757
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1758 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	1759
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1760 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	1761 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	1762 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	1763 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	1764 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	1765 m_builder.CreateBr (done);
24239 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 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	1768 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	1769 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	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 *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	1772 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	1773 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	1774 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	1775
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1776 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	1777 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	1778 m_builder.CreateCondBr (cond, bounds_error, success);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1779
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1780 // 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	1781 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	1782 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	1783 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	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 (success);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1787 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	1788 = 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	1789 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	1790 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	1791 m_builder.CreateBr (done);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1792
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1793 m_builder.SetInsertPoint (done);
15893 1f076c40c133 Do not use vectorized llvm commands for complex numbers Max Brister <max@2bass.com> parents: 15603 diff changeset	1794
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1795 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	1796 m_builder.Insert (merge);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1797 merge->addIncoming (mat, conv_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1798 merge->addIncoming (resize_result, bounds_error);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1799 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	1800 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	1801 }
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1802 paren_subsasgn_fn.add_overload (fn);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1803
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1804 fn = create_external (JIT_FN (octave_jit_paren_subsasgn_matrix_range), m_matrix,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1805 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	1806 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1807 paren_subsasgn_fn.add_overload (fn);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1808
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1809 fn = create_internal ("octave_jit_end1_matrix", m_scalar, m_matrix, m_index, m_index);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1810 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	1811 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1812 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1813 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	1814 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	1815 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	1816 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1817 m_end1_fn.add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1818
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 = create_external (JIT_FN (octave_jit_end_matrix),m_scalar, m_matrix, m_index,
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1820 m_index);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1821 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	1822
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1823 // -------------------- 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	1824 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	1825 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	1826
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1827 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	1828 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	1829 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	1830 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	1831 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	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 // cast m_any <- matrix
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1834 fn = create_external (JIT_FN (octave_jit_cast_any_matrix), m_any, m_matrix);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1835 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	1836
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1837 // cast 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	1838 fn = create_external (JIT_FN (octave_jit_cast_matrix_any), m_matrix, m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1839 m_casts[m_matrix->type_id ()].add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1840
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1841 // 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	1842 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	1843 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	1844
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1845 // 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	1846 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	1847 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	1848
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1849 // cast any <- scalar
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1850 fn = create_external (JIT_FN (octave_jit_cast_any_scalar), m_any, m_scalar);
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_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	1852
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1853 // cast scalar <- any
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1854 fn = create_external (JIT_FN (octave_jit_cast_scalar_any), m_scalar, m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1855 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	1856
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1857 // cast any <- complex
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1858 fn = create_external (JIT_FN (octave_jit_cast_any_complex), m_any, m_complex);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1859 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	1860
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1861 // cast complex <- any
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1862 fn = create_external (JIT_FN (octave_jit_cast_complex_any), m_complex, m_any);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1863 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	1864
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1865 // cast complex <- scalar
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1866 fn = create_internal ("octave_jit_cast_complex_scalar", m_complex, m_scalar);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1867 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	1868 m_builder.SetInsertPoint (body);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1869 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1870 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	1871 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	1872 }
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1873 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	1874
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1875 // cast 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	1876 fn = create_internal ("octave_jit_cast_scalar_complex", m_scalar, m_complex);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1877 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	1878 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	1879 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	1880 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	1881
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1882 // 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	1883 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	1884 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	1885
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1886 // 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	1887 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	1888 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	1889
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1890 // 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	1891 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	1892 m_casts[m_complex->type_id ()].add_overload (fn);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1893
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1894 // -------------------- builtin functions --------------------
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1895 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	1896 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	1897
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1898 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	1899 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	1900 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	1901
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1902 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	1903 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	1904 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	1905
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1906 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	1907 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	1908 register_generic ("exp", m_matrix, m_matrix);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1909
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1910 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	1911 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	1912
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1913 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	1914 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	1915
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1916 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	1917 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	1918
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1919 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	1920 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	1921
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1922 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	1923 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	1924 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	1925
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1926 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	1927 register_generic ("magic", 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	1928 register_generic ("magic", 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	1929
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1930 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	1931 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	1932 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	1933
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1934 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	1935 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	1936
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1937 // 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	1938 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	1939 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	1940 m_any, m_any);
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1941
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1942 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	1943
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1944 std::vector<jit_type *> args;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1945 args.resize (1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	1946
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1947 for (std::map<std::string, jit_type *>::iterator iter = m_builtins.begin ();
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1948 iter != m_builtins.end (); ++iter)
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 jit_type *btype = iter->second;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1951 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	1952
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1953 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	1954 m_release_fn.add_overload (jit_function (release_any, 0, args));
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1955 m_casts[m_any->type_id ()].add_overload (jit_function (any_id, m_any, args));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1956
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1957 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	1958 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	1959 args));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	1960 }
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1961
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1962 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	1963
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1964 s_in_construction = false;
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1965 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1966
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1967 // 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	1968 // 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	1969 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	1970 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	1971 const llvm::Twine& name,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1972 jit_type *ret,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1973 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	1974 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1975 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	1976 name, ret, args);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1977
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1978 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	1979
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1980 return retval;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1981 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1982
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1983 jit_type*
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1984 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	1985 jit_type *parent,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1986 llvm::Type *llvm_type,
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1987 bool skip_paren)
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1988 {
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1989 // FIXME: Currently our types do not form a lattice
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1990 assert ((name == "any") \|\| (name == "any_ptr") \|\|
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1991 (name == "scalar_ptr") \|\| (parent != nullptr));
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1992
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1993 jit_type *ret = new jit_type (name, parent, llvm_type, skip_paren, m_next_id++);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1994 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	1995
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	1996 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	1997 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	1998
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	1999 return ret;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2000 }
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2001
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2002 jit_type*
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2003 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	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 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	2006 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	2007 return iter->second;
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2008
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2009 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	2010 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2011
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2012 const jit_function&
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2013 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	2014 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2015 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	2016 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	2017 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	2018
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2019 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	2020 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2021
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2022 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2023 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	2024 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2025 std::stringstream name;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2026 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	2027
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2028 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	2029 do_get_intN (8), ty);
790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2030
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2031 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	2032 }
bd6bb87e2bea Support sin, cos, and exp with matrix arguments in JIT Max Brister <max@2bass.com> parents: 15124 diff changeset	2033
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2034 // 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	2035 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2036 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	2037 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2038 std::stringstream fname;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2039 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	2040 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	2041 << '_' << ty->name ();
15146 709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2042
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2043 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	2044 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	2045 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2046 llvm::Instruction::BinaryOps temp
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2047 = 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	2048
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2049 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	2050 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	2051 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	2052 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	2053 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2054
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2055 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2056 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	2057 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2058 std::stringstream fname;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2059 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	2060 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	2061 << '_' << ty->name ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2062
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2063 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	2064 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	2065 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2066 llvm::CmpInst::Predicate temp
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2067 = 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	2068 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	2069 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	2070 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	2071 m_binary_ops[op].add_overload (fn);
15146 709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2072 }
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 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2075 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	2076 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2077 std::stringstream fname;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2078 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	2079 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	2080 << '_' << ty->name ();
15146 709e8928e68c Scalar unary operation support in JIT Max Brister <max@2bass.com> parents: 15136 diff changeset	2081
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2082 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	2083 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	2084 m_builder.SetInsertPoint (block);
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2085 llvm::CmpInst::Predicate temp
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2086 = 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	2087 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	2088 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	2089 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	2090 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	2091 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2092
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2093 jit_function
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2094 jit_typeinfo::create_identity (jit_type *type)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2095 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2096 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	2097 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	2098 m_identities.resize (id + 1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2099
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2100 if (! m_identities[id].valid ())
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2101 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2102 std::stringstream name;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2103 name << "id_" << type->name ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2104
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2105 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	2106 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	2107 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	2108 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	2109 return m_identities[id] = fn;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2110 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2111
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2112 return m_identities[id];
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2113 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2114
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2115 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2116 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	2117 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2118 return abuilder.CreateLoad (m_lerror_state);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2119 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2120
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2121 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2122 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	2123 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2124 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	2125 val->setVolatile (true);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2126 return abuilder.CreateICmpSGT (val, abuilder.getInt32 (0));
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2127 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2128
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2129 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2130 jit_typeinfo::add_builtin (const std::string& name)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2131 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2132 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	2133 m_builtins[name] = btype;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2134
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2135 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	2136 if (ov_builtin)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2137 ov_builtin->stash_jit (*btype);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2138 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2139
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2140 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2141 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	2142 jit_type *result,
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2143 const std::vector<jit_type *>& args)
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2144 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2145 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	2146 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	2147 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	2148 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	2149 llvm_args[i] = args[i]->to_llvm ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2150
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2151 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	2152 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	2153
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2154 std::stringstream fn_name;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2155 fn_name << "octave_jit_" << name;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2156
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2157 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	2158 args1[0] = builtin_type;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2159 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	2160
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2161 // The first argument will be the Octave function, but we already know that
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2162 // the function call is the equivalent of the intrinsic, so we ignore it and
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2163 // call the intrinsic with the remaining arguments.
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2164 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	2165 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	2166 m_builder.SetInsertPoint (body);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2167
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2168 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	2169 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	2170 fargs[i] = fn.argument (m_builder, i + 1);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2171
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2172 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	2173 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	2174 paren_subsref_fn.add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2175 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2176
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2177 octave_builtin *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2178 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	2179 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2180 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	2181
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2182 // FIXME: Finalize what we want to store in octave_builtin, then add functions
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2183 // to access these values in octave_value
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2184 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	2185 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	2186 }
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 void
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2189 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	2190 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	2191 {
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2192 octave_builtin *builtin = find_builtin (name);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2193 if (! builtin)
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2194 return;
15337 3f43e9d6d86e JIT compile anonymous functions Max Brister <max@2bass.com> parents: 15334 diff changeset	2195
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2196 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	2197 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	2198 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	2199 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	2200 fn.mark_can_error ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2201 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	2202 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	2203 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	2204 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	2205 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	2206 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2207 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	2208 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	2209 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	2210 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	2211 jit_function acast = do_cast (m_any, args[i]);
fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2212 array = m_builder.CreateInsertValue (array, 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	2213 }
15027 741d2dbcc117 Check trip count before compiling for loops. Max Brister <max@2bass.com> parents: 15019 diff changeset	2214
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2215 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	2216 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	2217 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	2218
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2219 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	2220 llvm::Type *intTy = jintTy->to_llvm ();
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2221 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	2222 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	2223 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	2224 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	2225 llvm::Value *res_llvm = llvm::ConstantInt::get (intTy, result_int);
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2226 llvm::Value *ret = m_any_call.call (m_builder, fcn, nargin, array, res_llvm);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2227
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2228 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	2229 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	2230 paren_subsref_fn.add_overload (fn);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2231 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2232
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2233 jit_function
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2234 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	2235 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2236 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	2237 fn.result (), fn.argument_type (1),
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2238 fn.argument_type (0));
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2239 if (fn.can_error ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2240 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	2241
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2242 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	2243 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	2244 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	2245 ret.argument (m_builder, 0));
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2246 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	2247 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	2248 else
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2249 ret.do_return (m_builder);
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2250
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2251 return ret;
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2252 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2253
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2254 llvm::Value *
24249 790b4389cfb4 jit: Use MJCIT instead of the old JIT Julien Bect <jbect@users.sourceforge.net> parents: 24248 diff changeset	2255 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	2256 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2257 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	2258 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	2259 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	2260
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2261 unsigned int re_idx[] = {0, 0};
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2262 unsigned int im_idx[] = {0, 1};
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2263 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	2264 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	2265 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2266
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2267 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2268 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	2269 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2270 unsigned int re_idx[] = {0, 0};
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2271 unsigned int im_idx[] = {0, 1};
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2272
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2273 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	2274 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	2275 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	2276 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	2277
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2278 ret = bld.CreateInsertValue (ret, real, 0);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2279 return bld.CreateInsertValue (ret, imag, 1);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2280 }
15370 8355fddce815 Use sret and do not use save/restore stack (bug #37308) Max Brister <max@2bass.com> parents: 15337 diff changeset	2281
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2282 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2283 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	2284 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2285 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	2286 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2287
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2288 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2289 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	2290 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2291 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	2292 }
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 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2295 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	2296 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2297 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	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::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	2302 {
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2303 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	2304 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2305
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2306 llvm::Value *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2307 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	2308 {
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->to_llvm ());
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2310 ret = complex_real (ret, real);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2311 return complex_imag (ret, imag);
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2312 }
15135 bd6bb87e2bea Support sin, cos, and exp with matrix arguments in JIT Max Brister <max@2bass.com> parents: 15124 diff changeset	2313
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2314 jit_type *
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2315 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	2316 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2317 if (ov.is_function ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2318 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2319 // FIXME: This is ugly, we need to finalize how we want to do this, then
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2320 // have octave_value fully support the needed functionality
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2321 octave_builtin *builtin
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2322 = 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	2323 return builtin && builtin->to_jit () ? builtin->to_jit ()
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2324 : m_unknown_function;
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 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	2328 return m_range;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2329
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2330 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	2331 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2332 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	2333 return m_scalar;
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2334
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2335 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	2336 return m_matrix;
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 if (ov.is_complex_scalar ())
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2340 {
51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2341 Complex cv = ov.complex_value ();
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2342
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2343 // 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	2344 // 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	2345 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	2346 return m_complex;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2347 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2348
24847 fa4e852dae1e use m_ prefix consistently in jit compiler classes in the parser John W. Eaton <jwe@octave.org> parents: 24534 diff changeset	2349 return m_any;
24239 51e408a7d38f jit: Move everything inside the octave namespace Julien Bect <jbect@users.sourceforge.net> parents: 23807 diff changeset	2350 }
15016 005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2351 }
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2352
005cb78e1dd1 Split pt-jit into multiple files. Max Brister <max@2bass.com> parents: diff changeset	2353 #endif

Mercurial > octave

annotate libinterp/parse-tree/jit-typeinfo.cc @ 24847:fa4e852dae1e