Op een mooie lentedag (Tuesday 30 May 2006 00:40),schreef Craig A. Berry:
> At 11:24 PM +0200 5/29/06, Abe Timmerman wrote:
> >Hi,
> >
> >Although we discussed this change and found it should be safe, I now find
> > that it isn't on VAX/VMS V7.2
> >
> >So here is one that works on the VAX and still makes
> > Porting/checkcfgvar.pl see the sig_name_init symbol. (May need some real
> > VMSers' eyes.)
>
> Thanks, applied with one small modification to a comparison operator
> (see below) as #28334.
>
> >--- configure.com.orig Mon May 29 22:32:02 2006
> >+++ configure.com Mon May 29 22:38:33 2006
> >@@ -6281,7 +6281,14 @@
> > $ WC "shortsize='" + shortsize + "'"
> > $ WC "shrplib='define'"
> > $ WC "sig_name='" + sig_name + "'"
> >-$ WC "sig_name_init='" + sig_name_init + "'"
> >+$ IF (f$length(sig_name_init) .GES. 1024)
>
> .GES. is a string comparsion in DCL. .GE. is what you want to do
> numeric comparison, as the following example proves:
>
> $ write sys$output 2 .ges. 1024
> 1
> $ write sys$output 2 .ge. 1024
> 0
Yeah, you're right, but ...
I actually had to lower it to 244 to get it to work now :(
(I got that from the error message in which sig_name_init was truncated after
three lines on my 80char terminal.)
> >+$ THEN
> >+$ tmp = "sig_name_init='" + sig_name_init + "'"
> >+$ WC/symbol tmp
> >+$ DELETE/SYMBOL tmp
> >+$ ELSE
> >+$ WC "sig_name_init='" + sig_name_init + "'"
> >+$ ENDIF
> > $ WC "sig_num='" + sig_num + "'"
> > $ WC "sig_num_init='" + sig_num_init + "'"
> > $ WC "sig_count='" + sig_count + "'"
> >
> >
> >
> >After applying this patch I get this error with MMK:
> >
> >CC/DECC
> > /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=GLOBALS.obj/NoList/
> > FLOAT=G_FLOAT/Define=PERL_CORE GLOBALS.C
> > */
> >%VCG-W-BADPSECT, The program section(psect) specified by this statement
> > has conflicting 'nowrite' attributes with another definition of the same
> > program section.
> > At line number 42 in DISK$USER_2:
> >[TIMMERMAN.KLAD.PERL-CURRENT]GLOBALS.C;1.
> >
> >%VCG-I-SUMMARY, Completed with 0 error(s), 1 warning(s), and
> > 0 informational messages.
> > At line number 42 in DISK$USER_2:
> >[TIMMERMAN.KLAD.PERL-CURRENT]GLOBALS.C;1.
>
> Thanks for trying to keep the VAX fires burning. To pursue this, I
> think you'd need to do a debug build and look through globals.lis to
> see where the conflicting definitions are coming from.
I've now got the globals.lis file. What am I looking for (remember I don't
know any C)? Just give me a pointer and I'll try to analyze.
TIA +
Good luck,
Abe
--
Documenting bugs before they're found is kinda hard.
Can I borrow your time machine? Mine won't start.
-- Michael G. Schwern on p5p @ 2002-11-19
