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

Fix annoying warnings that appeared when Blas dropped a file with C++ typed constants for the isc_dyn_ values and others.

Browse Source
This commit is contained in:
robocop 2004-07-22 07:17:17 +00:00
parent 1cd5f7b4a8
commit f7ea2ac074
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/dudley/trn.cpp
View File

@ -78,7 +78,7 @@ static void raw_ada(STR);
static void raw_cobol(STR);
static void raw_ftn(STR);
static FILE *output_file;
static FILE* output_file;
static inline void check_dyn(str* dyn, const int l)
{
@ -89,6 +89,19 @@ static inline void check_dyn(str* dyn, const int l)
}
}
// CVC: These two overloaded functions made to solve ugly warnings after Blas
// dropped gdsold.cpp and the typed isc_dyn_ constants disappeared.
static inline void put_symbol(STR dyn, int attribute, SYM symbol)
{
put_symbol(dyn, static_cast<TEXT>(attribute), symbol);
}
static inline void put_number( STR dyn, int attribute, SSHORT number)
{
put_number(dyn, static_cast<TEXT>(attribute), number);
}
static const char* const FOPEN_WRITE_TYPE = "w";
@ -104,11 +117,9 @@ void TRN_translate(void)
* Translate from internal data structures into dynamic DDL.
*
**************************************/
ACT action;
USHORT length;
str d;
/* Start by reversing the set of actions */
str d;
str* dyn = &d;
dyn->str_current = dyn->str_start =
reinterpret_cast<UCHAR*>(gds__alloc(8192));
@ -133,7 +144,7 @@ void TRN_translate(void)
dyn->add_byte(isc_dyn_version_1);
dyn->add_byte(isc_dyn_begin);
for (action = dudleyGlob.DDL_actions; action; action = action->act_next)
for (ACT action = dudleyGlob.DDL_actions; action; action = action->act_next)
if (!(action->act_flags & ACT_ignore))
switch (action->act_type) {
case act_c_database:
@ -261,6 +272,8 @@ void TRN_translate(void)
dyn->add_byte(isc_dyn_end);
dyn->add_byte(isc_dyn_eoc);
USHORT length;
switch (dudleyGlob.language) {
case lan_undef:
case lan_c: