I think this whole idea of trying to be cute for speed up in places
that are irrelevant is just bad engineering. please go ahead with the
change.
Sun
On Sat, Jul 31, 2010 at 5:03 AM, Steve Ellcey <s...@cup.hp.com> wrote:
>
> I was looking at more of the 'unaligned access' warnings that we get
> from open64 on IA64 and tracked them down to compare_names in
> osprey/crayf90/fe90/sytb.c. compare_names is basically a 100 line
> function that implements strncmp and because it tries to get fancy and
> compare multiple characters at a time it is treating pointers to char as
> pointers to long and getting these warning messages. The code also has
> to deal with big-endian/little-endian issues because of how it does the
> comparision.
>
> Since the code is just doing a strncmp I would like to use the strncmp
> function call. The code was tested on IA64 and x86.
>
> Can a gatekeeper approve this patch?
>
> Steve Ellcey
> s...@cup.hp.com
>
>
>
>
> Index: osprey/crayf90/fe90/sytb.c
> ===================================================================
> --- osprey/crayf90/fe90/sytb.c (revision 3297)
> +++ osprey/crayf90/fe90/sytb.c (working copy)
> @@ -4905,102 +4905,13 @@ int compare_names(long *id1,
>
> TRACE (Func_Entry, "compare_names", NULL);
>
> -# if !(defined(_HOST_OS_IRIX) || defined(_HOST_OS_LINUX) ||
> defined(_HOST_OS_DARWIN))
> -# pragma _CRI shortloop
> -# endif
> -
> - for (i = 0; i < WORD_LEN((id1_len > id2_len) ? id1_len : id2_len); i++) {
> - matched = id1[i] - id2[i];
> -
> - if (matched != 0) {
> - break;
> - }
> - }
> -
> -# if defined(_HOST_LITTLE_ENDIAN)
> -
> -
> - if (matched) {
> -
> - /* some callers of this routine use the sign of the returned value */
> - /* to determine ordering for insertion of the non-matched sym. */
> - /* (Strings are written into the table storage by byte copy, which */
> - /* mean that, in terms of reading longs on little endian machine, */
> - /* they are stored big-ending (i.e. a long load will byte swap the */
> - /* data in the register before the subtract)...Compare the bytes */
> - /* in order... */
> -
> - unsigned char* i1 = (unsigned char *) &id1[i];
> - unsigned char* i2 = (unsigned char *) &id2[i];
> -
> -# ifdef _HOST64
> -# ifdef _WHIRL_HOST64_TARGET64
> - signed long t, t1, t2;
> -/*
> - int i;
> - fprintf(stderr, "compare_names:");
> - fprintf(stderr, " id1 = ");
> - for (i = 0; i < 8; i++)
> - if (i1[i] == 0)
> - break;
> - else
> - fprintf(stderr, "%c", i1[i]);
> - fprintf(stderr, " id2 = ");
> - for (i = 0; i < 8; i++)
> - if (i2[i] == 0)
> - break;
> - else
> - fprintf(stderr, "%c", i2[i]);
> - fprintf(stderr, "\n");
> -*/
> - t1 = 0;
> - t2 = 0;
> - t = i1[0]; t = t << 56; t1 += t;
> - t = i1[1]; t = t << 48; t1 += t;
> - t = i1[2]; t = t << 40; t1 += t;
> - t = i1[3]; t = t << 32; t1 += t;
> - t = i1[4]; t = t << 24; t1 += t;
> - t = i1[5]; t = t << 16; t1 += t;
> - t = i1[6]; t = t << 8; t1 += t;
> - t = i1[7]; t1 += t;
> - t = i2[0]; t = t << 56; t2 += t;
> - t = i2[1]; t = t << 48; t2 += t;
> - t = i2[2]; t = t << 40; t2 += t;
> - t = i2[3]; t = t << 32; t2 += t;
> - t = i2[4]; t = t << 24; t2 += t;
> - t = i2[5]; t = t << 16; t2 += t;
> - t = i2[6]; t = t << 8; t2 += t;
> - t = i2[7]; t2 += t;
> - matched = t1 - t2;
> -/*
> - fprintf(stderr, "compare_names: t1 = %ld, t2 = %ld, matched = %ld\n",
> - t1, t2, matched);
> -*/
> -#else
> - matched = (signed long) (i1[0]<<56 | i1[1]<<48 | i1[2]<<40| i1[3]<<32
> - | i1[4]<<24 | i1[5]<<16 | i1[6]<<8 | i1[7] )
> - -
> - (signed long) (i2[0]<<56 | i2[1]<<48 | i2[2]<<40| i2[3]<<32
> - | i2[4]<<24 | i2[5]<<16 | i2[6]<<8 | i2[7] );
> -#endif
> -#else
> - matched = (signed long) (i1[0]<<24 | i1[1]<<16 | i1[2]<<8 | i1[3] )
> - -
> - (signed long) (i2[0]<<24 | i2[1]<<16 | i2[2]<<8 | i2[3] );
> -
> -#endif
> - }
> -#endif
> -
> -
> - TRACE (Func_Exit, "compare_names", NULL);
> -
> -# ifdef _HOST64
> -# ifdef _WHIRL_HOST64_TARGET64
> + matched = strncmp((char *) id1, (char *) id2,
> + WORD_LEN((id1_len > id2_len) ? id1_len : id2_len) *
> + sizeof(long));
> if (matched)
> matched = matched > 0 ? 1 : -1;
> -#endif
> -#endif
> +
> + TRACE (Func_Exit, "compare_names", NULL);
>
> return(matched);
>
>
> ------------------------------------------------------------------------------
> The Palm PDK Hot Apps Program offers developers who use the
> Plug-In Development Kit to bring their C/C++ apps to Palm for a share
> of $1 Million in cash or HP Products. Visit us here for more details:
> http://p.sf.net/sfu/dev2dev-palm
> _______________________________________________
> Open64-devel mailing list
> Open64-devel@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/open64-devel
>
------------------------------------------------------------------------------
The Palm PDK Hot Apps Program offers developers who use the
Plug-In Development Kit to bring their C/C++ apps to Palm for a share
of $1 Million in cash or HP Products. Visit us here for more details:
http://p.sf.net/sfu/dev2dev-palm
_______________________________________________
Open64-devel mailing list
Open64-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/open64-devel
