From 72a0c60cca5af9df760010d77caeda46fafc0dce Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Sat, 18 Feb 2006 16:15:53 +0000 Subject: [PATCH] *** empty log message *** --- ase/awk/build.com | 4 ++-- ase/awk/parse.c | 6 +++++- ase/awk/sa.h | 4 +++- 3 files changed, 10 insertions(+), 4 deletions(-) diff --git a/ase/awk/build.com b/ase/awk/build.com index a7d10337..fe2899ea 100644 --- a/ase/awk/build.com +++ b/ase/awk/build.com @@ -1,5 +1,5 @@ -$ xxx: - +$ +$! build script for OpenVMS $ $ names := awk,hash,tab,tree,parse,sa $ gosub compile diff --git a/ase/awk/parse.c b/ase/awk/parse.c index 588df4e5..debc0730 100644 --- a/ase/awk/parse.c +++ b/ase/awk/parse.c @@ -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 @@ -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); diff --git a/ase/awk/sa.h b/ase/awk/sa.h index e4cb2c35..dbec49df 100644 --- a/ase/awk/sa.h +++ b/ase/awk/sa.h @@ -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