firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-23 18:03:04 +01:00
Code Issues

Roll back part of my previous change

Browse Source
This commit is contained in:
skidder 2002-11-16 20:20:44 +00:00
parent 895fc29d24
commit a3a9e0a8c6
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/jrd/met.epp
View File

@ -37,7 +37,7 @@
*
*/
/*
$Id: met.epp,v 1.35 2002-11-16 18:48:01 skidder Exp $
$Id: met.epp,v 1.36 2002-11-16 20:20:44 skidder Exp $
*/
// This MUST be at the top of the file
#ifdef DARWIN
@ -2003,6 +2003,7 @@ PRC MET_lookup_procedure(TDBB tdbb, SCHAR * name, BOOLEAN noscan)
PRC procedure;
vec::iterator ptr, end;
VEC procedures;
SCHAR *p, *q;
SET_TDBB(tdbb);
dbb = tdbb->tdbb_database;
@ -2011,14 +2012,19 @@ PRC MET_lookup_procedure(TDBB tdbb, SCHAR * name, BOOLEAN noscan)
if ( (procedures = dbb->dbb_procedures) )
for (ptr = procedures->begin(), end = procedures->end();
ptr < end; ptr++) {
ptr < end; ptr++)
{
if ((procedure = PRC(*ptr))&& !(procedure->prc_flags & PRC_obsolete)
&& ((procedure->prc_flags & PRC_scanned) || noscan)
&& !(procedure->prc_flags & PRC_being_scanned)
&& !(procedure->prc_flags & PRC_being_altered)
&& !(strcmp((SCHAR*)procedure->prc_name->str_data, (SCHAR*)name)))
&& (p = (SCHAR*)procedure->prc_name->str_data))
{
return procedure;
for (q = name; *p == *q; p++, q++)
{
if (*p == 0)
return procedure;
}
}
}