diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-13 16:35:59 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-11 10:12:17 +0200 |
| commit | 0a1f728a485818674e743b9fb9a3c149f9e53b6e (patch) | |
| tree | 2f37fa3b4fe9343ed341a711686bed8d8eeac0b4 /perl.h | |
| parent | 8b09643d068d86543c3782211d4a527ee93fee77 (diff) | |
| download | perl-0a1f728a485818674e743b9fb9a3c149f9e53b6e.tar.gz | |
Move the cast for a magic vtable with const get into mg_vtable.h
Putting the cast inside the initialiser (the only initialiser using it)
eliminates use of the macro MGVTBL_SET_CONST_MAGIC_GET(), which can be deleted
as nothing outside the core is relying on it.
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -5110,12 +5110,8 @@ START_EXTERN_C #ifdef DOINIT # define MGVTBL_SET(var,a,b,c,d,e,f,g,h) EXT_MGVTBL var = {a,b,c,d,e,f,g,h} -/* Like MGVTBL_SET but with the get magic having a const MG* */ -# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g,h) EXT_MGVTBL var \ - = {(int (*)(pTHX_ SV *, MAGIC *))a,b,c,d,e,f,g,h} #else # define MGVTBL_SET(var,a,b,c,d,e,f,g,h) EXT_MGVTBL var -# define MGVTBL_SET_CONST_MAGIC_GET(var,a,b,c,d,e,f,g,h) EXT_MGVTBL var #endif #include "mg_vtable.h" |