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-02-18 16:15:53 +00:00
parent 46f163c633
commit 72a0c60cca
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/awk/build.com
View File

@ -1,5 +1,5 @@
$ xxx:
$
$! build script for OpenVMS
$
$ names := awk,hash,tab,tree,parse,sa
$ gosub compile

6
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.52 2006-02-08 16:14:31 bacon Exp $
* $Id: parse.c,v 1.53 2006-02-18 16:14:14 bacon Exp $
*/
#include <xp/awk/awk.h>
@ -1190,7 +1190,11 @@ static xp_awk_node_t* __parse_multiplicative (xp_awk_t* awk)
else if (opcode == BINOP_DIV) l /= r;
else if (opcode == BINOP_MOD) l %= r;
#if defined(vax) || defined(__vax)
xp_sprintf (buf, xp_countof(buf), XP_TEXT("%ld"), (long)l);
#else
xp_sprintf (buf, xp_countof(buf), XP_TEXT("%lld"), (long long)l);
#endif
tmp = (xp_awk_node_term_t*) xp_malloc (xp_sizeof(xp_awk_node_term_t));
if (tmp == XP_NULL) PANIC (awk, XP_AWK_ENOMEM);

4
ase/awk/sa.h
View File

@ -1,5 +1,5 @@
/*
* $Id: sa.h,v 1.9 2006-01-30 13:25:26 bacon Exp $
* $Id: sa.h,v 1.10 2006-02-18 16:14:14 bacon Exp $
*/
#ifndef _XP_AWK_SA_H_
@ -67,6 +67,8 @@ typedef ssize_t xp_ssize_t;
#if defined(_WIN32)
typedef __int64 xp_long_t;
#elif defined(vax) || defined(__vax)
typedef long xp_long_t;
#else
typedef long long xp_long_t;
#endif