Using perl5.005 on solaris7 SUN
Can someone please explain why this fails with the following error :
Error: Cannot parse function definition from '  if (rname)' in Laff.xs,
line 2609

CODE:
{
  prel_p          p;
  AV              *idav;
  int             i,nids=0,rel=0,ids[4096];

warn("1");
  if (rname)
    rel = (!strcmp(rname,"EQUIPOT"))  ? lEQUIPOT
        : (!strcmp(rname,"EQUIV"))    ? lEQUIV
        : (!strcmp(rname,"UNDEF"))    ? lUNDEF
        : 0;

but this works : the warn is now indented :

CODE:
{
  prel_p          p;
  AV              *idav;
  int             i,nids=0,rel=0,ids[4096];

  warn("1");
  if (rname)
    rel = (!strcmp(rname,"EQUIPOT"))  ? lEQUIPOT
        : (!strcmp(rname,"EQUIV"))    ? lEQUIV
        : (!strcmp(rname,"UNDEF"))    ? lUNDEF
        : 0;

-- 
=========+=========+=========+=========+=========+=========+=========+
   ___  _ ____       ___       __  __          
  / _ )(_) / /_ __  / _ \___ _/ /_/ /____  ___ 
 / _  / / / / // / / ___/ _ `/ __/ __/ _ \/ _ \
/____/_/_/_/\_, / /_/   \_,_/\__/\__/\___/_//_/
           /___/                               
Texas Instruments ASIC Circuit Design Methology Group
Dallas, Texas
214-480-4455
[EMAIL PROTECTED]
=========+=========+=========+=========+=========+=========+=========+

Reply via email to