4 PetscStack petscstack;  variable
61 …PetscCallSAWs(SAWs_Register, ("/PETSc/Stack/functions", petscstack.function, 20, SAWs_READ, SAWs_S…  in PetscStackViewSAWs()
62 …PetscCallSAWs(SAWs_Register, ("/PETSc/Stack/__current_size", &petscstack.currentsize, 1, SAWs_READ…  in PetscStackViewSAWs()
81   petscstack.check = check;  in PetscStackSetCheck()
87   memset(&petscstack, 0, sizeof(petscstack));  in PetscStackReset()
117   if (petscstack.currentsize < 0) {  in PetscStackView()
121 …  fprintf(file, "PetscStack is definitely corrupted with stack size %d\n", petscstack.currentsize);  in PetscStackView()
122   } else if (petscstack.currentsize == 0) {  in PetscStackView()
133       for (int i = petscstack.currentsize - 1, j = 1; i >= 0; --i, ++j) {  in PetscStackView()
134 …petscstack.file[i]) PetscCall((*PetscErrorPrintf)("#%d %s() at %s:%d\n", j, petscstack.function[i]…  in PetscStackView()
136           PetscCall(PetscStrstr(petscstack.function[i], " ", &ptr));  in PetscStackView()
137           if (!ptr) PetscCall((*PetscErrorPrintf)("#%d %s()\n", j, petscstack.function[i]));  in PetscStackView()
138           else PetscCall((*PetscErrorPrintf)("#%d %s\n", j, petscstack.function[i]));  in PetscStackView()
143       for (int i = petscstack.currentsize - 1, j = 1; i >= 0; --i, ++j) {  in PetscStackView()
144 …petscstack.file[i]) fprintf(file, "[%d] #%d %s() at %s:%d\n", PetscGlobalRank, j, petscstack.funct…  in PetscStackView()
146           PetscCall(PetscStrstr(petscstack.function[i], " ", &ptr));  in PetscStackView()
147           if (!ptr) fprintf(file, "[%d] #%d %s()\n", PetscGlobalRank, j, petscstack.function[i]);  in PetscStackView()
148           else fprintf(file, "[%d] #%d %s\n", PetscGlobalRank, j, petscstack.function[i]);  in PetscStackView()