improve defslatec debug output

slatec.pd

@@ -308,8 +308,9 @@ sub defslatec {
     die "Only one FuncRet allowed in pars list.\n"
       if (my @funcret = grep $_->[0] eq "FuncRet", @args2) > 1;
     my $fpar = @funcret ? "\$$funcret[0][2]()" : undef;
-    my $pars = join ';', map
-      +($KIND2I{$_->[0]}[0] // die "Invalid ppars ",join(',',@$_),"\n") . join('', @$_[1..3]),
+    my $pars = join '; ', map
+      +($KIND2I{$_->[0]}[0] // die "Invalid ppars ",join(',',@$_),"\n") .
+        join(' ', grep length, $_->[1], "$_->[2]$_->[3]"),
       grep !$ignore_ppar{$_->[0]}, @args2;
     my $otherpars = join ';', map
       ${$KIND2I{$_->[0]}[0]} . join(' => ', @$_[2,2]),
@@ -343,7 +344,7 @@ sub defslatec {
     # add on the function reference, if supplied, to the start of
     # the doc string
     if ( defined $docstring ) {
-      $docstring = "\n=for ref\n\n$funcref\n\n$docstring" if defined $funcref;
+      $docstring = "=for ref\n\n$funcref\n\n$docstring" if defined $funcref;
     } else {
       $docstring = '';
     }
@@ -352,13 +353,17 @@ sub defslatec {
     my $code = join("\n", @intcopy_code, "$func($funcargs);");
     print <<"ENDDBG" if $debug;
 pp_def('$pname',
-  Pars => '$pars',
-  OtherPars => '$otherpars',@{[ !$argorder ? '' : "
+  Pars => '$pars',@{[ !$otherpars ? '' : "
+  OtherPars => '$otherpars',"]}@{[ !$argorder ? '' : "
   ArgOrder => [qw(@$argorder)],"]}
-  Code => '$code',
+  Code => pp_line_numbers(__LINE__, <<'EOF'),
+$code
+EOF
   CHeader => '@cheaders',
-  GenericTypes => [@{[join ", ", map $_->[0], @talts]}],
-  Doc => '$docstring',
+  GenericTypes => [qw(@{[join ", ", map $_->[0], @talts]})],
+  Doc => <<'EOF',
+$docstring
+EOF
 );
 ENDDBG
     pp_def($pname,