On Sun, 28 Oct 2007 00:22:48 +0200, Craig A. Berry <[EMAIL PROTECTED]> wrote:

At 6:58 PM +0200 10/25/07, [EMAIL PROTECTED] wrote:
On Thu, 25 Oct 2007 05:24:16 +0200, Craig A. Berry <[EMAIL PROTECTED]> wrote:

At 12:25 AM +0200 10/25/07, [EMAIL PROTECTED] wrote:
On Wed, 24 Oct 2007 23:26:32 +0200, <[EMAIL PROTECTED]> wrote:

Just for laughs (I am not serious to make this work):

Well, I couldn't stop. To get around this rather stupid problem I changed
configure.com:

A400> diff configure.com,;1
************
File TMP:[AI26.perl-current]configure.com;5
6606   $ 'Perl_CC' 'ccflags' munchconfig.c
6607   $ IF Needs_Opt
******
File TMP:[AI26.perl-current]configure.com;1
6606   $ 'Perl_CC' munchconfig.c
6607   $ IF Needs_Opt
************

Getting rid of your compiler flags means all bets are off.


It's the other way round.  configure.com as shipped discards
all flags.  I added them and then munchconfig compiles.

I've added your change:

http://public.activestate.com/cgi-bin/perlbrowse/p/32199


Thanks.

The best way to chase the other problems you reported would be to
configure a debug build like so:

$ @configure -"Dusevmsdebug" -"des"

and then build with

$ MMK/MACRO=__DEBUG__=1

You'll get listing files which would tell you a lot about what the
compiler is or is not seeing.  Upgrading the compiler would probably
be a lot less work.  And yes, I understand you've pursued this as far
as you want to, which is fine.


Well, you never know...  Sorry, I don't have gnu diff on the vms box.

A400> diff doio.c
************
File TMP:[AI26.perl-current]doio.c;2
 2298   #ifdef VMS
 2299   PerlIO *
 2300   Perl_vms_start_glob
 2301      (pTHX_ SV *tmpglob,
 2302       IO *io);
 2303   #endif /* VMS */
 2304
 2305   PerlIO *
******
File TMP:[AI26.perl-current]doio.c;1
 2298   PerlIO *
************
************
File TMP:[AI26.perl-current]doio.c;2
 2316       fp = Perl_vms_start_glob(aTHX_ tmpglob, io);
******
File TMP:[AI26.perl-current]doio.c;1
 2309   PerlIO *
 2310   Perl_vms_start_glob
 2311      (pTHX_ SV *tmpglob,
 2312       IO *io);
 2313
 2314       fp = Perl_vms_start_glob(aTHX_ tmpglob, io);
************

Number of difference sections found: 2
Number of difference records found: 12

DIFFERENCES /IGNORE=()/MERGED=1-
    TMP:[AI26.perl-current]doio.c;2-
    TMP:[AI26.perl-current]doio.c;1


A400> diff perl.c,;1
************
File TMP:[AI26.perl-current]perl.c;3
 3421      {
 3422   #    include <lib$routines.h>
 3423        lib$signal(SS$_DEBUG);  /* ssdef.h #included from vmsish.h */
 3424      }
 3425   #  elif defined(WIN32) || defined(__CYGWIN__)
******
File TMP:[AI26.perl-current]perl.c;1
 3421   #    include <lib$routines.h>
 3422        lib$signal(SS$_DEBUG);  /* ssdef.h #included from vmsish.h */
 3423   #  elif defined(WIN32) || defined(__CYGWIN__)
************

Number of difference sections found: 1
Number of difference records found: 4

DIFFERENCES /IGNORE=()/MERGED=1-
    TMP:[AI26.perl-current]perl.c;3-
    TMP:[AI26.perl-current]perl.c;1

A400> diff pp_ctl.c
************
File TMP:[AI26.perl-current]pp_ctl.c;2
 3373                       {
 3374                           char *unixdir;
3375 if ((unixdir = tounixpath(dir, NULL)) == NULL)
 3376                               continue;
 3377                           sv_setpv(namesv, unixdir);
 3378                           sv_catpv(namesv, unixname);
 3379                       }
 3380   #  else
