THRIFT-2163 Incorrect Delphi code generated for typedef'ed constants
Patch: Jens Geyer
diff --git a/compiler/cpp/src/generate/t_delphi_generator.cc b/compiler/cpp/src/generate/t_delphi_generator.cc
index fd396eb..03f08f5 100644
--- a/compiler/cpp/src/generate/t_delphi_generator.cc
+++ b/compiler/cpp/src/generate/t_delphi_generator.cc
@@ -869,9 +869,9 @@
indent_impl(out) << name << " := " << type_name(type) << "." << value->get_identifier_name() << ";" << endl;
} else {
string typname;
- typname = type_name( type, true, false, type->is_xception(), type->is_xception());
+ typname = type_name( truetype, true, false, type->is_xception(), type->is_xception());
indent_impl(out) << name << " := " << typname << ".Create;" << endl;
- print_const_def_value( vars, out, name, type, value);
+ print_const_def_value( vars, out, name, truetype, value);
}
}