mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

warning: storage class after type is obsolescent

Browse Source 
Message-ID: <20000814164247.A16368@con2-dgi>

p4raw-id: //depot/perl@6623
This commit is contained in:
Daniel Muiño 2000-08-14 13:42:47 -03:00 committed by Jarkko Hietaniemi
parent 3d6b3824fa
commit 29de93916e
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
regcomp.pl
View File

@ -57,7 +57,7 @@ print OUT <<EOP;
#ifdef REG_COMP_C
const static U8 regarglen[] = {
static const U8 regarglen[] = {
EOP
$ind = 0;
@ -73,7 +73,7 @@ EOP
print OUT <<EOP;
};
const static char reg_off_by_arg[] = {
static const char reg_off_by_arg[] = {
EOP
$ind = 0;
@ -89,7 +89,7 @@ print OUT <<EOP;
};
#ifdef DEBUGGING
const static char * const reg_name[] = {
static const char * const reg_name[] = {
EOP
$ind = 0;
@ -105,7 +105,7 @@ EOP
print OUT <<EOP;
};
const static int reg_num = $tot;
static const int reg_num = $tot;
#endif /* DEBUGGING */
#endif /* REG_COMP_C */

8
regnodes.h
View File

@ -173,7 +173,7 @@ EXTCONST U8 PL_regkind[] = {
#ifdef REG_COMP_C
const static U8 regarglen[] = {
static const U8 regarglen[] = {
0, /* END */
0, /* SUCCEED */
0, /* BOL */
@ -256,7 +256,7 @@ const static U8 regarglen[] = {
0, /* OPTIMIZED */
};
const static char reg_off_by_arg[] = {
static const char reg_off_by_arg[] = {
0, /* END */
0, /* SUCCEED */
0, /* BOL */
@ -340,7 +340,7 @@ const static char reg_off_by_arg[] = {
};
#ifdef DEBUGGING
const static char * const reg_name[] = {
static const char * const reg_name[] = {
"END", /* 0 */
"SUCCEED", /* 0x1 */
"BOL", /* 0x2 */
@ -423,7 +423,7 @@ const static char * const reg_name[] = {
"OPTIMIZED", /* 0x4f */
};
const static int reg_num = 80;
static const int reg_num = 80;
#endif /* DEBUGGING */
#endif /* REG_COMP_C */