[asperl] tweaks to make it build with the Borland compiler. Won't run

testsuite because @INC intuition from location of perlcore.dll seems
to be broken.  Also, system() and qx// seem broken as well.

p4raw-id: //depot/asperl@1033

1 files changed, 10 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index 4513a07b8c..34f68b22d1 100644
--- a/perl.h
+++ b/perl.h
@@ -110,6 +110,7 @@ class CPerlObj;
 #define _CPERLarg ,CPERLarg
 #define THIS this
 #define _THIS ,this
+#define THIS_ this,
 #define CALLRUNOPS (this->*runops)
 
 #else /* !PERL_OBJECT */
@@ -1076,7 +1077,12 @@ typedef union any ANY;
 
 #include "handy.h"
 
+#ifdef PERL_OBJECT
+typedef I32 (*filter_t) _((CPerlObj*, int, SV *, int));
+#else
 typedef I32 (*filter_t) _((int, SV *, int));
+#endif
+
 #define FILTER_READ(idx, sv, len)  filter_read(idx, sv, len)
 #define FILTER_DATA(idx)	   (AvARRAY(rsfp_filters)[idx])
 #define FILTER_ISREADER(idx)	   (idx >= AvFILLp(rsfp_filters))
@@ -1838,7 +1844,11 @@ public:
 
 /* Interpreter exitlist entry */
 typedef struct exitlistentry {
+#ifdef PERL_OBJECT
+    void (*fn) _((CPerlObj*, void*));
+#else
     void (*fn) _((void*));
+#endif
     void *ptr;
 } PerlExitListEntry;