8
0
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-23 21:23:03 +01:00

Fix build after Claudio cleanup

This commit is contained in:
skidder 2004-02-21 09:24:14 +00:00
parent 3abc84de54
commit 14bfcc7019
3 changed files with 13 additions and 12 deletions

View File

@ -37,7 +37,7 @@
* 2004.01.16 Vlad Horsun: added support for default parameters
*/
/*
$Id: met.epp,v 1.91 2004-02-20 06:43:00 robocop Exp $
$Id: met.epp,v 1.92 2004-02-21 09:23:03 skidder Exp $
*/
// This MUST be at the top of the file
#ifdef DARWIN
@ -2779,7 +2779,7 @@ jrd_prc* MET_procedure(TDBB tdbb, int id, bool noscan, USHORT flags)
// Now, check the result of this function here! Null pointer means failure.
// Or should parse_procedure_blr and its callee throw exceptions instead?
if (!parse_procedure_blr(tdbb, procedure, &P.RDB$PROCEDURE_BLR, csb_))
throw std::exception("Error while parsing procedure's BLR.");
ERR_post(isc_random, isc_arg_string, "Error while parsing procedure's BLR.", 0);
procedure->prc_request->req_procedure = procedure;
for (i = 0; i < csb_->csb_rpt.getCount(); i++)
{

View File

@ -309,16 +309,16 @@ file* EXEC_open_output(qli_nod* node)
#else
TEXT* argv[20];
TEXT** arg = argv;
p = filename;
while (*p) {
*arg++ = p;
while (*p && *p != ' ')
p++;
if (!*p)
TEXT* pp = filename;
while (*pp) {
*arg++ = pp;
while (*pp && *pp != ' ')
pp++;
if (!*pp)
break;
*p++ = 0;
while (*p == ' ')
p++;
*pp++ = 0;
while (*pp == ' ')
pp++;
}
*arg = NULL;

View File

@ -2939,7 +2939,8 @@ static void resolve_really( qli_fld* variable, const syn* field_node)
if (field_node->syn_count == 1)
resolved = MET_declare(0, variable, fld_name);
else if (field_node->syn_count == 2) {
for (qli_symbol* symbol = rel_name->nam_symbol; symbol;
qli_symbol *symbol;
for (symbol = rel_name->nam_symbol; symbol;
symbol = symbol->sym_homonym)
{
if (symbol->sym_type == SYM_database) {