diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-07-27 17:53:22 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-07-28 16:27:53 +0200 |
| commit | 7c458fae0a6159ea505d310a91a4ffcf379153a2 (patch) | |
| tree | 6a4c953f0aa087e8e5e674c6baf32e66d3c558d5 /malloc.c | |
| parent | 4c21785fe645f05e6e1a51824029d1cda897d57c (diff) | |
| download | perl-7c458fae0a6159ea505d310a91a4ffcf379153a2.tar.gz | |
Remove dead code related to the Atari ST port of perl 4.0 patchlevel 19
The subdirectory containing the port specific files was purged when 5.000
was released, but changes made to other files were not removed.
Diffstat (limited to 'malloc.c')
| -rw-r--r-- | malloc.c | 8 |
1 files changed, 3 insertions, 5 deletions
@@ -197,7 +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) || defined(atarist)) +#if !(defined(I286)) /* take 2k unless the block is bigger than that */ # define LOG_OF_MIN_ARENA 11 #else @@ -376,8 +376,8 @@ */ #define u_short unsigned short -/* 286 and atarist like big chunks, which gives too much overhead. */ -#if (defined(RCHECK) || defined(I286) || defined(atarist)) && defined(PACK_MALLOC) +/* 286 likes big chunks, which gives too much overhead. */ +#if (defined(RCHECK) || defined(I286)) && defined(PACK_MALLOC) # undef PACK_MALLOC #endif @@ -1549,7 +1549,6 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket) /* Second, check alignment. */ slack = 0; -#if !defined(atarist) /* on the atari we dont have to worry about this */ # 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. */ @@ -1558,7 +1557,6 @@ getpages(MEM_SIZE needed, int *nblksp, int bucket) add += slack; } # endif -#endif /* !atarist */ if (add) { DEBUG_m(PerlIO_printf(Perl_debug_log, |