diff options
author | Robin Barker <RMBarker@cpan.org> | 2007-12-21 14:30:20 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2007-12-21 14:48:22 +0000 |
commit | aab391487e4ce7ac2d97b35a504de2697fadd1b6 (patch) | |
tree | f5ccfcad7dcc2a485c904f8f35cdd5e09f31ef78 /x2p/a2p.h | |
parent | 3f5211dd25d06319ac363a33485c17282b4021a7 (diff) | |
download | perl-aab391487e4ce7ac2d97b35a504de2697fadd1b6.tar.gz |
C<make translators> -Wwrite-strings clean
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <46A0F33545E63740BC7563DE59CA9C6D09399C@exchsvr2.npl.ad.local>
p4raw-id: //depot/perl@32690
Diffstat (limited to 'x2p/a2p.h')
-rw-r--r-- | x2p/a2p.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -252,7 +252,7 @@ char *strcpy(), *strcat(); #define OSTAR 88 #ifdef DOINIT -char *opname[] = { +const char *opname[] = { "0", "PROG", "JUNK", @@ -345,7 +345,7 @@ char *opname[] = { "89" }; #else -extern char *opname[]; +extern const char *opname[]; #endif EXT int mop INIT(1); @@ -370,8 +370,8 @@ typedef struct htbl HASH; /* A string is TRUE if not "" or "0". */ #define True(val) (tmps = (val), (*tmps && !(*tmps == '0' && !tmps[1]))) -EXT char *Yes INIT("1"); -EXT char *No INIT(""); +EXT const char *Yes INIT("1"); +EXT const char *No INIT(""); #define str_get(str) (Str = (str), (Str->str_pok ? Str->str_ptr : str_2ptr(Str))) EXT STR *Str; @@ -397,8 +397,8 @@ void putone ( void ); int rememberargs ( int arg ); char * scannum ( char *s ); char * scanpat ( char *s ); -int string ( char *ptr, int len ); -void yyerror ( char *s ); +int string ( const char *ptr, int len ); +void yyerror ( const char *s ); int yylex ( void ); EXT int line INIT(0); |