cref is no longer working properly

[Eric Swenson]

Some change in MR12.9 has broken cref. Rather than emitting entries in this form:

--------------------                   ***** bound_chaos_file_ in NETWORK ***** 
cftp_request_table_
 cftp_request_table_
                    chaos_ftp.pl1

It is now emitting entries in this form, which breaks pcref:

--------------------                   ***** bound_chaos_file_ in NETWORK ***** 
cftp_request_table_
 cftp_request_table_
                    chaos_ftp.s::chaos_ftp.pl1

The filename (chaos_ftp.s::chaos_ftp.pl1) is malformed.

[Gary Dixon]

A repaired version of bound_crossref_ is available on GHM in the directory:

udd>m>gd>w>cref

[Gary Dixon]

The problem is even worse for crossref entries with source modules that have long names. The referencing programs are emitted with archive-like entry names that are much longer than 32 characters of a normal entry name. The actual name of the source program gets truncated at a point that it can no longer be recognized. Even the language suffix is lost. For example:

--------------------                   ***** bound_chaos_file_ in NETWORK *****     
chaos_ftp_data_convert_
 bitcount_to_filepos
                    mgp_chfile_server_.s::mgp_chfile
 chaos_ftp_data_convert_
                    cftp_.s::cftp_.pl1  mgp_chfile_server_.s::mgp_chfile
 filepos_to_bitcount
                    mgp_chfile_server_.s::mgp_chfile
 print              cftp_.s::cftp_.pl1