octave-nkf: test/jit.tst annotate

annotate test/jit.tst @ 18547:85d31344fb23 stable rc-3-8-1-2

3.8.1 release candidate 2 * configure.ac (OCTAVE_VERSION): Bump to 3.8.1-rc2. (OCTAVE_MINOR_VERSION): Bump to 1-rc2. (OCTAVE_RELEASE_DATE): Set to 2014-02-14.

author	John W. Eaton <jwe@octave.org>
date	Mon, 17 Feb 2014 02:20:39 -0500
parents	d63878346099
children	e9a2f26e084b 7d78817475a3 446c46af4b42

rev	line source
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 17337 diff changeset	1 ## Copyright (C) 2012-2013 Max Brister
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	2 ##
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	3 ## This file is part of Octave.
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	4 ##
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	6 ## under the terms of the GNU General Public License as published by the
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	7 ## Free Software Foundation; either version 3 of the License, or (at your
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	8 ## option) any later version.
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	9 ##
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but WITHOUT
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	11 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	12 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	13 ## for more details.
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	14 ##
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	16 ## along with Octave; see the file COPYING. If not, see
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	17 ## <http://www.gnu.org/licenses/>.
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	18
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	19 ## Author: Max Brister <max@2bass.com>
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	20
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	21 ## Turn on JIT and set defaults before running tests
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	22 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	23 %! global __old_jit_enable__;
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	24 %! global __old_jit_startcnt__;
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	25 %! __old_jit_enable__ = jit_enable (true);
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	26 %! __old_jit_startcnt__ = jit_startcnt (1000);
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	27
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	28 ## Test some simple cases that compile.
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	29
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	30 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	31 %! for i=1:1e6
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	32 %! if (i < 5)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	33 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	34 %! else
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	35 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	36 %! endif
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	37 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	38 %! assert (i, 1);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	39
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	40 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	41 %! while (1)
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	42 %! if (1)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	43 %! break;
17337 a31b54b5f84a Use only 1 space between '%!' and start of test/demo code. Rik <rik@octave.org> parents: 17311 diff changeset	44 %! else
a31b54b5f84a Use only 1 space between '%!' and start of test/demo code. Rik <rik@octave.org> parents: 17311 diff changeset	45 %! break;
a31b54b5f84a Use only 1 space between '%!' and start of test/demo code. Rik <rik@octave.org> parents: 17311 diff changeset	46 %! endif
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	47 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	48
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	49 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	50 %! for i=1:1e6
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	51 %! if (i == 100)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	52 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	53 %! endif
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	54 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	55 %! assert (i, 100);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	56
17311 56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	57 ## Also test parfor keyword
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	58 %!testif HAVE_LLVM
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	59 %! parfor i=1:1e6
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	60 %! if (i == 100)
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	61 %! break;
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	62 %! endif
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	63 %! endparfor
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	64 %! assert (i, 100);
56404cdcb723 Correct parfor keyword documentation and add some %!tests. Rik <rik@octave.org> parents: 17309 diff changeset	65
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	66 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	67 %! inc = 1e-5;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	68 %! result = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	69 %! for ii = 0:inc:1
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	70 %! result = result + inc * (1/3 * ii * ii);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	71 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	72 %! assert (abs (result - 1/9) < 1e-5);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	73
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	74 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	75 %! inc = 1e-5;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	76 %! result = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	77 %! for ii = 0:inc:1
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	78 %! ## the ^ operator's result is complex
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	79 %! result = result + inc * (1/3 * ii ^ 2);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	80 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	81 %! assert (abs (result - 1/9) < 1e-5);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	82
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	83 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	84 %! temp = 1+1i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	85 %! nan = NaN;
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	86 %! while (1)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	87 %! temp = temp - 1i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	88 %! temp = temp * nan;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	89 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	90 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	91 %! assert (imag (temp), 0);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	92
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	93 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	94 %! temp = 1+1i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	95 %! nan = NaN+1i;
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	96 %! while (1)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	97 %! nan = nan - 1i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	98 %! temp = temp - 1i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	99 %! temp = temp * nan;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	100 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	101 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	102 %! assert (imag (temp), 0);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	103
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	104 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	105 %! temp = 1+1i;
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	106 %! while (1)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	107 %! temp = temp * 5;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	108 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	109 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	110 %! assert (temp, 5+5i);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	111
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	112 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	113 %! nr = 1001;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	114 %! mat = zeros (1, nr);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	115 %! for i = 1:nr
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	116 %! mat(i) = i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	117 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	118 %! assert (mat == 1:nr);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	119
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	120 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	121 %! nr = 1001;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	122 %! mat = 1:nr;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	123 %! mat(end) = 0; # force mat to a matrix
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	124 %! total = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	125 %! for i = 1:nr
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	126 %! total = mat(i) + total;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	127 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	128 %! assert (sum (mat) == total);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	129
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	130 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	131 %! nr = 1001;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	132 %! mat = [3 1 5];
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	133 %! try
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	134 %! for i = 1:nr
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	135 %! if (i > 500)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	136 %! result = mat(100);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	137 %! else
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	138 %! result = i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	139 %! endif
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	140 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	141 %! catch
17309 5a65b2cc9508 test: Add tests for 'end' form of 'endfor', 'endif', etc. Rik <rik@octave.org> parents: 17200 diff changeset	142 %! end_try_catch
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	143 %! assert (result == 500);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	144
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	145 %!function result = gen_test (n)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	146 %! result = double (rand (1, n) > .01);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	147 %!endfunction
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	148
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	149 %!function z = vectorized (A, K)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	150 %! temp = ones (1, K);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	151 %! z = conv (A, temp);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	152 %! z = z > K-1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	153 %! z = conv (z, temp);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	154 %! z = z(K:end-K+1);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	155 %! z = z >= 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	156 %!endfunction
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	157
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	158 %!function z = loopy (A, K)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	159 %! z = A;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	160 %! n = numel (A);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	161 %! counter = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	162 %! for ii=1:n
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	163 %! if (z(ii))
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	164 %! counter = counter + 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	165 %! else
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	166 %! if (counter > 0 && counter < K)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	167 %! z(ii-counter:ii-1) = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	168 %! endif
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	169 %! counter = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	170 %! endif
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	171 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	172 %!
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	173 %! if (counter > 0 && counter < K)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	174 %! z(end-counter+1:end) = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	175 %! endif
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	176 %!endfunction
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	177
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	178 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	179 %! test_set = gen_test (10000);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	180 %! assert (all (vectorized (test_set, 3) == loopy (test_set, 3)));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	181
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	182 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	183 %! niter = 1001;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	184 %! i = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	185 %! while (i < niter)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	186 %! i = i + 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	187 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	188 %! assert (i == niter);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	189
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	190 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	191 %! niter = 1001;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	192 %! result = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	193 %! m = [5 10];
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	194 %! for i=1:niter
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	195 %! result = result + m(end);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	196 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	197 %! assert (result == m(end) * niter);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	198
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	199 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	200 %! ndim = 100;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	201 %! result = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	202 %! m = zeros (ndim);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	203 %! m(:) = 1:ndim^2;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	204 %! i = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	205 %! while (i <= ndim)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	206 %! for j = 1:ndim
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	207 %! result = result + m(i, j);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	208 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	209 %! i = i + 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	210 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	211 %! assert (result == sum (sum (m)));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	212
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	213 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	214 %! ndim = 100;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	215 %! m = zeros (ndim);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	216 %! i = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	217 %! while (i <= ndim)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	218 %! for j = 1:ndim
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	219 %! m(i, j) = (j - 1) * ndim + i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	220 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	221 %! i = i + 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	222 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	223 %! m2 = zeros (ndim);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	224 %! m2(:) = 1:(ndim^2);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	225 %! assert (all (m == m2));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	226
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	227 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	228 %! ndim = 2;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	229 %! m = zeros (ndim, ndim, ndim, ndim);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	230 %! result = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	231 %! i0 = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	232 %! while (i0 <= ndim)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	233 %! for i1 = 1:ndim
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	234 %! for i2 = 1:ndim
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	235 %! for i3 = 1:ndim
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	236 %! m(i0, i1, i2, i3) = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	237 %! m(i0, i1, i2, i3, 1, 1, 1, 1, 1, 1) = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	238 %! result = result + m(i0, i1, i2, i3);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	239 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	240 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	241 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	242 %! i0 = i0 + 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	243 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	244 %! expected = ones (ndim, ndim, ndim, ndim);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	245 %! assert (all (m == expected));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	246 %! assert (result == sum (expected (:)));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	247
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	248 %!function test_divide ()
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	249 %! state = warning ("query", "Octave:divide-by-zero").state;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	250 %! unwind_protect
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	251 %! warning ("error", "Octave:divide-by-zero");
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	252 %! for i=1:1e5
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	253 %! a = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	254 %! a / 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	255 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	256 %! unwind_protect_cleanup
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	257 %! warning (state, "Octave:divide-by-zero");
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	258 %! end_unwind_protect
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	259 %!endfunction
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	260
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	261 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	262 %! lasterr ("");
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	263 %! try
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	264 %! test_divide ();
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	265 %! end_try_catch
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	266 %! assert (strcmp (lasterr (), "division by zero"));
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	267
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	268 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	269 %! while (1)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	270 %! a = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	271 %! result = a / 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	272 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	273 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	274 %! assert (result, 0);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	275
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	276 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	277 %! m = zeros (2, 1001);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	278 %! for i=1:1001
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	279 %! m(end, i) = i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	280 %! m(end - 1, end - i + 1) = i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	281 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	282 %! m2 = zeros (2, 1001);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	283 %! m2(1, :) = fliplr (1:1001);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	284 %! m2(2, :) = 1:1001;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	285 %! assert (m, m2);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	286
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	287 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	288 %! m = [1 2 3];
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	289 %! for i=1:1001
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	290 %! m = sin (m);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	291 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	292 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	293 %! assert (m == sin ([1 2 3]));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	294
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	295 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	296 %! i = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	297 %! while i < 10
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	298 %! i += 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	299 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	300 %! assert (i == 10);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	301
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	302 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	303 %! i = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	304 %! while i < 10
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	305 %! a = ++i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	306 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	307 %! assert (i == 10);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	308 %! assert (a == 10);
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	309 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	310 %! i = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	311 %! while i < 10
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	312 %! a = i++;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	313 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	314 %! assert (i == 10);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	315 %! assert (a == 9);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	316
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	317 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	318 %! num = 2;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	319 %! a = zeros (1, num);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	320 %! i = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	321 %! while i <= num
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	322 %! a(i) = norm (eye (i));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	323 %! ++i;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	324 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	325 %! assert (a, ones (1, num));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	326
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	327 %!function test_compute_idom ()
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	328 %! while (li <= length (l1) && si <= length (s1))
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	329 %! if (l1 (li) < s1 (si))
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	330 %! if (li == si)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	331 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	332 %! endif;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	333 %! li++;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	334 %! else
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	335 %! si++;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	336 %! endif;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	337 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	338
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	339 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	340 %! lasterr ("");
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	341 %! try
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	342 %! test_compute_idom ();
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	343 %! end_try_catch
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	344 %! assert (! isempty (lasterr ()));
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	345
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	346 %!function x = test_overload (a)
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	347 %! while (1)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	348 %! x = a;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	349 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	350 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	351 %!endfunction
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	352
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	353 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	354 %! assert (test_overload (1), 1);
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	355 %! assert (test_overload ([1 2]), [1 2]);
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	356
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	357 %!function a = bubble (a = [3 2 1])
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	358 %! swapped = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	359 %! n = length (a);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	360 %! while (swapped)
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	361 %! swapped = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	362 %! for i = 1:n-1
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	363 %! if (a(i) > a(i + 1))
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	364 %! swapped = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	365 %! temp = a(i);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	366 %! a(i) = a(i + 1);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	367 %! a(i + 1) = temp;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	368 %! endif
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	369 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	370 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	371 %!endfunction
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	372
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	373 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	374 %! assert (bubble (), [1 2 3]);
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	375
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	376 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	377 %! a = 0;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	378 %! b = 1;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	379 %! for i=1:1e3
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	380 %! for j=1:2
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	381 %! a = a + b;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	382 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	383 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	384 %! assert (a, 2000);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	385 %! assert (b, 1);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	386
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	387 %!testif HAVE_LLVM
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	388 %! a = [1+1i 1+2i];
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	389 %! b = 0;
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	390 %! while (1)
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	391 %! b = a(1);
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	392 %! break;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	393 %! endwhile
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	394 %! assert (b, a(1));
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	395
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	396 %!function test_undef ()
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	397 %! for i=1:1e7
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	398 %! XXX;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	399 %! endfor
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	400 %!endfunction
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	401
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	402 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	403 %! lasterr ("");
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	404 %! try
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	405 %! test_undef ();
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	406 %! end_try_catch
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	407 %! assert (strncmp (lasterr (), "'XXX' undefined near", 20));
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	408
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	409 %!shared id
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	410 %! id = @(x) x;
bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	411
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	412 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	413 %! assert (id (1), 1);
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	414 %! assert (id (1+1i), 1+1i);
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	415 %! assert (id (1, 2), 1);
16931 bf4c95a3bba2 jit.tst: Add missing file from previous check-in (c2a57f9c6a2e). Rik <rik@octave.org> parents: diff changeset	416
17200 fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	417 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	418 %! lasterr ("");
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	419 %! try
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	420 %! id ();
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	421 %! end_try_catch
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	422 %! assert (strncmp (lasterr (), "'x' undefined near", 18));
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	423
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	424 ## Restore JIT settings
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	425 %!testif HAVE_LLVM
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	426 %! global __old_jit_enable__;
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	427 %! global __old_jit_startcnt__;
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	428 %! jit_enable (__old_jit_enable__);
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	429 %! jit_startcnt (__old_jit_startcnt__);
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	430 %! clear -g __old_jit_enable__ __old_jit_startcnt__;
fe7cb5bb4388 jit.tst: Add code to save/restore JIT state. Only test if HAVE_LLVM is true. Rik <rik@octave.org> parents: 16931 diff changeset	431

Mercurial > hg > octave-nkf

annotate test/jit.tst @ 18547:85d31344fb23 stable rc-3-8-1-2