--- deliantra/server/include/cfperl.h 2008/04/02 11:13:54 1.94 +++ deliantra/server/include/cfperl.h 2008/04/16 21:14:13 1.96 @@ -81,7 +81,7 @@ #define CHECK_ERROR \ if (SvTRUE (ERRSV)) \ - LOG (llevError, "runtime error in %s: %s\n", __func__, SvPVutf8_nolen (ERRSV)); + LOG (llevError, "runtime error in %s: %s", __func__, SvPVutf8_nolen (ERRSV)); #define CALL_BEGIN(args) dSP; ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, args) #define CALL_ARG_SV(sv) PUSHs (sv_2mortal (sv)) // separate because no refcount inc @@ -102,6 +102,22 @@ ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// +#if IVSIZE >= 8 + typedef IV val64; + typedef IV uval64; +# define newSVval64 newSViv +# define SvVAL64 SvIV +# define newSVuval64 newSVuv +# define SvUVAL64 SvUV +#else + typedef double val64; + typedef double uval64; +# define newSVval64 newSVnv +# define SvVAL64 SvNV +# define newSVuval64 newSVnv +# define SvUVAL64 SvNV +#endif + extern tstamp runtime; // virtual server time, excluding time jumps and lag extern tstamp NOW; // real time of current server tick