Re: UPS problem with variables containing underscore '_'

From: Ian Edwards (ian_at_concerto.demon.co.uk)
Date: Fri Mar 22 2002 - 15:01:22 GMT

  • Next message: callum.gibson_at_db.com: "Patch for FreeBSD 4.5 to run ups" 
    Attached patch should fix the problem of extra underscores in GNU Fortran
variable names.

>From the top UPS source directory apply with

    cd ups
    patch < ups_f77.pat

Regards,
Ian.



 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
 Ian Edwards <ian_at_concerto.demon.co.uk>       22-Mar-02  15:01:22

 Early Music Record Labels    - http://www.recordlabels.org/
 'ups' debugger for C/C++/f77 - http://www.concerto.demon.co.uk/UPS/
 -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --


*** ao_symscan.c.ups	Fri Mar 22 14:21:14 2002
--- ao_symscan.c	Fri Mar 22 14:31:42 2002
***************
*** 305,313 ****
--- 305,332 ----
  	    }
  
  	if (ap != NULL)
+ 	{
  	  demangle_name((char *)*p_s, len, ap, &name, func == 1, compiler);
+ 	  len = strlen(name);
+ 	}
  	else 
+ 	{
  	  name = NULL;
+ 	  len = 0;
+ 	}
+ 
+ 	if (is_fortran
+ 	    && demangling_enabled(0, 0)
+ 	    && func == 1
+ 	    && compiler == CT_GNU_CC
+ 	    && len > 3
+ 	    && strcmp (name+len-2,"__") == 0)
+ 	{
+ 	  /* GNU f77 converts e.g. 'my_var' to 'my_var__'. */
+ 	  char *t = strchr(name, "_");
+ 	  if (t < name+len-2)
+ 	    *(name+len-2) = '\0';
+ 	}
  
  	*p_s = s;
  	return name;
End of MIME message

    This archive was generated by hypermail 2.1.4 : Thu May 23 2002 - 15:53:56 BST