I hope this one will be my last revert the revert.
Yann COLLETTE [Thu, 4 Jun 2009 21:11:30 +0000 (23:11 +0200)]
Some changes in scilab core + contrib I didn't wanted to commit.

scilab/contrib/toolbox_skeleton/sci_gateway/fortran/builder_gateway_fortran.sce
scilab/modules/core/sci_gateway/c/sci_stacksize.c
scilab/modules/core/src/c/getmemory.c

index 44deb75..5388ea8 100644 (file)
@@ -5,8 +5,8 @@
 // This file is released into the public domain
 // ====================================================================
 
-tbx_build_gateway('libintfreefem', ['freefemi','freefemi'], ['freefemi.f'], ..
+tbx_build_gateway('skeleton_fortran', ['fortran_sum','sci_fsum'], ['sci_fsum.f'], ..
                   get_absolute_file_path('builder_gateway_fortran.sce'), ..
-                  ['../../src/c/libfreefem]);
+                  ['../../src/fortran/libfsum']);
 
 clear tbx_build_gateway;
index 797c21c..018c70b 100644 (file)
@@ -82,8 +82,6 @@ int C2F(sci_stacksize)(char *fname,unsigned long fname_len)
                                                int used=0;
 
                                                C2F(getstackinfo)(&currentstacksize,&used);
-printf("%d %ld\n", MEMSTACKSIZE, MEMSTACKSIZE);
-printf("%d %ld\n", currentstacksize, currentstacksize);
 
                                                if (MEMSTACKSIZE != currentstacksize)
                                                {
index 33b0782..a2bc6d0 100644 (file)
@@ -18,8 +18,6 @@
 @sa http://netbsd.gw.com/cgi-bin/man-cgi?sysctl+3+NetBSD-4.0
 @sa http://cvsweb.netbsd.org/bsdweb.cgi/pkgsrc/math/scilab/patches/patch-aj?annotate=1.9
 */
-#include <stdio.h>
-
 #include "getmemory.h"
 
 #if defined(__NetBSD__) || defined(__DragonFly__)
@@ -92,8 +90,6 @@ int getfreememory(void)
       /* Read Cached, Buffers and MemFree from /proc/meminfo */
       while(fscanf(fp, "%8s %lld %3s\n", field, &data, unit) != EOF)
       {
-       // YC
-       printf("field = %s data = %d unit = %s\n", field, data, unit);
         if(!strncmp("MemFree:", field, 8))
           free = data;
         else if(!strncmp("Buffers:", field, 8))