******
File TMP:[AI26.perl-current]pp_ctl.c;1
 3373                       char *unixdir;
 3374                       if ((unixdir = tounixpath(dir, NULL)) == NULL)
 3375                           continue;
 3376                       sv_setpv(namesv, unixdir);
 3377                       sv_catpv(namesv, unixname);
 3378   #  else
************

Number of difference sections found: 1
Number of difference records found: 7

DIFFERENCES /IGNORE=()/MERGED=1-
    TMP:[AI26.perl-current]pp_ctl.c;2-
    TMP:[AI26.perl-current]pp_ctl.c;1

A400> diff [.vms]vms.c,;1
************
File TMP:[AI26.perl-current.vms]vms.c;2
 2053     const char *dir1;
 2054
******
File TMP:[AI26.perl-current.vms]vms.c;1
 2053
************
************
File TMP:[AI26.perl-current.vms]vms.c;2
 2057
******
File TMP:[AI26.perl-current.vms]vms.c;1
 2056     const char *dir1;
 2057
************

Number of difference sections found: 2
Number of difference records found: 2

DIFFERENCES /IGNORE=()/MERGED=1-
    TMP:[AI26.perl-current.vms]vms.c;2-
    TMP:[AI26.perl-current.vms]vms.c;1


But now I am stuck or rather have the eperts here tell me the DECC specialties:

A400> mmk
CC/DECC /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/float=ieee/ieee=denorm/Define=PERL_CORE VMS.C

/*  End of vms.c */
...................^
%CC-E-OPENBRACE, Missing "{".
at line number 13240 in file TMP:[AI26.perl-current]vms.c;2

/*  End of vms.c */
...................^
%CC-E-BADSTMT, Invalid statement.
at line number 13240 in file TMP:[AI26.perl-current]vms.c;2

  FILE *fp = fdopen(fd, mode);
........................^
%CC-W-NOTCONSTQUAL, In the initializer for fp, the referenced type of the pointer value "mode" is const, but the referenced type of
the target of this assignment is not.
at line number 10194 in file TMP:[AI26.perl-current]vms.c;2

        const __align (LONGWORD) int spare[8] = {0};
.....................................^
%CC-E-PARMINIT, In the definition of the function "__align", a parameter declaration cannot include an initializer.
at line number 13213 in file TMP:[AI26.perl-current]vms.c;2

        const __align (LONGWORD) int spare[8] = {0};
.....................................^
%CC-E-NOTPARM, In the definition of the function "__align", spare is not a parameter.
at line number 13213 in file TMP:[AI26.perl-current]vms.c;2

const long vms_cc_features = (const long)set_features;
...........^
%CC-E-PARMINIT, In the definition of the function "__align", a parameter declaration cannot include an initializer.
at line number 13223 in file TMP:[AI26.perl-current]vms.c;2

const long vms_cc_features = (const long)set_features;
...........^
%CC-E-NOTPARM, In the definition of the function "__align", vms_cc_features is not a parameter.
at line number 13223 in file TMP:[AI26.perl-current]vms.c;2

int lib$initialize(void);
....^
%CC-E-NOTPARM, In the definition of the function "__align", lib$initialize is not a parameter.
at line number 13229 in file TMP:[AI26.perl-current]vms.c;2

    int lib_init_ref = (int) lib$initialize;
........^
%CC-E-PARMINIT, In the definition of the function "__align", a parameter declaration cannot include an initializer.
at line number 13233 in file TMP:[AI26.perl-current]vms.c;2

    int lib_init_ref = (int) lib$initialize;
........^
%CC-E-NOTPARM, In the definition of the function "__align", lib_init_ref is not a parameter.
at line number 13233 in file TMP:[AI26.perl-current]vms.c;2
%MMK-F-ERRUPD, error status %X10B91262 occurred when updating target VMS.OBJ



Seems to me __align is unknown to my C.  But how to fix?

Michael

Reply via email to