develooper Front page | perl.vmsperl | Postings from June 2002

possible VMS v5.5 fix (was RE: 5.8.0 release candidate status)

From:
Craig A. Berry
Date:
June 12, 2002 11:33
Subject:
possible VMS v5.5 fix (was RE: 5.8.0 release candidate status)
Message ID:
5.1.1.5.0.20020612132019.019fbe30@mail.mac.com
Henry,

I think (hope) this will take care of the compilation problems you are 
having.  For the GNU-impaired, I supply the patch as the result of a 
DIFFERENCES/SLP command.  To apply, set default to the [.vms] directory, 
create the file vms_c_patch.upd from what I've included below, and execute 
this command:

$ edit/sum vms.c/update=vms_c_patch

To quickly check whether this helps, go up one level to the main source 
directory and type

$ MMS VMS.OBJ

And here's the patch.  Let us know how it goes.

======= begin vms_c_patch.upd =======
- 3343
    STRLEN trnlen;
- 3357, 3357
      trnlen = strlen(trndir);
- 6639, 6639
   * UAF and might give false positives or negatives.  This only works on
   * VMS versions v6.0 and later since that's when sys$create_user_profile
   * became available.
- 6645
#if defined(__VMS_VER) && __VMS_VER >= 60000000

- 6658

#else

  retsts = sys$check_access(&objtyp,&namdsc,&usrdsc,armlst);

#endif

/
======= end vms_c_patch.upd =======

At 12:25 PM 6/12/2002 -0400, Henry A. Frystak - System Manager wrote:
>CC/DECC/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=VMS.obj/NoList/Define=PERL_CORE 
>VMS.C
>          STRLEN trnlen = strlen(trndir);
>    .............^
>%CC-E-NOSEMI, Missing ";".
>            At line number 3357 in $41$DKA400:[SYSSOFT.PERL.PERL5_8_0_RC1]VMS.C;1.


>      _ckvmssts(sys$create_user_profile(&usrdsc,&usrprolst,0,0,
>    ..^
>%CC-I-IMPLICITFUNC, In this statement, the identifier 
>"sys$create_user_profile" is implicitly declared as a function.
>            At line number 6647 in $41$DKA400:[SYSSOFT.PERL.PERL5_8_0_RC1]VMS.C;1.







nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About