This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
C<union any> needs no PERL_OBJECT-treatment
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 20 Jul 1999 04:52:25 +0000 (04:52 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 20 Jul 1999 04:52:25 +0000 (04:52 +0000)
p4raw-id: //depot/perl@3706

win32/win32.h

index 0ed53d6..79926ac 100644 (file)
@@ -232,15 +232,6 @@ struct mgvtbl {                                                            \
     U8         op_flags;               \
     U8         op_private;
 
-#define UNION_ANY_DEFINITION union any {               \
-    void*      any_ptr;                                \
-    I32                any_i32;                                \
-    IV         any_iv;                                 \
-    long       any_long;                               \
-    void       (CPERLscope(*any_dptr)) (pTHX_ void*);  \
-    char       handle_VC_problem[16];                  \
-}
-
 #endif /* PERL_OBJECT */
 
 #endif /* _MSC_VER */