1 // ****************************************************** 2 // * * 3 // * * 4 // * Copyright (c) 1972 by Massachusetts Institute of * 5 // * Technology and Honeywell Information Systems, Inc. * 6 // * * 7 // * * 8 // ****************************************************** 9 10 // This short segment determines the compiler version. 11 // Version 3.5 - Multics save sets stack_frame.next_sp, March 1982. 12 // Version 3.4 was reinstalled in August 1974 for comment changes in each module, R F Mabee. 13 // Also fixed minor errors (mistypings) in CG. 14 // Version 3.4 - installed on 6180 system in August 1973 by R F Mabee. 15 // Version 3.3 - first version to run on 6180 system, May 1973. Never installed. 16 // Version 3.2 - expression evaluator improved, 6180 string format changes. April 1973. Never installed. 17 // Version 3.1 - new standard for object segment format, February 1973. Never installed. 18 // Version 3.0 - conversion for Multics on 6180 system, January 1973. Never installed. 19 // Version 2.8 - ring number change to driver, February 1972, R F Mabee. 20 // Version 2.7 - first installed version, September 1971, R F Mabee. 21 22 // Copyright (c) 1974 by Massachusetts Institute of Technology and Honeywell Information Systems, Inc. 23 24 // General permission is granted to copy and use this program, but not to sell it, provided that the above 25 // copyright statement is given. Contact Information Processing Services, MIT, for further information. 26 // Please contact R F Mabee at MIT for information on this program and versions for other machines. 27 28 get "bcpl_compiler_head" 29 30 let GetVersion () be 31 $( CompilerVersionString := "BCPL version 3.5, March 1982" 32 CompilerVersionNumber := 3 33 $)