Attachment 898656 Details for Bug 1080073 – getdoublearr.stripwhite.patch

[patch] getdoublearr.stripwhite.patch

getdoublearr.stripwhite.patch (text/plain), 1.33 KB, created by Michel Normand on 2014-05-23 11:33:40 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Michel Normand

Created: 2014-05-23 11:33:40 UTC

Size: 1.33 KB

patch

obsolete

>Subject: getdoublearr.stripwhite
>From: Michel Normand <normand@fr.ibm.com>
>
>GetDoubleArr must only handle the comma delimited list at string head
>and ignore anything after the first blank character.
>
>Signed-off-by: Michel Normand <normand@fr.ibm.com>
>---
> ATLAS/include/atlas_genparse.h |   16 ++++++++++++++--
> 1 file changed, 14 insertions(+), 2 deletions(-)
>
>Index: atlas/ATLAS/include/atlas_genparse.h
>===================================================================
>--- atlas.orig/ATLAS/include/atlas_genparse.h
>+++ atlas/ATLAS/include/atlas_genparse.h
>@@ -149,13 +149,24 @@ static int asmNames2bitfield(char *str)
> }
> 
> /* procedure 7 */
>-static int GetDoubleArr(char *str, int N, double *d)
>+static int GetDoubleArr(char *callerstr, int N, double *d)
> /*
>  * Reads in a list with form "%le,%le...,%le"; N-length d recieves doubles.
>  * RETURNS: the number of doubles found, or N, whichever is less
>  */
> {
>-   int i=1;
>+   int i;
>+   char *dupstr = DupString(callerstr);
>+   char *str = dupstr;
>+   /* strip the string to end on first white space */
>+   for (i=0; dupstr[i]; i++)
>+   {
>+	if (isspace(dupstr[i])) {
>+		dupstr[i] = '\0';
>+		break;
>+	}
>+   }
>+   i = 1;
>    assert(sscanf(str, "%le", d) == 1);
>    while (i < N)
>    {
>@@ -167,6 +178,7 @@ static int GetDoubleArr(char *str, int N
> 	break;
>       i++;
>    }
>+   free(dupstr);
>    return(i);
> }
>

Actions: View | Diff

Attachments on bug 1080073: 878111 | 898654 | 898655 | 898656 | 898657 | 898658 | 898659 | 917277 | 917280 | 917284 | 919654 | 927912 | 927913 | 927915 | 927916 | 939224 | 939225 | 939357 | 940404 | 942268 | 942576 | 942578 | 943255