diff options
| author | Dan Sugalski <dan@sidhe.org> | 1998-06-19 08:36:34 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-21 06:55:18 +0000 |
| commit | 429a5e67a8cd7868f6400fb40a70246ad7548973 (patch) | |
| tree | a6ee82a5dae271a7ae918a6b654d9d8026af2e8f /perl.h | |
| parent | 4318d5a0158916acc059aa8e6af84037cb7296b9 (diff) | |
| download | perl-429a5e67a8cd7868f6400fb40a70246ad7548973.tar.gz | |
applied VMS patch from Dan Sugalski
Message-Id: <980619153634.2063ee12@cedar.osshe.edu>
Subject: [PATCH 5.004_67] Enhancements to the VMS configuration procedures
p4raw-id: //depot/perl@1174
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 12 |
1 files changed, 11 insertions, 1 deletions
@@ -373,7 +373,7 @@ register struct op *op asm(stringify(OP_IN_REGISTER)); # ifdef HIDEMYMALLOC # define malloc Mymalloc # define calloc Mycalloc -# define realloc Myremalloc +# define realloc Myrealloc # define free Myfree Malloc_t Mymalloc _((MEM_SIZE nbytes)); Malloc_t Mycalloc _((MEM_SIZE elements, MEM_SIZE size)); @@ -384,11 +384,21 @@ Free_t Myfree _((Malloc_t where)); # define malloc Perl_malloc # define calloc Perl_calloc # define realloc Perl_realloc +/* VMS' external symbols are case-insensitive, and there's already a */ +/* perl_free in perl.h */ +#ifdef VMS +# define free Perl_myfree +#else # define free Perl_free +#endif Malloc_t Perl_malloc _((MEM_SIZE nbytes)); Malloc_t Perl_calloc _((MEM_SIZE elements, MEM_SIZE size)); Malloc_t Perl_realloc _((Malloc_t where, MEM_SIZE nbytes)); +#ifdef VMS +Free_t Perl_myfree _((Malloc_t where)); +#else Free_t Perl_free _((Malloc_t where)); +#endif # endif # undef safemalloc |