@@ -172,10 +172,6 @@ class t_delphi_generator : public t_oop_generator {
172
172
std::string cls_prefix,
173
173
t_struct* tstruct,
174
174
bool is_exception);
175
- void generate_delphi_create_exception_impl (ostream& out,
176
- string cls_prefix,
177
- t_struct* tstruct,
178
- bool is_exception);
179
175
180
176
bool is_deprecated (std::map<std::string, std::vector<std::string>>& annotations);
181
177
std::string render_deprecation_attribute (std::map<std::string, std::vector<std::string>>& annotations, std::string prefix, std::string postfix);
@@ -1381,6 +1377,7 @@ void t_delphi_generator::generate_delphi_struct_impl(ostream& out,
1381
1377
t_struct* tstruct,
1382
1378
bool is_result,
1383
1379
bool is_const_class) {
1380
+ (void )is_result;
1384
1381
1385
1382
string cls_nm = type_name (tstruct, true , false );
1386
1383
@@ -1580,8 +1577,6 @@ void t_delphi_generator::generate_delphi_exception_impl(ostream& out,
1580
1577
generate_delphi_struct_reader_impl (out, cls_prefix, tstruct, true );
1581
1578
generate_delphi_struct_writer_impl (out, cls_prefix, tstruct, true );
1582
1579
generate_delphi_struct_tostring_impl (out, cls_prefix, tstruct, true );
1583
-
1584
- generate_delphi_create_exception_impl (out, cls_prefix, tstruct, true );
1585
1580
}
1586
1581
1587
1582
void t_delphi_generator::print_delphi_struct_type_factory_func (ostream& out, t_struct* tstruct) {
@@ -2990,7 +2985,6 @@ void t_delphi_generator::generate_delphi_property(ostream& out,
2990
2985
(void )isPublic;
2991
2986
2992
2987
t_type* ftype = tfield->get_type ();
2993
- bool is_xception = ftype->is_xception ();
2994
2988
generate_delphi_doc (out, tfield);
2995
2989
indent (out) << " property " << prop_name (tfield, struct_is_xception) << " : "
2996
2990
<< type_name (ftype, false , true /* , false, true*/ )
@@ -3188,7 +3182,6 @@ string t_delphi_generator::declare_field(t_field* tfield,
3188
3182
std::string prefix,
3189
3183
bool is_xception_class) {
3190
3184
t_type* ftype = tfield->get_type ();
3191
- bool is_xception = ftype->is_xception ();
3192
3185
3193
3186
string result = prop_name (tfield, is_xception_class, prefix) + " : "
3194
3187
+ type_name (ftype, false , true ) + " ;" ;
@@ -3395,7 +3388,6 @@ void t_delphi_generator::generate_delphi_property_writer_definition(ostream& out
3395
3388
t_field* tfield,
3396
3389
bool is_xception_class) {
3397
3390
t_type* ftype = tfield->get_type ();
3398
- bool is_xception = ftype->is_xception ();
3399
3391
3400
3392
indent (out) << " procedure " << prop_name (tfield, is_xception_class, " Set" )
3401
3393
<< " ( const Value: " << type_name (ftype, false , true /* , false, true*/ ) << " );"
@@ -3407,7 +3399,6 @@ void t_delphi_generator::generate_delphi_property_reader_definition(ostream& out
3407
3399
t_field* tfield,
3408
3400
bool is_xception_class) {
3409
3401
t_type* ftype = tfield->get_type ();
3410
- bool is_xception = ftype->is_xception ();
3411
3402
3412
3403
indent (out) << " function " << prop_name (tfield, is_xception_class, " Get" ) << " : "
3413
3404
<< type_name (ftype, false , true /* , false*/ ) << " ;"
@@ -3418,6 +3409,7 @@ void t_delphi_generator::generate_delphi_property_reader_definition(ostream& out
3418
3409
void t_delphi_generator::generate_delphi_isset_reader_writer_definition (ostream& out,
3419
3410
t_field* tfield,
3420
3411
bool is_xception) {
3412
+ (void )is_xception;
3421
3413
indent (out) << " function " << prop_name (tfield, false ," Get__isset_" ) << " : System.Boolean;" << ' \n ' ;
3422
3414
indent (out) << " procedure " << prop_name (tfield, false , " Set__isset_" ) << " ( const value : System.Boolean);" << ' \n ' ;
3423
3415
}
@@ -3436,7 +3428,6 @@ void t_delphi_generator::generate_delphi_clear_union_value(ostream& out,
3436
3428
(void )is_union;
3437
3429
3438
3430
t_type* ftype = tfield->get_type ();
3439
- bool is_xception = ftype->is_xception ();
3440
3431
3441
3432
indent_impl (out) << " if " << prop_name (tfield, is_xception_class," F__isset_" ) << " then begin" << ' \n ' ;
3442
3433
indent_up_impl ();
@@ -3459,7 +3450,6 @@ void t_delphi_generator::generate_delphi_property_writer_impl(ostream& out,
3459
3450
(void )type;
3460
3451
3461
3452
t_type* ftype = tfield->get_type ();
3462
- bool is_xception = ftype->is_xception ();
3463
3453
3464
3454
indent_impl (out) << " procedure " << cls_prefix << name << " ."
3465
3455
<< prop_name (tfield, is_xception_class," Set" )
@@ -3493,7 +3483,6 @@ void t_delphi_generator::generate_delphi_property_reader_impl(ostream& out,
3493
3483
(void )type;
3494
3484
3495
3485
t_type* ftype = tfield->get_type ();
3496
- bool is_xception = ftype->is_xception ();
3497
3486
3498
3487
indent_impl (out) << " function " << cls_prefix << name << " ."
3499
3488
<< prop_name (tfield, is_xception_class," Get" ) << " : "
@@ -3545,15 +3534,6 @@ void t_delphi_generator::generate_delphi_isset_reader_writer_impl(ostream& out,
3545
3534
indent_impl (out) << " end;" << ' \n ' << ' \n ' ;
3546
3535
}
3547
3536
3548
- void t_delphi_generator::generate_delphi_create_exception_impl (ostream& out,
3549
- string cls_prefix,
3550
- t_struct* tstruct,
3551
- bool is_exception) {
3552
- (void )cls_prefix;
3553
-
3554
- string exception_cls_nm = type_name (tstruct, true , true );
3555
- string cls_nm = type_name (tstruct, true , false /* , is_exception, is_exception*/ );
3556
- }
3557
3537
3558
3538
void t_delphi_generator::generate_delphi_struct_reader_impl (ostream& out,
3559
3539
string cls_prefix,
0 commit comments