firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-02-02 09:20:39 +01:00
Code Issues

Make CLOOP generate correct VERSION constants for all kind of outputs.

Browse Source
This commit is contained in:
hvlad 2020-03-11 19:52:28 +02:00
parent d6a8768f08
commit fb548da73d
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extern/cloop/src/cloop/Generator.cpp vendored
View File

@ -689,7 +689,7 @@ void CHeaderGenerator::generate()
methods.insert(methods.begin(), p->methods.begin(), p->methods.end());
fprintf(out, "#define %s%s_VERSION %d\n\n",
prefix.c_str(), interface->name.c_str(), (int) methods.size());
prefix.c_str(), interface->name.c_str(), interface->version);
for (vector<Constant*>::iterator j = interface->constants.begin();
j != interface->constants.end();
@ -1022,12 +1022,7 @@ void PascalGenerator::generate()
if (!interface->super)
fprintf(out, "\t\tvTable: %sVTable;\n\n", escapeName(interface->name).c_str());
unsigned version = 0;
for (Interface* p = interface; p; p = p->super)
version += p->methods.size();
fprintf(out, "\t\tconst VERSION = %d;\n", version);
fprintf(out, "\t\tconst VERSION = %d;\n", interface->version);
for (vector<Constant*>::iterator j = interface->constants.begin();
j != interface->constants.end();