mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

microperl tweaks.

Browse Source 
p4raw-id: //depot/perl@15470
This commit is contained in:
Jarkko Hietaniemi 2002-03-24 17:56:01 +00:00
parent c56d2bdc90
commit 077a72a916
3 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Makefile.micro
View File

@ -1,4 +1,3 @@
CC = cc
LD = $(CC)
DEFINES = -DPERL_CORE -DPERL_MICRO
OPTIMIZE =
@ -10,7 +9,7 @@ all: microperl
O = uav$(_O) udeb$(_O) udoio$(_O) udoop$(_O) udump$(_O) \
uglobals$(_O) ugv$(_O) uhv$(_O) \
umg$(_O) uperlmain$(_O) uop$(_O) \
umg$(_O) uperlmain$(_O) uop$(_O) ureentr$(_O) \
uperl$(_O) uperlio$(_O) uperly$(_O) upp$(_O) \
upp_ctl$(_O) upp_hot$(_O) upp_sys$(_O) upp_pack$(_O) upp_sort$(_O) \
uregcomp$(_O) uregexec$(_O) urun$(_O) \
@ -23,7 +22,7 @@ microperl: $(O)
H = av.h uconfig.h cop.h cv.h embed.h embedvar.h form.h gv.h handy.h \
hv.h intrpvar.h iperlsys.h mg.h op.h opcode.h opnames.h patchlevel.h \
perl.h perlsdio.h perlvars.h perly.h pp.h pp_proto.h proto.h \
perl.h perlsdio.h perlvars.h perly.h pp.h pp_proto.h proto.h reentr.h \
regexp.h scope.h sv.h thrdvar.h thread.h unixish.h utf8.h util.h \
warnings.h
@ -71,6 +70,9 @@ uperlmain$(_O): $(HE) miniperlmain.c
uop$(_O): $(HE) op.c keywords.h
$(CC) -c -o $@ $(CFLAGS) op.c
ureentr$(_O): $(HE) reentr.c
$(CC) -c -o $@ $(CFLAGS) reentr.c
uperl$(_O): $(HE) perl.c
$(CC) -c -o $@ $(CFLAGS) perl.c

2
locale.c
View File

@ -481,6 +481,7 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
(ibcmp(codeset, "UTF-8", 5) == 0 ||
ibcmp(codeset, "UTF8", 4) == 0))
wantutf8 = TRUE;
#if defined(USE_LOCALE)
#ifdef __GLIBC__
if (!wantutf8 && language &&
(ibcmp(language, "UTF-8", 5) == 0 ||
@ -501,6 +502,7 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
(ibcmp(lang, "UTF-8", 5) == 0 ||
ibcmp(lang, "UTF8", 4) == 0))
wantutf8 = TRUE;
#endif /* USE_LOCALE */
if (wantutf8)
PL_wantutf8 = TRUE;
}

8
util.c
View File

@ -339,19 +339,19 @@ S_xstat(pTHX_ int flag)
Malloc_t Perl_malloc (MEM_SIZE nbytes)
{
dTHXs;
return PerlMem_malloc(nbytes);
return (Malloc_t)PerlMem_malloc(nbytes);
}
Malloc_t Perl_calloc (MEM_SIZE elements, MEM_SIZE size)
{
dTHXs;
return PerlMem_calloc(elements, size);
return (Malloc_t)PerlMem_calloc(elements, size);
}
Malloc_t Perl_realloc (Malloc_t where, MEM_SIZE nbytes)
{
dTHXs;
return PerlMem_realloc(where, nbytes);
return (Malloc_t)PerlMem_realloc(where, nbytes);
}
Free_t Perl_mfree (Malloc_t where)
@ -941,7 +941,7 @@ Perl_savesharedpv(pTHX_ const char *sv)
{
register char *newaddr = Nullch;
if (sv) {
newaddr = PerlMemShared_malloc(strlen(sv)+1);
newaddr = (char*)PerlMemShared_malloc(strlen(sv)+1);
(void)strcpy(newaddr,sv);
}
return newaddr;