summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--handy.h4
-rw-r--r--malloc.c16
-rw-r--r--perl.h4
-rw-r--r--x2p/a2p.h4
4 files changed, 2 insertions, 26 deletions
diff --git a/handy.h b/handy.h
index e7930392d0..c736120fec 100644
--- a/handy.h
+++ b/handy.h
@@ -12,11 +12,7 @@
#ifdef NULL
#undef NULL
#endif
-#ifndef I286
# define NULL 0
-#else
-# define NULL 0L
-#endif
#endif
#ifndef PERL_CORE
diff --git a/malloc.c b/malloc.c
index 98efdb4a6c..996fa66a00 100644
--- a/malloc.c
+++ b/malloc.c
@@ -197,14 +197,7 @@
#define MIN_BUC_POW2 (sizeof(void*) > 4 ? 3 : 2) /* Allow for 4-byte arena. */
#define MIN_BUCKET (MIN_BUC_POW2 * BUCKETS_PER_POW2)
-#if !(defined(I286))
- /* take 2k unless the block is bigger than that */
-# define LOG_OF_MIN_ARENA 11
-#else
- /* take 16k unless the block is bigger than that
- (80286s like large segments!), probably good on the atari too */
-# define LOG_OF_MIN_ARENA 14
-#endif
+#define LOG_OF_MIN_ARENA 11
#if defined(DEBUGGING) && !defined(NO_RCHECK)
# define RCHECK
@@ -376,8 +369,7 @@
*/
#define u_short unsigned short
-/* 286 likes big chunks, which gives too much overhead. */
-#if (defined(RCHECK) || defined(I286)) && defined(PACK_MALLOC)
+#if defined(RCHECK) && defined(PACK_MALLOC)
# undef PACK_MALLOC
#endif
@@ -1549,14 +1541,12 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket)
/* Second, check alignment. */
slack = 0;
-# ifndef I286 /* The sbrk(0) call on the I286 always returns the next segment */
/* WANTED_ALIGNMENT may be more than NEEDED_ALIGNMENT, but this may
improve performance of memory access. */
if (PTR2UV(cp) & (WANTED_ALIGNMENT - 1)) { /* Not aligned. */
slack = WANTED_ALIGNMENT - (PTR2UV(cp) & (WANTED_ALIGNMENT - 1));
add += slack;
}
-# endif
if (add) {
DEBUG_m(PerlIO_printf(Perl_debug_log,
@@ -1617,7 +1607,6 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket)
fatalcroak("Misalignment of sbrk()\n");
else
# endif
-#ifndef I286 /* Again, this should always be ok on an 80286 */
if (PTR2UV(ovp) & (MEM_ALIGNBYTES - 1)) {
DEBUG_m(PerlIO_printf(Perl_debug_log,
"fixing sbrk(): %d bytes off machine alignment\n",
@@ -1630,7 +1619,6 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket)
sbrk_slack += (1 << (bucket >> BUCKET_POW2_SHIFT));
# endif
}
-#endif
; /* Finish "else" */
sbrked_remains = require - needed;
last_op = cp;
diff --git a/perl.h b/perl.h
index 83def7678d..614f280e8d 100644
--- a/perl.h
+++ b/perl.h
@@ -3491,10 +3491,6 @@ struct ptr_tbl {
struct ptr_tbl_ent *tbl_arena_end;
};
-#if defined(iAPX286) || defined(M_I286) || defined(I80286)
-# define I286
-#endif
-
#if defined(htonl) && !defined(HAS_HTONL)
#define HAS_HTONL
#endif
diff --git a/x2p/a2p.h b/x2p/a2p.h
index 6083b79ae6..bf31b3acdf 100644
--- a/x2p/a2p.h
+++ b/x2p/a2p.h
@@ -344,11 +344,7 @@ union u_ops {
int ival;
char *cval;
};
-#if defined(iAPX286) || defined(M_I286) || defined(I80286) /* 80286 hack */
-#define OPSMAX (64000/sizeof(union u_ops)) /* approx. max segment size */
-#else
#define OPSMAX 50000
-#endif /* 80286 hack */
EXT union u_ops ops[OPSMAX];
typedef struct string STR;