develooper Front page | perl.perl5.porters | Postings from September 2012

amazing list, many exported functions are optimized to 1 function

Thread Next
From:
bulk 88
Date:
September 25, 2012 03:02
Subject:
amazing list, many exported functions are optimized to 1 function
Message ID:
COL115-W358A80BFCAC72D7BDD26B9DF9D0@phx.gbl

I deliver to you the following duplicate exports from Win32 Perl for you to discuss and study. They have come from perl517.dll VC build 32 bits -O1, no DEBUGGING.

All these groups of export table entries are implemented by the 1 C function.

$VAR1 = {
          '2802189F' => [
                          'Perl_atfork_unlock',
                          'Perl_op_refcnt_unlock'
                        ],
          '280B8DBA' => [
                          'PerlIOBase_popped',
                          'PerlIOBase_noop_ok',
                          'Perl_nothreadhook',
                          'win32_get_childenv'
                        ],
          '28032F3C' => [
                          'Perl_sys_init',
                          'Perl_sys_init3'
                        ],
          '280B8DBD' => [
                          'setgid',
                          'setuid'
                        ],
          '280AED18' => [
                          'Perl_croak',
                          'Perl_die'
                        ],
          '28081973' => [
                          'Perl_sv_nolocking',
                          'Perl_sv_nosharing',
                          'Perl_init_tm',
                          'Perl_vdeb',
                          'Perl_deb_nocontext',
                          'Perl_deb',
                          'boot_Win32CORE',
                          'PerlIO_init',
                          'Perl_regdump',
                          'Perl_cx_dump',
                          'Perl_reentrant_size',
                          'Perl_reentrant_init',
                          'Perl_reentrant_free',
                          'Perl_sv_nounlocking',
                          'win32_free_childenv',
                          'Perl_sv_report_used'
                        ],
          '28021893' => [
                          'Perl_atfork_lock',
                          'Perl_op_refcnt_lock'
                        ],
          '280BB2DB' => [
                          'win32_free',
                          'win32_freeenvironmentstrings'
                        ],
          '280A878D' => [
                          'Perl_utf8_to_uvuni_buf',
                          'Perl_utf8_to_uvchr_buf'
                        ],
          '2801B225' => [
                          'Perl_uvchr_to_utf8',
                          'Perl_uvuni_to_utf8'
                        ],
          '280AAA06' => [
                          'Perl_utf8_to_uvuni',
                          'Perl_valid_utf8_to_uvchr'
                        ],
          '280A8F08' => [
                          'Perl_is_uni_ascii_lc',
                          'Perl_is_uni_ascii'
                        ],
          '280AD5DB' => [
                          'Perl_die_nocontext',
                          'Perl_croak_nocontext'
                        ],
          '280200A5' => [
                          'Perl_cast_uv',
                          'Perl_cast_ulong'
                        ],
          '28080989' => [
                          'Perl_save_pushptrptr',
                          'Perl_save_pushi32ptr'
                        ],
          '280B6A65' => [
                          'PerlIO_stdoutf',
                          'Perl_printf_nocontext'
                        ],
          '280200F1' => [
                          'Perl_cast_i32',
                          'Perl_cast_iv'
                        ]
        };

Just a lil something to ponder on what to remove.
 		 	   		  
Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About