LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-11-18 11:23:38 +01:00
Code Releases Activity

Fixed huge_tlb flag on mac

Browse Source
This commit is contained in:
Anthony Scemama 2023-04-18 10:13:44 +02:00
parent 6757810f56
commit a2b2c9958a
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/utils/fortran_mmap.c
View File

@ -22,7 +22,11 @@ void* mmap_fortran(char* filename, size_t bytes, int* file_descr, int read_only)
perror("Error opening mmap file for reading"); perror("Error opening mmap file for reading");
exit(EXIT_FAILURE); exit(EXIT_FAILURE);
} }
#ifdef _GNU_SOURCE
map = mmap(NULL, bytes, PROT_READ, MAP_SHARED | MAP_HUGETLB, fd, 0); map = mmap(NULL, bytes, PROT_READ, MAP_SHARED | MAP_HUGETLB, fd, 0);
#else
map = mmap(NULL, bytes, PROT_READ, MAP_SHARED, fd, 0);
#endif
if (map == MAP_FAILED) { if (map == MAP_FAILED) {
/* try again without huge pages */ /* try again without huge pages */
map = mmap(NULL, bytes, PROT_READ, MAP_SHARED, fd, 0); map = mmap(NULL, bytes, PROT_READ, MAP_SHARED, fd, 0);
@ -53,7 +57,11 @@ void* mmap_fortran(char* filename, size_t bytes, int* file_descr, int read_only)
exit(EXIT_FAILURE); exit(EXIT_FAILURE);
} }
#ifdef _GNU_SOURCE
map = mmap(NULL, bytes, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_HUGETLB, fd, 0); map = mmap(NULL, bytes, PROT_READ | PROT_WRITE, MAP_SHARED | MAP_HUGETLB, fd, 0);
#else
map = mmap(NULL, bytes, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);
#endif
if (map == MAP_FAILED) { if (map == MAP_FAILED) {
/* try again without huge pages */ /* try again without huge pages */
map = mmap(NULL, bytes, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0); map = mmap(NULL, bytes, PROT_READ | PROT_WRITE, MAP_SHARED, fd, 0);