Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
mpim-sw
libcdi
Commits
b25f8326
Commit
b25f8326
authored
Feb 26, 2014
by
Uwe Schulzweida
Browse files
cfortran.h: define GNUC_PUSH_POP
parent
3780e0c6
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/cfortran.h
View file @
b25f8326
...
...
@@ -474,7 +474,13 @@ for (i=0; i<sizeofcstr/elem_len; i++) {
}
return
cstr
;
}
/* kill the trailing char t's in string s. */
#if defined (__GNUC__)
#if !defined(GNUC_PUSH_POP) && defined(__GNUC__) && !defined(__ICC) && !defined(__clang__)
#if (__GNUC__ >= 4) && (__GNUC_MINOR__ >= 4)
#define GNUC_PUSH_POP
#endif
#endif
#if defined(GNUC_PUSH_POP)
#pragma GCC push_options
#pragma GCC optimize ("O2")
#endif
...
...
@@ -489,7 +495,7 @@ if (e>s) { /* Need this to handle NULL string.*/
while
(
e
>
s
&&
*--
e
==
t
);
/* Don't follow t's past beginning. */
e
[
*
e
==
t
?
0
:
1
]
=
'\0'
;
/* Handle s[0]=t correctly. */
}
return
s
;
}
#if defined
(__
GNUC_
_
)
#if defined
(
GNUC_
PUSH_POP
)
#pragma GCC pop_options
#endif
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment