touched up awk for OS2

This commit is contained in:
2011-04-18 09:28:22 +00:00
parent 212a71460f
commit ea724c784c
16 changed files with 1605 additions and 330 deletions

View File

@ -1,5 +1,5 @@
/*
* $Id: run.c 365 2010-10-29 13:54:36Z hyunghwan.chung $
* $Id: run.c 436 2011-04-17 15:28:22Z hyunghwan.chung $
*
Copyright 2006-2009 Chung, Hyung-Hwan.
This file is part of QSE.
@ -731,14 +731,15 @@ qse_awk_rtx_t* qse_awk_rtx_open (
}
/* initialize the run object */
if (init_rtx (rtx, awk, rio) == -1)
if (init_rtx (rtx, awk, rio) <= -1)
{
QSE_AWK_FREE (awk, rtx);
return QSE_NULL;
}
if (init_globals (rtx, arg) == -1)
if (init_globals (rtx, arg) <= -1)
{
awk->errinf = rtx->errinf; /* transfer error info */
fini_rtx (rtx, 0);
QSE_AWK_FREE (awk, rtx);
return QSE_NULL;