| … | |
… | |
| 1538 | return tmp; |
1538 | return tmp; |
| 1539 | } |
1539 | } |
| 1540 | |
1540 | |
| 1541 | /* make_throw_ob() We construct the 'carrier' object in |
1541 | /* make_throw_ob() We construct the 'carrier' object in |
| 1542 | * which we will insert the object that is being thrown. |
1542 | * which we will insert the object that is being thrown. |
| 1543 | * This combination becomes the 'thrown object'. -b.t. |
1543 | * This combination becomes the 'thrown object'. -b.t. |
| 1544 | */ |
1544 | */ |
| 1545 | static object * |
1545 | static object * |
| 1546 | make_throw_ob (object *orig) |
1546 | make_throw_ob (object *orig) |
| 1547 | { |
1547 | { |
| 1548 | if (!orig) |
1548 | if (!orig) |
| 1549 | return NULL; |
1549 | return 0; |
| 1550 | |
1550 | |
| 1551 | if (QUERY_FLAG (orig, FLAG_APPLIED)) |
1551 | if (QUERY_FLAG (orig, FLAG_APPLIED)) |
| 1552 | { |
1552 | { |
| 1553 | LOG (llevError, "BUG: make_throw_ob(): ob is applied\n"); |
1553 | LOG (llevError, "BUG: make_throw_ob(): ob is applied\n"); |
| 1554 | /* insufficient workaround, but better than nothing */ |
1554 | /* insufficient workaround, but better than nothing */ |
