@@ -631,8 +631,7 @@ perl_runtime_link_init(char *libname, int verbose)
631631 * There were no DLL loaded, return FALSE.
632632 */
633633 int
634- perl_enabled (verbose )
635- int verbose ;
634+ perl_enabled (int verbose )
636635{
637636 return perl_runtime_link_init ((char * )p_perldll , verbose ) == OK ;
638637}
@@ -644,7 +643,7 @@ perl_enabled(verbose)
644643 * there's nothing to actually parse.
645644 */
646645 static void
647- perl_init ()
646+ perl_init (void )
648647{
649648 char * bootargs [] = { "VI" , NULL };
650649 int argc = 3 ;
@@ -670,7 +669,7 @@ perl_init()
670669 * perl_end(): clean up after ourselves
671670 */
672671 void
673- perl_end ()
672+ perl_end (void )
674673{
675674 if (perl_interp )
676675 {
@@ -696,9 +695,9 @@ perl_end()
696695 * split at '\n' first though.
697696 */
698697 void
699- msg_split (s , attr )
700- char_u * s ;
701- int attr ; /* highlighting attributes */
698+ msg_split (
699+ char_u * s ,
700+ int attr ) /* highlighting attributes */
702701{
703702 char * next ;
704703 char * token = (char * )s ;
@@ -719,10 +718,10 @@ msg_split(s, attr)
719718 * work properly.
720719 */
721720 char_u *
722- eval_to_string (arg , nextcmd , dolist )
723- char_u * arg UNUSED ;
724- char_u * * nextcmd UNUSED ;
725- int dolist UNUSED ;
721+ eval_to_string (
722+ char_u * arg UNUSED ,
723+ char_u * * nextcmd UNUSED ,
724+ int dolist UNUSED )
726725{
727726 return NULL ;
728727}
@@ -740,9 +739,7 @@ eval_to_string(arg, nextcmd, dolist)
740739 */
741740
742741 static SV *
743- newWINrv (rv , ptr )
744- SV * rv ;
745- win_T * ptr ;
742+ newWINrv (SV * rv , win_T * ptr )
746743{
747744 sv_upgrade (rv , SVt_RV );
748745 if (ptr -> w_perl_private == NULL )
@@ -758,9 +755,7 @@ newWINrv(rv, ptr)
758755}
759756
760757 static SV *
761- newBUFrv (rv , ptr )
762- SV * rv ;
763- buf_T * ptr ;
758+ newBUFrv (SV * rv , buf_T * ptr )
764759{
765760 sv_upgrade (rv , SVt_RV );
766761 if (ptr -> b_perl_private == NULL )
@@ -780,17 +775,15 @@ newBUFrv(rv, ptr)
780775 * Remove all references to the window to be destroyed
781776 */
782777 void
783- perl_win_free (wp )
784- win_T * wp ;
778+ perl_win_free (win_T * wp )
785779{
786780 if (wp -> w_perl_private )
787781 sv_setiv ((SV * )wp -> w_perl_private , 0 );
788782 return ;
789783}
790784
791785 void
792- perl_buf_free (bp )
793- buf_T * bp ;
786+ perl_buf_free (buf_T * bp )
794787{
795788 if (bp -> b_perl_private )
796789 sv_setiv ((SV * )bp -> b_perl_private , 0 );
@@ -834,7 +827,7 @@ struct ufuncs cb_funcs = { cur_val, 0, 1 };
834827 * Make the magical main::curwin and main::curbuf variables
835828 */
836829 static void
837- VIM_init ()
830+ VIM_init (void )
838831{
839832 static char cw [] = "main::curwin" ;
840833 static char cb [] = "main::curbuf" ;
@@ -866,8 +859,7 @@ static char *e_noperl = N_("Sorry, this command is disabled: the Perl library co
866859 * ":perl"
867860 */
868861 void
869- ex_perl (eap )
870- exarg_T * eap ;
862+ ex_perl (exarg_T * eap )
871863{
872864 char * err ;
873865 char * script ;
@@ -947,8 +939,7 @@ ex_perl(eap)
947939}
948940
949941 static int
950- replace_line (line , end )
951- linenr_T * line , * end ;
942+ replace_line (linenr_T * line , linenr_T * end )
952943{
953944 char * str ;
954945
@@ -989,8 +980,7 @@ ref_map_free(void)
989980}
990981
991982 static struct ref_map_S *
992- ref_map_find_SV (sv )
993- SV * const sv ;
983+ ref_map_find_SV (SV * const sv )
994984{
995985 struct ref_map_S * refs = ref_map ;
996986 int count = 350 ;
@@ -1016,9 +1006,7 @@ ref_map_find_SV(sv)
10161006}
10171007
10181008 static int
1019- perl_to_vim (sv , rettv )
1020- SV * sv ;
1021- typval_T * rettv ;
1009+ perl_to_vim (SV * sv , typval_T * rettv )
10221010{
10231011 if (SvROK (sv ))
10241012 sv = SvRV (sv );
@@ -1171,9 +1159,7 @@ perl_to_vim(sv, rettv)
11711159 * "perleval()"
11721160 */
11731161 void
1174- do_perleval (str , rettv )
1175- char_u * str ;
1176- typval_T * rettv ;
1162+ do_perleval (char_u * str , typval_T * rettv )
11771163{
11781164 char * err = NULL ;
11791165 STRLEN err_len = 0 ;
@@ -1241,8 +1227,7 @@ do_perleval(str, rettv)
12411227 * ":perldo".
12421228 */
12431229 void
1244- ex_perldo (eap )
1245- exarg_T * eap ;
1230+ ex_perldo (exarg_T * eap )
12461231{
12471232 STRLEN length ;
12481233 SV * sv ;
@@ -1314,9 +1299,21 @@ err:
13141299}
13151300
13161301#ifndef FEAT_WINDOWS
1317- int win_valid (win_T * w ) { return TRUE; }
1318- int win_count () { return 1 ; }
1319- win_T * win_find_nr (int n ) { return curwin ; }
1302+ int
1303+ win_valid (win_T * w )
1304+ {
1305+ return TRUE;
1306+ }
1307+ int
1308+ win_count (void )
1309+ {
1310+ return 1 ;
1311+ }
1312+ win_T *
1313+ win_find_nr (int n )
1314+ {
1315+ return curwin ;
1316+ }
13201317#endif
13211318
13221319XS (boot_VIM );
@@ -1513,8 +1510,7 @@ SetHeight(win, height)
15131510 curwin = savewin ;
15141511
15151512void
1516- Cursor (win , ...)
1517- VIWIN win
1513+ Cursor (VIWIN win , ...)
15181514
15191515 PPCODE :
15201516 if (items == 1 )
0 commit comments