hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

redefined IDXBUFSIZE

Browse Source
This commit is contained in:
hyung-hwan
2014-11-06 17:41:20 +00:00
parent 17b55e20ed
commit a30c831081
2 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
qse/include/qse/awk/awk.h
View File

@ -38,15 +38,19 @@
#if defined(QSE_USE_AWK_INTMAX) #if defined(QSE_USE_AWK_INTMAX)
typedef qse_intmax_t qse_awk_int_t; typedef qse_intmax_t qse_awk_int_t;
typedef qse_uintmax_t qse_awk_uint_t; typedef qse_uintmax_t qse_awk_uint_t;
#define QSE_AWK_SIZEOF_INT_T QSE_SIZEZOF_INTMAX_T
#else #else
typedef qse_long_t qse_awk_int_t; typedef qse_long_t qse_awk_int_t;
typedef qse_ulong_t qse_awk_uint_t; typedef qse_ulong_t qse_awk_uint_t;
#define QSE_AWK_SIZEOF_INT_T QSE_SIZEZOF_LONG_T
#endif #endif
#if defined(QSE_USE_AWK_FLTMAX) #if defined(QSE_USE_AWK_FLTMAX)
typedef qse_fltmax_t qse_awk_flt_t; typedef qse_fltmax_t qse_awk_flt_t;
#define QSE_AWK_SIZEOF_FLT_T QSE_SIZEOF_FLTMAX_T
#else #else
typedef qse_flt_t qse_awk_flt_t; typedef qse_flt_t qse_awk_flt_t;
#define QSE_AWK_SIZEOF_FLT_T QSE_SIZEOF_FLT_T
#endif #endif
/** \struct qse_awk_t /** \struct qse_awk_t

15
qse/lib/awk/run.c
View File

@ -31,7 +31,20 @@
#define DEF_BUF_CAPA 256 #define DEF_BUF_CAPA 256
#define RTX_STACK_INCREMENT 512 #define RTX_STACK_INCREMENT 512
/* Don't forget to grow IDXBUFSIZE if qse_awk_int_t is very large */
#if (QSE_AWK_SIZEOF_INT_T <= 16) /* 128 bits */
# define IDXBUFSIZE 64 # define IDXBUFSIZE 64
#elif (QSE_AWK_SIZEOF_INT_T <= 32) /* 256 bits */
# define IDXBUFSIZE 128
#elif (QSE_AWK_SIZEOF_INT_T <= 64) /* 512 bits */
# define IDXBUFSIZE 192
#elif (QSE_AWK_SIZEOF_INT_T <= 128) /* 1024 bits */
# define IDXBUFSIZE 384
#elif (QSE_AWK_SIZEOF_INT_T <= 256) /* 2048 bits */
# define IDXBUFSIZE 640
#else
# error unsupported. qse_awk_int_t too big
#endif
#define MMGR(rtx) ((rtx)->awk->mmgr) #define MMGR(rtx) ((rtx)->awk->mmgr)
@ -6454,7 +6467,7 @@ read_console_again:
skip_read: skip_read:
tmp = qse_awk_rtx_makeintval (rtx, n); tmp = qse_awk_rtx_makeintval (rtx, n);
if (tmp == QSE_NULL) ADJERR_LOC (rtx, &nde->loc); if (!tmp) ADJERR_LOC (rtx, &nde->loc);
return tmp; return tmp;
} }