I have added the /NAMES=SHORTENED qualifier to the CCFLAGS
and I have got a little further, but I am still getting
compilation errors in the TDSLAYER.C module:
BART(SYSTEM)$ MMK ALL
%MMK-I-ACTNOUPD, action did not update target CONFIG
perl "-Iperl_root:[lib]" "-MExtUtils::Install" -e "pm_to_blib({split('
',<STDIN>)},'[.blib.lib.auto]','')" <.MM_tmp
cp freetds.pm [.blib.lib.DBD]freetds.pm
AutoSplitting blib/lib/DBD/freetds.pm ([.blib.lib.auto.DBD]FreeTDS)
perl "-Iperl_root:[lib.VMS_VAX.5_6_1]" "-Iperl_root:[lib]" -e "use
ExtUtils::Mksymlists;" -e "Mksymlists('NAME' => 'DBD::FreeT
DS', 'DL_FUNCS' => { }, 'DL_VARS' => [], 'FUNCLIST' => [])"
perl -e "print
""[.blib.arch.auto.DBD.FreeTDS]FreeTDS.olb/Include=(dbdimp,freetds,tdslayer)
\n[.blib.arch.auto.DBD.FreeTDS]FreeTDS.ol
b/Library\n"";" >>FREETDS.OPT
perl -e "print qq{PerlShr/Share\n}" >>FREETDS.OPT
Copy/NoConfirm FREETDS.OPT [.BLIB.ARCH.AUTO.DBD.FREETDS]FREETDS.OPT
CC/DECC
/NAMES=SHORTENED/Define=("VERSION=""0.02""","XS_VERSION=""0.02""")/Include=(
perl_root:[lib.VMS_VAX.5_6_1.CORE],perl_root:[li
b.site_perl.VMS_VAX.auto.DBI],usr:[local.include])/Debug/NoOptimize
DBDIMP.c
perl -p -e "s/~DRIVER~/FreeTDS/g" <
perl_root:[lib.site_perl.VMS_VAX.auto.DBI]Driver.xst > FreeTDS.xsi
perl "-Iperl_root:[lib.VMS_VAX.5_6_1]" "-Iperl_root:[lib]"
perl_root:[lib.ExtUtils]xsubpp -typemap perl_root:[lib.ExtUtils]typemap
FREETDS.xs >FREETDS.C
Warning: long symbol DBD__FreeTDS__st_bind_param_inout
trimmed to DBD_FTDS_st_bd_pam_inout
at perl_root:[lib.extutils]xsubpp line 1068
Warning: long symbol DBD__FreeTDS__st_fetchrow_arrayref
trimmed to DBD_FTDS_st_fcow_arayref
at perl_root:[lib.extutils]xsubpp line 1068
Warning: long symbol DBD__FreeTDS__st_fetchrow_array
trimmed to DBD_FreTDS_st_fetchrow_aray
at perl_root:[lib.extutils]xsubpp line 1068
Warning: long symbol DBD__FreeTDS__st_FETCH_attrib
trimmed to DBD_FreeTDS_st_FETCH_attrib
at perl_root:[lib.extutils]xsubpp line 1068
CC/DECC
/NAMES=SHORTENED/Define=("VERSION=""0.02""","XS_VERSION=""0.02""")/Include=(
perl_root:[lib.VMS_VAX.5_6_1.CORE],perl_root:[li
b.site_perl.VMS_VAX.auto.DBI],usr:[local.include])/Debug/NoOptimize
FREETDS.c
CC/DECC
/NAMES=SHORTENED/Define=("VERSION=""0.02""","XS_VERSION=""0.02""")/Include=(
perl_root:[lib.VMS_VAX.5_6_1.CORE],perl_root:[li
b.site_perl.VMS_VAX.auto.DBI],usr:[local.include])/Debug/NoOptimize
TDSLAYER.c
int tds_write_tdslong(
^
%CC-W-MISSINGRETURN, Non-void function "tds_write_tdslong" does not contain
a
return statement.
At line number 3179 in
DKA300:[000000.DBD-FREETDS-0_02]TDSLAYER.C;2.
%VCG-I-SUMMARY, Completed with 0 error(s), 1 warning(s), and
0 informational messages.
At line number 3200 in
DKA300:[000000.DBD-FREETDS-0_02]TDSLAYER.C;2.
%MMK-F-ERRUPD, error status %X10B90000 occurred when updating target
TDSLAYER.OBJ
I dont know any C, so it doesnt really mean much to me!
Thanks for your help,
Piyush.
-----Original Message-----
From: Craig A. Berry [mailto:[EMAIL PROTECTED]]
Sent: 16 August 2001 14:48
To: Piyush Avichal
Cc: 'Craig A. Berry'; '[EMAIL PROTECTED]'
Subject: RE: [PATCH DBD::FreeTDS 0.02] minimal VMS build patch
At 11:37 AM +0000 8/15/01, Piyush Avichal wrote:
>But the mmk fails with compilation warnings(see below).
>They all seem to be to do with the same thing.
>I have used Compaq C 6.2.
>
>Any ideas?
Very odd, the name-shortening in the XS processor should have taken
care of this (and it did for me). Perhaps the quick and dirty
approach would be to edit your descrip.mms and add /NAMES=SHORTENED
to the CFLAGS qualifier list.
>CC/DECC
>/Define=("VERSION=""0.02""","XS_VERSION=""0.02""")/Include=(perl_root:[lib.
V
>MS_VAX.5_6_1.CORE],perl _root:[lib.site_perl.VMS_
>VAX.auto.DBI],usr:[local.include])/Debug/NoOptimize DBDIMP.c
> extern void XS_DBD__FreeTDS__st_bind_param_inout(CV *);
> ............^
>%CC-W-LONGEXTERN, The external identifier name exceeds 31 characters;
>truncated
> to "XS_DBD__FREETDS__ST_BIND_PARAM_".
> At line number 180 in
>DKA300:[000000.DBD-FREETDS-0_02]FREETDS.H;1.
--
____________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"Literary critics usually know what they're
talking about. Even if they're wrong."
-- Perl creator Larry Wall
****************************************************************************
Singer & Friedlander Group plc, registered office at
21 New Street, Bishopsgate, London, EC2M 4HR. Registered in England No 970842.
This e-mail is confidential and may be legally privileged. It is intended for the
sole use
of the addressee and not anyone else. If you received this e-mail in error, please
advise
the sender immediately.
****************************************************************************