-/* Copyright (c) 2007-2022. The SimGrid Team. All rights reserved. */
+/* Copyright (c) 2007-2023. The SimGrid Team. All rights reserved. */
/* This program is free software; you can redistribute it and/or modify it
* under the terms of the license (GNU LGPL) which comes with this package. */
}
int PMPI_File_delete(const char *filename, MPI_Info info){
- if (filename == nullptr)
- return MPI_ERR_FILE;
+ CHECK_NULL(1, MPI_ERR_FILE, filename)
const SmpiBenchGuard suspend_bench;
int ret = simgrid::smpi::File::del(filename, info);
return ret;
}
int PMPI_File_call_errhandler(MPI_File file,int errorcode){
- if (file == nullptr) {
- return MPI_ERR_WIN;
- }
+ CHECK_FILE(1, file)
MPI_Errhandler err = file->errhandler();
err->call(file, errorcode);
simgrid::smpi::Errhandler::unref(err);