X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=opcode.pl;h=5a3beed671086a0e4cf7493f50e54190fbd1cdca;hb=23f3589e21445e9141901c2894bc97b457493332;hp=c44ff3f51d078e080efa208b61c019585ef705a6;hpb=24600adc4a7b8d0320458f5125c21c1645dc6bd4;p=p5sagit%2Fp5-mst-13.2.git diff --git a/opcode.pl b/opcode.pl index c44ff3f..5a3beed 100755 --- a/opcode.pl +++ b/opcode.pl @@ -38,7 +38,8 @@ print <<"END"; /* * opcode.h * - * Copyright (c) 1997-2003, Larry Wall + * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, + * 2000, 2001, 2002, 2003, by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -59,7 +60,7 @@ print ON <<"END"; /* * opnames.h * - * Copyright (c) 1997-2003, Larry Wall + * Copyright (C) 1999, 2000, 2001, 2002, 2003, by Larry Wall and others * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -89,10 +90,10 @@ print <op_type == OP_CUSTOM ? custom_op_name(o) : \\ - PL_op_name[o->op_type]) -#define OP_DESC(o) (o->op_type == OP_CUSTOM ? custom_op_desc(o) : \\ - PL_op_desc[o->op_type]) +#define OP_NAME(o) ((o)->op_type == OP_CUSTOM ? custom_op_name(o) : \\ + PL_op_name[(o)->op_type]) +#define OP_DESC(o) ((o)->op_type == OP_CUSTOM ? custom_op_desc(o) : \\ + PL_op_desc[(o)->op_type]) #ifndef DOINIT EXT char *PL_op_name[];