[M3commit] CVS Update: cm3

[Antony Hosking]

CVSROOT:	/usr/cvs
Changes by:	hosking at birch.	10/04/17 21:11:47

Modified files:
	cm3/m3-comm/stubgen/src/: CodeForType.m3 

Log message:
	Fix from Mika Nystrom for RECORD fields.
	Should fix problem Randy Coleburn has with the following:
	
	INTERFACE CV_Server;
	
	IMPORT
	AtomList,
	Date,
	NetObj,
	Thread;
	
	EXCEPTION
	Error(AtomList.T);
	
	TYPE
	T = NetObj.T OBJECT
	METHODS
	checkClockSyncNow (): ClockSyncReport
	RAISES {Error, NetObj.Error, Thread.Alerted};
	END; (* Public *)
	
	TYPE
	ClockSyncReport = RECORD
	serverDate: Date.T;
	MATT_Date: Date.T;
	deltaSecs: INTEGER;
	timeZonesDiffer: BOOLEAN;
	END; (* ClockSyncReport *)
	
	END CV_Server.
	
	MODULE CV_Server
	EXPORTS CV_Server;
	
	BEGIN (* CV_Server *)
	END CV_Server.