| 454 | //========================================================================== |
| 455 | |
| 456 | FProduction *ProdAddStr (FStringProd *prod1, FStringProd *prod2) |
| 457 | { |
| 458 | size_t len = strlen (prod1->Value) + strlen (prod2->Value) + 1; |
| 459 | FStringProd *prod = NewStringProd (len); |
| 460 | strcpy (prod->Value, prod1->Value); |
| 461 | strcat (prod->Value, prod2->Value); |
| 462 | return prod; |
| 463 | } |
| 464 | |
| 465 | //========================================================================== |
| 466 | // |
nothing calls this directly
no test coverage detected