Changeset 1079

Timestamp:

10/07/14 12:04:35 (10 years ago)

Author:

sdipsl

Message:

• add some missing pop stack to avoid a broken call tree

File:

• trunk/libIGCM/libIGCM_comp/libIGCM_comp.ksh (modified) (6 diffs)

trunk/libIGCM/libIGCM_comp/libIGCM_comp.ksh

@@ -979 +979 @@
   else
     IGCM_debug_Exit "IGCM_comp_modifyDefFile: Bad number of arguments."
+    IGCM_debug_PopStack "IGCM_comp_modifyDefFile"
     return
   fi
@@ -986 +987 @@
   if [ $type != blocker ] && [ $type != nonblocker ] ; then
     IGCM_debug_Exit "IGCM_comp_modifyDefFile: Error in first argument must be blocker or nonblocker"
+    IGCM_debug_PopStack "IGCM_comp_modifyDefFile"
     return
   fi
@@ -992 +994 @@
   if [ ! -f ${filein} ] ; then
     IGCM_debug_Exit "IGCM_comp_modifyDefFile: $filein does not exist."
+    IGCM_debug_PopStack "IGCM_comp_modifyDefFile"
     return
   fi
@@ -1004 +1007 @@
   if [ $nb_occ -gt 1 ] ; then
     IGCM_debug_Exit "IGCM_comp_modifyDefFile : Error in $filein: Variable=$key is set ${nb_occ} times"
+    IGCM_debug_PopStack "IGCM_comp_modifyDefFile"
     return
   fi
@@ -1043 +1047 @@
           IGCM_debug_Print 1 "IGCM_comp_modifyDefFile: The syntax in $filein should be:"
           IGCM_debug_Print 1 "IGCM_comp_modifyDefFile: $key=_AUTO_:DEFAULT=def_value"
+          IGCM_debug_PopStack "IGCM_comp_modifyDefFile"
           return
         fi
@@ -1053 +1058 @@
     fi
   fi
+  IGCM_debug_PopStack "IGCM_comp_modifyDefFile"
 }