Skip to content
Permalink
Browse files

Do not try ancient PGI hacks with recent versions of that compiler

should fix #2139
  • Loading branch information...
martin-frbg committed May 22, 2019
1 parent ff1bfe7 commit 1778fd4219688e84463844f3aeaf824ca4043b31
Showing with 4 additions and 1 deletion.
  1. +4 −1 driver/others/memory.c
@@ -1622,13 +1622,15 @@ void gotoblas_dummy_for_PGI(void) {
gotoblas_init();
gotoblas_quit();

#if __PGIC__ < 19
#if 0
asm ("\t.section\t.ctors,\"aw\",@progbits; .align 8; .quad gotoblas_init; .section .text");
asm ("\t.section\t.dtors,\"aw\",@progbits; .align 8; .quad gotoblas_quit; .section .text");
#else
asm (".section .init,\"ax\"; call gotoblas_init@PLT; .section .text");
asm (".section .fini,\"ax\"; call gotoblas_quit@PLT; .section .text");
#endif
#endif
}
#endif

@@ -3192,14 +3194,15 @@ void gotoblas_dummy_for_PGI(void) {

gotoblas_init();
gotoblas_quit();

#if __PGIC__ < 19
#if 0
asm ("\t.section\t.ctors,\"aw\",@progbits; .align 8; .quad gotoblas_init; .section .text");
asm ("\t.section\t.dtors,\"aw\",@progbits; .align 8; .quad gotoblas_quit; .section .text");
#else
asm (".section .init,\"ax\"; call gotoblas_init@PLT; .section .text");
asm (".section .fini,\"ax\"; call gotoblas_quit@PLT; .section .text");
#endif
#endif
}
#endif

0 comments on commit 1778fd4

Please sign in to comment.
You can’t perform that action at this time.