From: Gurusamy Sarathy Date: Wed, 28 Oct 1998 21:14:18 +0000 (+0000) Subject: minor cleanup X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df0003d4dd97bb27e464c2adb8c54893f719ec3c;p=p5sagit%2Fp5-mst-13.2.git minor cleanup p4raw-id: //depot/perl@2112 --- diff --git a/malloc.c b/malloc.c index 8bfa0db..1b75b67 100644 --- a/malloc.c +++ b/malloc.c @@ -572,10 +572,10 @@ static char bucket_of[] = static char *emergency_buffer; static MEM_SIZE emergency_buffer_size; +static Malloc_t emergency_sbrk(MEM_SIZE size); static Malloc_t -emergency_sbrk(size) - MEM_SIZE size; +emergency_sbrk(MEM_SIZE size) { MEM_SIZE rsize = (((size - 1)>>LOG_OF_MIN_ARENA) + 1)<mg_obj; - ReREFCNT_inc(re); + (void)ReREFCNT_inc(re); } else { STRLEN len; diff --git a/t/pragma/warn/doio b/t/pragma/warn/doio index e59b4a0..da59101 100644 --- a/t/pragma/warn/doio +++ b/t/pragma/warn/doio @@ -86,11 +86,11 @@ use warning 'io' ; exec "lskdjfalksdjfdjfkls","" ; EXPECT OPTION regex -Can't exec "lskdjfalksdjfdjfkls": (\w+ )?No such file or directory\.? at - line 3. +Can't exec "lskdjfalksdjfdjfkls": (\w+ )?No such file or directory.* ######## # doio.c use warning 'io' ; exec "lskdjfalksdjfdjfkls", "abc" ; EXPECT OPTION regex -Can't exec "lskdjfalksdjfdjfkls": (\w+ )?No such file or directory\.? at - line 3. +Can't exec "lskdjfalksdjfdjfkls": (\w+ )?No such file or directory.* diff --git a/win32/makefile.mk b/win32/makefile.mk index d12add7..80f01fa 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -220,7 +220,7 @@ OPTIMIZE = -O2 $(RUNTIME) LINK_DBG = .ENDIF -CFLAGS = -w -g0 -d -tWM -tWD $(INCLUDES) $(DEFINES) $(LOCDEFS) \ +CFLAGS = -w -g0 -a4 -tWM -tWD $(INCLUDES) $(DEFINES) $(LOCDEFS) \ $(PCHFLAGS) $(OPTIMIZE) LINK_FLAGS = $(LINK_DBG) -L$(CCLIBDIR) $(EXTRALIBDIRS:^"-L") OBJOUT_FLAG = -o