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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-11-19 15:08:13 +00:00
parent dfac894468
commit bf57df42f8
2 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.275 2006-11-19 14:55:20 bacon Exp $ * $Id: run.c,v 1.276 2006-11-19 15:08:13 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -24,7 +24,7 @@ enum exit_level_t
EXIT_FUNCTION, EXIT_FUNCTION,
EXIT_NEXT, EXIT_NEXT,
EXIT_GLOBAL, EXIT_GLOBAL,
EXIT_ABORT, EXIT_ABORT
}; };
#define PANIC(run,code) \ #define PANIC(run,code) \
@ -5388,8 +5388,8 @@ run->awk->syscas.dprintf (ASE_T("len = %d str=[%s]\n"),
static int __shorten_record (ase_awk_run_t* run, ase_size_t nflds) static int __shorten_record (ase_awk_run_t* run, ase_size_t nflds)
{ {
ase_awk_val_t* v = ASE_NULL; ase_awk_val_t* v;
ase_char_t* ofs_free = ASE_NULL, * ofs = ASE_NULL; ase_char_t* ofs_free = ASE_NULL, * ofs;
ase_size_t ofs_len, i; ase_size_t ofs_len, i;
ase_awk_str_t tmp; ase_awk_str_t tmp;

21
ase/awk/val.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: val.c,v 1.90 2006-11-18 15:36:57 bacon Exp $ * $Id: val.c,v 1.91 2006-11-19 15:08:13 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -726,15 +726,20 @@ void ase_awk_dprintval (ase_awk_run_t* run, ase_awk_val_t* val)
break; break;
case ASE_AWK_VAL_INT: case ASE_AWK_VAL_INT:
#if defined(__BORLANDC__) || defined(_MSC_VER) #if ASE_SIZEOF_LONG_LONG > 0
__DPRINTF (ASE_T("%I64d"),
(__int64)((ase_awk_nde_int_t*)val)->val);
#elif defined(vax) || defined(__vax) || defined(_SCO_DS)
__DPRINTF (ASE_T("%ld"),
(long)((ase_awk_val_int_t*)val)->val);
#else
__DPRINTF (ASE_T("%lld"), __DPRINTF (ASE_T("%lld"),
(long long)((ase_awk_val_int_t*)val)->val); (long long)((ase_awk_val_int_t*)val)->val);
#elif ASE_SIZEOF___INT64 > 0
__DPRINTF (ASE_T("%I64d"),
(__int64)((ase_awk_nde_int_t*)val)->val);
#elif ASE_SIZEOF_LONG > 0
__DPRINTF (ASE_T("%ld"),
(long)((ase_awk_val_int_t*)val)->val);
#elif ASE_SIZEOF_INT > 0
__DPRINTF (ASE_T("%d"),
(int)((ase_awk_val_int_t*)val)->val);
#else
#error unsupported integer size
#endif #endif
break; break;