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      $)