X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=XSUB.h;h=af911372b2c69f33c435b75f6ad963a3031dc65b;hb=1bb0a50fd869bf3d7f152d29ec8c8119703266a1;hp=af19c81c76a42658acee7c6481fd97b2a43f27e9;hpb=b6d726d6151ea6181b3dfcc77fb660af507482eb;p=p5sagit%2Fp5-mst-13.2.git diff --git a/XSUB.h b/XSUB.h index af19c81..af91137 100644 --- a/XSUB.h +++ b/XSUB.h @@ -1,6 +1,7 @@ /* XSUB.h * - * Copyright (c) 1997-2002, Larry Wall + * Copyright (C) 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. @@ -103,7 +104,7 @@ handled automatically by C. #define dXSFUNCTION(ret) XSINTERFACE_CVT(ret,XSFUNCTION) #define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,))(f)) #define XSINTERFACE_FUNC_SET(cv,f) \ - CvXSUBANY(cv).any_dptr = (void (*) (pTHX_ void*))(f) + CvXSUBANY(cv).any_dxptr = (void (*) (pTHX_ void*))(f) /* Simple macros to put new mortal values onto the stack. */ /* Typically used to return values from XS functions. */