~ubuntu-branches/ubuntu/trusty/luajit/trusty

« back to all changes in this revision

Viewing changes to src/lib_string.c

Committer: Bazaar Package Importer
Author(s): Enrico Tassi
Date: 2011-05-09 23:14:21 UTC
mfrom: (1.1.5 upstream)
Revision ID: james.westby@ubuntu.com-20110509231421-zdcnqbqk5h6iryxr

Tags: 2.0.0~beta7+dfsg-1

New upstream release with arm support

files added:
dynasm/dasm_arm.h

dynasm/dasm_arm.lua

src/buildvm_arm.dasc

src/buildvm_arm.h

files modified:
Makefile

README

debian/changelog

debian/control

dynasm/dasm_ppc.lua

dynasm/dasm_proto.h

dynasm/dasm_x86.lua

dynasm/dynasm.lua

etc/luajit.pc

src/Makefile

src/Makefile.dep

src/buildvm.c

src/buildvm.h

src/buildvm_asm.c

src/buildvm_fold.c

src/buildvm_ppc.dasc

src/buildvm_ppcspe.h

src/buildvm_x64.h

src/buildvm_x64win.h

src/buildvm_x86.dasc

src/buildvm_x86.h

src/lib_base.c

src/lib_bit.c

src/lib_ffi.c

src/lib_io.c

src/lib_jit.c

src/lib_math.c

src/lib_package.c

src/lib_string.c

src/lib_table.c

src/lj_api.c

src/lj_arch.h

src/lj_asm.c

src/lj_bc.h

src/lj_carith.c

src/lj_ccall.c

src/lj_ccall.h

src/lj_cconv.c

src/lj_cconv.h

src/lj_cdata.c

src/lj_cdata.h

src/lj_clib.c

src/lj_cparse.c

src/lj_crecord.c

src/lj_crecord.h

src/lj_ctype.c

src/lj_ctype.h

src/lj_def.h

src/lj_dispatch.c

src/lj_err.c

src/lj_ffrecord.c

src/lj_frame.h

src/lj_func.c

src/lj_gc.c

src/lj_gc.h

src/lj_ir.c

src/lj_ir.h

src/lj_iropt.h

src/lj_jit.h

src/lj_lex.c

src/lj_lib.c

src/lj_lib.h

src/lj_meta.c

src/lj_meta.h

src/lj_obj.c

src/lj_obj.h

src/lj_opt_fold.c

src/lj_opt_loop.c

src/lj_opt_mem.c

src/lj_opt_narrow.c

src/lj_opt_split.c

src/lj_parse.c

src/lj_record.c

src/lj_snap.c

src/lj_snap.h

src/lj_state.c

src/lj_str.c

src/lj_str.h

src/lj_tab.c

src/lj_target_x86.h

src/lj_trace.c

src/lj_vm.h

src/luaconf.h

src/luajit.h

Show diffs side-by-side

added added

removed removed

src/lib_string.c

LJLIB_ASM(string_char)

{

int i, nargs = cast_int(L->top - L->base);

int i, nargs = (int)(L->top - L->base);

char *buf = lj_str_needbuf(L, &G(L)->tmpbuf, (size_t)nargs);

for (i = 1; i <= nargs; i++) {

int32_t k = lj_lib_checkint(L, i);

702

form[l + sizeof(LUA_INTFRMLEN) - 1] = '\0';

703

}

704

705

static unsigned LUA_INTFRM_T num2intfrm(lua_State *L, int arg)

706

{

707

if (sizeof(LUA_INTFRM_T) == 4) {

708

return (LUA_INTFRM_T)lj_lib_checkbit(L, arg);

709

} else {

710

cTValue *o;

711

lj_lib_checknumber(L, arg);

712

o = L->base+arg-1;

713

if (tvisint(o))

714

return (LUA_INTFRM_T)intV(o);

715

else

716

return (LUA_INTFRM_T)numV(o);

717

}

718

}

719

720

static unsigned LUA_INTFRM_T num2uintfrm(lua_State *L, int arg)

721

{

722

if (sizeof(LUA_INTFRM_T) == 4) {

723

return (unsigned LUA_INTFRM_T)lj_lib_checkbit(L, arg);

724

} else {

725

cTValue *o;

726

lj_lib_checknumber(L, arg);

727

o = L->base+arg-1;

728

if (tvisint(o))

729

return (unsigned LUA_INTFRM_T)intV(o);

730

else if ((int32_t)o->u32.hi < 0)

731

return (unsigned LUA_INTFRM_T)(LUA_INTFRM_T)numV(o);

732

else

733

return (unsigned LUA_INTFRM_T)numV(o);

734

}

735

}

736

705

737

LJLIB_CF(string_format)

706

738

{

707

739

int arg = 1;

726

758

break;

727

759

case 'd': case 'i':

728

760

addintlen(form);

729

sprintf(buff, form, (LUA_INTFRM_T)lj_lib_checknum(L, arg));

761

sprintf(buff, form, num2intfrm(L, arg));

730

762

break;

731

763

case 'o': case 'u': case 'x': case 'X':

732

764

addintlen(form);

733

sprintf(buff, form, (unsigned LUA_INTFRM_T)lj_lib_checknum(L, arg));

765

sprintf(buff, form, num2uintfrm(L, arg));

734

766

break;

735

767

case 'e': case 'E': case 'f': case 'g': case 'G': {

736

768

TValue tv;

737

769

tv.n = lj_lib_checknum(L, arg);

738

770

if (LJ_UNLIKELY((tv.u32.hi << 1) >= 0xffe00000)) {

739

771

/* Canonicalize output of non-finite values. */

740

char *p, nbuf[LUAI_MAXNUMBER2STR];

772

char *p, nbuf[LJ_STR_NUMBUF];

741

773

size_t len = lj_str_bufnum(nbuf, &tv);

742

774

if (strfrmt[-1] == 'E' || strfrmt[-1] == 'G') {

743

775

nbuf[len-3] = nbuf[len-3] - 0x20;

801

833

g = G(L);

802

834

setgcref(basemt_it(g, LJ_TSTR), obj2gco(mt));

803

835

settabV(L, lj_tab_setstr(L, mt, mmname_str(g, MM_index)), tabV(L->top-1));

804

mt->nomm = cast_byte(~(1u<<MM_index));

836

mt->nomm = (uint8_t)(~(1u<<MM_index));

805

837

return 1;

806

838

}

807

839

Older »