From 67696c502b064f1913c631a0eaa9885c8f7e5be8 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Fri, 8 Jun 2007 09:07:46 +0000 Subject: [PATCH] Change 31347 should also have removed win32_free_argvw() because it now isn't used anywhere. p4raw-id: //depot/perl@31356 --- win32/win32.c | 10 ---------- win32/wince.c | 10 ---------- 2 files changed, 20 deletions(-) diff --git a/win32/win32.c b/win32/win32.c index a1c0d46..e12ac67 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4968,13 +4968,3 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst) } # endif /* USE_ITHREADS */ #endif /* HAVE_INTERP_INTERN */ - -static void -win32_free_argvw(pTHX_ void *ptr) -{ - char** argv = (char**)ptr; - while(*argv) { - Safefree(*argv); - *argv++ = Nullch; - } -} diff --git a/win32/wince.c b/win32/wince.c index 7acea0b..2926803 100644 --- a/win32/wince.c +++ b/win32/wince.c @@ -2834,16 +2834,6 @@ Perl_sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst) # endif /* USE_ITHREADS */ #endif /* HAVE_INTERP_INTERN */ -static void -win32_free_argvw(pTHX_ void *ptr) -{ - char** argv = (char**)ptr; - while(*argv) { - Safefree(*argv); - *argv++ = Nullch; - } -} - // added to remove undefied symbol error in CodeWarrior compilation int Perl_Ireentrant_buffer_ptr(aTHX) -- 2.7.4