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