Commit 05b5fdb3 authored by Uwe Schulzweida's avatar Uwe Schulzweida
Browse files

cfortran.h: use pragma GCC only if __GNUC__ is defined

parent abb0f930
...@@ -461,8 +461,10 @@ for (i=0; i<sizeofcstr/elem_len; i++) { ...@@ -461,8 +461,10 @@ for (i=0; i<sizeofcstr/elem_len; i++) {
} return cstr; } } return cstr; }
/* kill the trailing char t's in string s. */ /* kill the trailing char t's in string s. */
#if defined (__GNUC__)
#pragma GCC push_options #pragma GCC push_options
#pragma GCC optimize ("O2") #pragma GCC optimize ("O2")
#endif
#ifndef __CF__KnR #ifndef __CF__KnR
static char *kill_trailing(char *s, char t) static char *kill_trailing(char *s, char t)
#else #else
...@@ -474,7 +476,9 @@ if (e>s) { /* Need this to handle NULL string.*/ ...@@ -474,7 +476,9 @@ if (e>s) { /* Need this to handle NULL string.*/
while (e>s && *--e==t); /* Don't follow t's past beginning. */ while (e>s && *--e==t); /* Don't follow t's past beginning. */
e[*e==t?0:1] = '\0'; /* Handle s[0]=t correctly. */ e[*e==t?0:1] = '\0'; /* Handle s[0]=t correctly. */
} return s; } } return s; }
#if defined (__GNUC__)
#pragma GCC pop_options #pragma GCC pop_options
#endif
/* kill_trailingn(s,t,e) will kill the trailing t's in string s. e normally /* kill_trailingn(s,t,e) will kill the trailing t's in string s. e normally
points to the terminating '\0' of s, but may actually point to anywhere in s. points to the terminating '\0' of s, but may actually point to anywhere in s.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment