summaryrefslogtreecommitdiffstats
path: root/scilab/modules
diff options
context:
space:
mode:
authorAllan CORNET <allan.cornet@scilab.org>2010-01-04 14:29:39 +0100
committerAllan CORNET <allan.cornet@scilab.org>2010-01-04 14:29:39 +0100
commit18601c13ae0c58dd0a82fefccdd75cc775400fe9 (patch)
tree8caf042f0e3e003997989a60b236d482c5bd2add /scilab/modules
parentcb1973324b98c7752e9f29ce39623ddc208760fb (diff)
downloadscilab-18601c13ae0c58dd0a82fefccdd75cc775400fe9.zip
scilab-18601c13ae0c58dd0a82fefccdd75cc775400fe9.tar.gz
bug 5699
Diffstat (limited to 'scilab/modules')
-rw-r--r--scilab/modules/core/includes/stack-c.h7
-rw-r--r--scilab/modules/core/src/c/stack2.c9
-rw-r--r--scilab/modules/intersci/src/lib/libinter.c9
3 files changed, 12 insertions, 13 deletions
diff --git a/scilab/modules/core/includes/stack-c.h b/scilab/modules/core/includes/stack-c.h
index 0589c5f..c1c98d6 100644
--- a/scilab/modules/core/includes/stack-c.h
+++ b/scilab/modules/core/includes/stack-c.h
@@ -381,17 +381,16 @@ int get_optionals(char *name,rhs_opts opts[]);
381 381
382 382
383/*------------------------------ 383/*------------------------------
384 * prototypes 384 * prototypes
385 *-----------------------------*/ 385 *-----------------------------*/
386 386
387/* functions defined in stack-2.c */
388
387extern int C2F(firstopt)(void); 389extern int C2F(firstopt)(void);
388extern int C2F(findopt)(char *, rhs_opts *); 390extern int C2F(findopt)(char *, rhs_opts *);
389
390extern int C2F(isopt)(int *,char *,unsigned long); 391extern int C2F(isopt)(int *,char *,unsigned long);
391
392extern int C2F(checkrhs)(char *fname, int *imin, int *imax, unsigned long fname_len); 392extern int C2F(checkrhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
393extern int C2F(checklhs)(char *fname, int *imin, int *imax, unsigned long fname_len); 393extern int C2F(checklhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
394
395extern void C2F(freeptr)(double *ip[]); 394extern void C2F(freeptr)(double *ip[]);
396 395
397#ifdef __cplusplus 396#ifdef __cplusplus
diff --git a/scilab/modules/core/src/c/stack2.c b/scilab/modules/core/src/c/stack2.c
index b9eab20..95a3f88 100644
--- a/scilab/modules/core/src/c/stack2.c
+++ b/scilab/modules/core/src/c/stack2.c
@@ -131,6 +131,15 @@ int C2F(isopt)(int *k, char *namex,unsigned long name_len)
131 return TRUE; 131 return TRUE;
132} 132}
133 133
134/*--------------------------------------------------------------
135* freeptr : free ip pointer
136*--------------------------------------------------------------*/
137
138void C2F(freeptr)(double *ip[])
139{
140 if (ip) FREE((char *)(*ip));
141}
142
134/*--------------------------------------- 143/*---------------------------------------
135 * isoptlw : 144 * isoptlw :
136 * returns the status of the variable at position lw in the stack 145 * returns the status of the variable at position lw in the stack
diff --git a/scilab/modules/intersci/src/lib/libinter.c b/scilab/modules/intersci/src/lib/libinter.c
index 2c5b0e6..99ac8e5 100644
--- a/scilab/modules/intersci/src/lib/libinter.c
+++ b/scilab/modules/intersci/src/lib/libinter.c
@@ -240,15 +240,6 @@ void C2F(dbl2cdbl)(int *n,double *ip[],double *op)
240} 240}
241 241
242/*-------------------------------------------------------------- 242/*--------------------------------------------------------------
243 * freeptr : free ip pointer
244 *--------------------------------------------------------------*/
245
246void C2F(freeptr)(double *ip[])
247{
248 if (ip) FREE((char *)(*ip));
249}
250
251/*--------------------------------------------------------------
252 * int2cint : fill *ip with contents of int array op 243 * int2cint : fill *ip with contents of int array op
253 *--------------------------------------------------------------*/ 244 *--------------------------------------------------------------*/
254 245