a.c

 
 ...
 else if (LUA_TNUMBER == type) {                                                                 
        union horrible_hack hack;                                                                   
        hack.dbl = lua_tonumber(L, 1);                                                              
        buffer = hack.ptr;                                                                          
    }