… | |
… | |
40 | #include <sproto.h> |
40 | #include <sproto.h> |
41 | |
41 | |
42 | #include <unistd.h> |
42 | #include <unistd.h> |
43 | #if _POSIX_MEMLOCK |
43 | #if _POSIX_MEMLOCK |
44 | # include <sys/mman.h> |
44 | # include <sys/mman.h> |
|
|
45 | #endif |
|
|
46 | |
|
|
47 | #if HAVE_MALLOC_H |
|
|
48 | # include <malloc.h> |
45 | #endif |
49 | #endif |
46 | |
50 | |
47 | #include <EXTERN.h> |
51 | #include <EXTERN.h> |
48 | #include <perl.h> |
52 | #include <perl.h> |
49 | #include <XSUB.h> |
53 | #include <XSUB.h> |
… | |
… | |
1645 | |
1649 | |
1646 | octet_string path_combine_and_normalize (octet_string base, octet_string path) |
1650 | octet_string path_combine_and_normalize (octet_string base, octet_string path) |
1647 | PROTOTYPE: $$ |
1651 | PROTOTYPE: $$ |
1648 | |
1652 | |
1649 | void |
1653 | void |
|
|
1654 | mallinfo () |
|
|
1655 | PPCODE: |
|
|
1656 | { |
|
|
1657 | #if __GLIBC__ |
|
|
1658 | struct mallinfo mai = mallinfo (); |
|
|
1659 | EXTEND (SP, 7*2); |
|
|
1660 | PUSHs (sv_2mortal (newSVpv ("arena" , 0))); PUSHs (sv_2mortal (newSViv (mai.arena))); |
|
|
1661 | PUSHs (sv_2mortal (newSVpv ("ordblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.ordblks))); |
|
|
1662 | PUSHs (sv_2mortal (newSVpv ("hblks" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblks))); |
|
|
1663 | PUSHs (sv_2mortal (newSVpv ("hblkhd" , 0))); PUSHs (sv_2mortal (newSViv (mai.hblkhd))); |
|
|
1664 | PUSHs (sv_2mortal (newSVpv ("uordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.uordblks))); |
|
|
1665 | PUSHs (sv_2mortal (newSVpv ("fordblks", 0))); PUSHs (sv_2mortal (newSViv (mai.fordblks))); |
|
|
1666 | PUSHs (sv_2mortal (newSVpv ("keepcost", 0))); PUSHs (sv_2mortal (newSViv (mai.keepcost))); |
|
|
1667 | #endif |
|
|
1668 | } |
|
|
1669 | |
|
|
1670 | void |
1650 | sub_generation_inc () |
1671 | sub_generation_inc () |
1651 | CODE: |
1672 | CODE: |
1652 | PL_sub_generation++; |
1673 | PL_sub_generation++; |
1653 | |
1674 | |
1654 | const_octet_string |
1675 | const_octet_string |