summaryrefslogtreecommitdiffstats
path: root/scilab/modules/core
diff options
context:
space:
mode:
authorBernard HUGUENEY <bernard.hugueney@scilab.org>2010-03-19 17:05:28 +0100
committerBernard HUGUENEY <bernard.hugueney@scilab.org>2010-03-19 17:05:28 +0100
commit08bcd7f38cdc679bf7fd745f9d4bf49a117da0b8 (patch)
tree321001d8c09e25ebeb70b5eaf0e499b8fbc0f687 /scilab/modules/core
parentf5f3f1723ec54a6a25d5d521e1369f71d437668a (diff)
downloadscilab-08bcd7f38cdc679bf7fd745f9d4bf49a117da0b8.zip
scilab-08bcd7f38cdc679bf7fd745f9d4bf49a117da0b8.tar.gz
fix of by one error mistake in Fortran goto loop -> c++ for() translations of search_functions.cpp
Diffstat (limited to 'scilab/modules/core')
-rw-r--r--scilab/modules/core/src/cpp/search_functions.cpp4
1 files changed, 2 insertions, 2 deletions
diff --git a/scilab/modules/core/src/cpp/search_functions.cpp b/scilab/modules/core/src/cpp/search_functions.cpp
index e845812..539983d 100644
--- a/scilab/modules/core/src/cpp/search_functions.cpp
+++ b/scilab/modules/core/src/cpp/search_functions.cpp
@@ -35,7 +35,7 @@ void C2F(siflibs)(int* id, int* k_ptr, int* istr, int* lbibn_ptr, int* nbibn_ptr
35 static int const* const istk_ptr = ((int*)C2F(stack).Stk)-1; 35 static int const* const istk_ptr = ((int*)C2F(stack).Stk)-1;
36 *should_return= f_false; 36 *should_return= f_false;
37 int k, ilp, nbibn, lbibn; 37 int k, ilp, nbibn, lbibn;
38 for(k= Bot-1; k < C2F(vstk).isiz; ++k){ 38 for(k= Bot; k < C2F(vstk).isiz; ++k){
39 int il=iadr(lstk_ptr[k]); 39 int il=iadr(lstk_ptr[k]);
40 int ip; 40 int ip;
41 if(istk_ptr[il] == sci_lib){ 41 if(istk_ptr[il] == sci_lib){
@@ -90,7 +90,7 @@ void C2F(sivars)(int* id, int* should_return){
90 int k; 90 int k;
91 // idstk(x,y) (C2F(vstk).idstk+(x-1)+(y-1)*nsiz) 91 // idstk(x,y) (C2F(vstk).idstk+(x-1)+(y-1)*nsiz)
92 int* id_addr=C2F(vstk).idstk; 92 int* id_addr=C2F(vstk).idstk;
93 for( *should_return= f_false, k= Bot-1, id_addr+=(k-1)*nsiz 93 for( *should_return= f_false, k= Bot, id_addr+=(k-1)*nsiz
94 ; k <= C2F(vstk).isiz && !eq_n<nsiz>(id_addr, id); ++k, id_addr+=nsiz){ 94 ; k <= C2F(vstk).isiz && !eq_n<nsiz>(id_addr, id); ++k, id_addr+=nsiz){
95 } 95 }
96 if( k <= C2F(vstk).isiz ){// eq_id 96 if( k <= C2F(vstk).isiz ){// eq_id