1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
//non compiled functions
deff("y=foo(a)","x=a+1000,stacksize(x),y=stacksize();y=y(1)","n");
a = stacksize();
a = a(1);
y = foo(a);
if y<>a+1000 then bugmes();quit;end
a = y;
deff("y=toto()","a=stacksize();a=a(1);y=foo(a)","n");
y = toto();
if y<>a+1000 then bugmes();quit;end
a=y;
y =
5003000.
if y<>a+1000 then bugmes();quit;end
a=y;
|
