Changeset 264 for trunk/libIGCM/libIGCM_debug/libIGCM_debug.ksh

Timestamp:

04/20/10 15:23:37 (14 years ago)

Author:

mmaipsl

Message:

Correct Stack overflow bug.
Now DEBUG_debug mode should work correctly.

File:

• trunk/libIGCM/libIGCM_debug/libIGCM_debug.ksh (modified) (4 diffs)

trunk/libIGCM/libIGCM_debug/libIGCM_debug.ksh

@@ -111 +111 @@
 
        # We add function call name on beginning of the stack
-       set +A IGCM_debug_Stack ${1} ${IGCM_debug_Stack[*]}
+       set +A IGCM_debug_Stack -- ${1} ${IGCM_debug_Stack[*]}
 
        # We include the "null" Args in the beginning of the StackArgs
@@ -118 +118 @@
        if [ $# -gt 1 ]; then 
            shift; 
-           IGCM_debug_StackArgs=$(echo ${@} | sed -e "s/\ /,/g") >&2
+           IGCM_debug_StackArgs[0]=$(echo ${@} | sed -e "s/\ /,/g") >&2
        fi
        (( IGCM_debug_LenStack = IGCM_debug_LenStack + 1 ))
@@ -142 +142 @@
             IGCM_debug_StackArgs[0]=""
             
-            set +A IGCM_debug_Stack ${IGCM_debug_Stack[*]}
-            set +A IGCM_debug_StackArgs ${IGCM_debug_StackArgs[*]}
+            set +A tmpStack -- ${IGCM_debug_Stack[*]}
+            unset IGCM_debug_Stack
+            set +A IGCM_debug_Stack -- ${tmpStack[*]} 
+
+            set +A tmpStack -- ${IGCM_debug_StackArgs[*]}
+            unset IGCM_debug_StackArgs
+            set +A IGCM_debug_StackArgs -- ${tmpStack[*]}
+            unset tmpStack
         else
             echo 'IGCM_debug_Exit : stack is corrupted ! LenStack =' ${IGCM_debug_LenStack}
@@ -163 +169 @@
           #set -A IGCM_debug_Stack ${NULL_STR}
           #set -A IGCM_debug_StackArgs ${NULL_STR}
+          unset IGCM_debug_Stack
+          unset IGCM_debug_StackArgs
           IGCM_debug_Stack[0]=${NULL_STR}
           IGCM_debug_StackArgs[0]=${NULL_STR}