| 3913 | // |
| 3914 | |
| 3915 | static USHORT next_label() |
| 3916 | { |
| 3917 | UCHAR* byte = gpreGlob.fortran_labels; |
| 3918 | while (*byte == 255) |
| 3919 | ++byte; |
| 3920 | |
| 3921 | USHORT label = ((byte - gpreGlob.fortran_labels) << 3); |
| 3922 | |
| 3923 | for (UCHAR target_byte = *byte; target_byte & 1; target_byte >>= 1) |
| 3924 | label++; |
| 3925 | |
| 3926 | *byte |= 1 << (label & 7); |
| 3927 | |
| 3928 | return label; |
| 3929 | } |
| 3930 | |
| 3931 | |
| 3932 | //____________________________________________________________ |
no outgoing calls
no test coverage detected