summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLukas Mai <lukasmai.403@gmail.com>2023-03-22 20:56:01 +0100
committerYves Orton <demerphq@gmail.com>2023-03-23 18:39:01 +0800
commit3ae398fba4a16b2da69f72f21ace25d2bf0370e6 (patch)
tree13cccfe5a0eab11b5537c96ff69627ef4ab71cc8
parent07c23d4e39b1b664ba2faa025a5ec8a12982c387 (diff)
downloadperl-3ae398fba4a16b2da69f72f21ace25d2bf0370e6.tar.gz
perlio.c: remove silly casts
-rw-r--r--perlio.c32
1 files changed, 18 insertions, 14 deletions
diff --git a/perlio.c b/perlio.c
index c5ed3f0a64..6f578ab592 100644
--- a/perlio.c
+++ b/perlio.c
@@ -294,7 +294,7 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
}
}
else {
- return PerlIO_fdopen(fd, (char *) mode);
+ return PerlIO_fdopen(fd, mode);
}
return NULL;
}
@@ -419,7 +419,7 @@ PerlIO_verify_head(pTHX_ PerlIO *f)
assert(p);
do {
assert(p->head == head);
- if (p == (PerlIOl*)f)
+ if (&p->next == f)
seen = 1;
p = p->next;
} while (p);
@@ -449,14 +449,14 @@ PerlIO *
PerlIO_allocate(pTHX)
{
/*
- * Find a free slot in the table, allocating new table as necessary
+ * Find a free slot in the table, allocating new tables as necessary
*/
PerlIOl **last;
PerlIOl *f;
last = &PL_perlio;
while ((f = *last)) {
int i;
- last = (PerlIOl **) (f);
+ last = &f->next;
for (i = 1; i < PERLIO_TABLE_SIZE; i++) {
if (!((++f)->next)) {
goto good_exit;
@@ -467,13 +467,13 @@ PerlIO_allocate(pTHX)
if (!f) {
return NULL;
}
- *last = (PerlIOl*) f++;
+ *last = f++;
good_exit:
f->flags = 0; /* lockcnt */
f->tab = NULL;
f->head = f;
- return (PerlIO*) f;
+ return &f->next;
}
#undef PerlIO_fdupopen
@@ -501,7 +501,7 @@ PerlIO_cleantable(pTHX_ PerlIOl **tablep)
PerlIOl * const table = *tablep;
if (table) {
int i;
- PerlIO_cleantable(aTHX_(PerlIOl **) & (table[0]));
+ PerlIO_cleantable(aTHX_ &table[0].next);
for (i = PERLIO_TABLE_SIZE - 1; i > 0; i--) {
PerlIOl * const f = table + i;
if (f->next) {
@@ -595,7 +595,8 @@ PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param)
DEBUG_i( PerlIO_debug("Clone %p from %p\n",(void*)aTHX,(void*)proto) );
while ((f = *table)) {
int i;
- table = (PerlIOl **) (f++);
+ table = &f->next;
+ f++;
for (i = 1; i < PERLIO_TABLE_SIZE; i++) {
if (f->next) {
(void) fp_dup(&(f->next), 0, param);
@@ -620,7 +621,8 @@ PerlIO_destruct(pTHX)
#endif
while ((f = *table)) {
int i;
- table = (PerlIOl **) (f++);
+ table = &f->next;
+ f++;
for (i = 1; i < PERLIO_TABLE_SIZE; i++) {
PerlIO *x = &(f->next);
const PerlIOl *l;
@@ -1631,7 +1633,8 @@ Perl_PerlIO_flush(pTHX_ PerlIO *f)
int code = 0;
while ((ff = *table)) {
int i;
- table = (PerlIOl **) (ff++);
+ table = &ff->next;
+ ff++;
for (i = 1; i < PERLIO_TABLE_SIZE; i++) {
if (ff->next && PerlIO_flush(&(ff->next)) != 0)
code = -1;
@@ -1649,7 +1652,8 @@ PerlIOBase_flush_linebuf(pTHX)
PerlIOl *f;
while ((f = *table)) {
int i;
- table = (PerlIOl **) (f++);
+ table = &f->next;
+ f++;
for (i = 1; i < PERLIO_TABLE_SIZE; i++) {
if (f->next
&& (PerlIOBase(&(f->next))->
@@ -4834,7 +4838,7 @@ Perl_PerlIO_stdin(pTHX)
if (!PL_perlio) {
PerlIO_stdstreams(aTHX);
}
- return (PerlIO*)&PL_perlio[1];
+ return &PL_perlio[1].next;
}
PerlIO *
@@ -4843,7 +4847,7 @@ Perl_PerlIO_stdout(pTHX)
if (!PL_perlio) {
PerlIO_stdstreams(aTHX);
}
- return (PerlIO*)&PL_perlio[2];
+ return &PL_perlio[2].next;
}
PerlIO *
@@ -4852,7 +4856,7 @@ Perl_PerlIO_stderr(pTHX)
if (!PL_perlio) {
PerlIO_stdstreams(aTHX);
}
- return (PerlIO*)&PL_perlio[3];
+ return &PL_perlio[3].next;
}
/*--------------------------------------------------------------------------------------*/