diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-26 12:45:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-26 12:45:04 (GMT) |
| commit | c2a4f7e6129491089c0fa4d0202ed91617d29591 (patch) | |
| tree | 38d0791f589c2ab97e01e287a9a2cdc9dd091461 /unix/tclLoadAix.c | |
| parent | fa1e0944fbc80713ec2e806311d2aa6bdbbcbffb (diff) | |
| download | tcl-c2a4f7e6129491089c0fa4d0202ed91617d29591.zip tcl-c2a4f7e6129491089c0fa4d0202ed91617d29591.tar.gz tcl-c2a4f7e6129491089c0fa4d0202ed91617d29591.tar.bz2 | |
Style improvements - invoking callbacks without visual junk.
Diffstat (limited to 'unix/tclLoadAix.c')
| -rw-r--r-- | unix/tclLoadAix.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/unix/tclLoadAix.c b/unix/tclLoadAix.c index d238e9a..b0dc640 100644 --- a/unix/tclLoadAix.c +++ b/unix/tclLoadAix.c @@ -17,7 +17,7 @@ * for any results of using the software, alterations are clearly marked * as such, and this notice is not modified. * - * RCS: @(#) $Id: tclLoadAix.c,v 1.6 2007/04/16 13:36:36 dkf Exp $ + * RCS: @(#) $Id: tclLoadAix.c,v 1.7 2008/10/26 12:45:04 dkf Exp $ * * Note: this file has been altered from the original in a few ways in order * to work properly with Tcl. @@ -213,7 +213,7 @@ dlopen( if (mp->info = (struct dl_info *)dlsym(mp, "dl_info")) { if (mp->info->init) { - (*mp->info->init)(); + mp->info->init(); } } else { errvalid = 0; @@ -226,7 +226,7 @@ dlopen( if (mp->cdtors = (CdtorPtr) dlsym(mp, "__cdtors")) { while (mp->cdtors->init) { - (*mp->cdtors->init)(); + mp->cdtors->init(); mp->cdtors++; } } else { @@ -328,12 +328,12 @@ dlclose( } if (mp->info && mp->info->fini) { - (*mp->info->fini)(); + mp->info->fini(); } if (mp->cdtors) { while (mp->cdtors->term) { - (*mp->cdtors->term)(); + mp->cdtors->term(); mp->cdtors++; } } |