1 static char help[] = "Tests checking pointers.\n\n"; 2 3 #include <petscsys.h> 4 #include <petsc/private/petscimpl.h> 5 6 int main(int argc, char *args[]) 7 { 8 PetscErrorCode ierr; 9 PetscInt *ptr; 10 11 ierr = PetscInitialize(&argc, &args, (char*) 0, help);if (ierr) return ierr; 12 if (ierr) return ierr; 13 if (!PETSC_RUNNING_ON_VALGRIND) { /* PetscCheckPointer always returns TRUE when running on Valgrind */ 14 ierr = PetscMalloc(1024 * 1024 * 8,&ptr);CHKERRQ(ierr); /* Almost certainly larger than MMAP_THRESHOLD (128 KiB by default) */ 15 if (!PetscCheckPointer(ptr,PETSC_INT)) {ierr = PetscPrintf(PETSC_COMM_SELF,"Mistook valid pointer %p for invalid pointer\n",(void*)ptr);CHKERRQ(ierr);} 16 ierr = PetscFree(ptr);CHKERRQ(ierr); 17 if (PetscCheckPointer(ptr,PETSC_INT)) {ierr = PetscPrintf(PETSC_COMM_SELF,"Mistook NULL pointer for valid pointer\n");CHKERRQ(ierr);} 18 ptr = (PetscInt*) ~(PETSC_UINTPTR_T)0xf; /* Pointer will almost certainly be invalid */ 19 if (PetscCheckPointer(ptr,PETSC_INT)) {ierr = PetscPrintf(PETSC_COMM_SELF,"Mistook invalid pointer %p for valid\n",(void*)ptr);CHKERRQ(ierr);} 20 } 21 ierr = PetscFinalize(); 22 return ierr; 23 } 24 25 /*TEST 26 27 test: 28 args: -check_pointer_intensity 1 29 TODO: reports Mistook invalid pointer 0xfffffffffffffff0 for valid or Free'd pointer is still accessible 30 31 TEST*/ 32