rebuilt release

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6754 8c9fc860-2736-0410-a75d-ab315db34111

WinAos/obg/FoxARMBackend.SymW

@@ -171,6 +171,7 @@ CONST
 	PACK = 17; 
 	UNPK = 18; 
 	UseFPUFlag = \"useFPU"\; 
+	UseFPU64Flag = \"useFPU64"\; 
 TYPE 
 	Operand = InstructionSet.Operand; 
 
@@ -224,9 +225,10 @@ TYPE
 		reserved: ARRAY InstructionSet.NumberRegisters OF BOOLEAN; 
 		unusable: Ticket; 
 		hint: LONGINT; 
-		useFPU: BOOLEAN; 
+		useFPU32: BOOLEAN; 
+		useFPU64: BOOLEAN; 
 
-		PROCEDURE ^  & InitPhysicalRegisters(supportFramePointer, useFPU, cooperative: BOOLEAN); 
+		PROCEDURE ^  & InitPhysicalRegisters(supportFramePointer, useFPU32, useFPU64, cooperative: BOOLEAN); 
 		PROCEDURE ^ NumberRegisters*(): LONGINT; 
 		PROCEDURE ^ Allocate*(physicalRegisterNumber: LONGINT; ticket: Ticket); 
 		PROCEDURE ^ SetReserved*(physicalRegisterNumber: LONGINT; isReserved: BOOLEAN); 
@@ -242,7 +244,7 @@ TYPE
 	VAR 
 		runtimeModuleName: SyntaxTree.IdentifierString; 
 		backend: BackendARM; 
-		opSP, opFP, opPC, opLR, opRES, opRESHI, opRESFS: InstructionSet.Operand; 
+		opSP, opFP, opPC, opLR, opRES, opRESHI, opRESFS, opRESFD: InstructionSet.Operand; 
 		listOfReferences: ListOfReferences; 
 		spillStackStart, pushChainLength: LONGINT; 
 		stackSize: LONGINT; 
@@ -301,6 +303,7 @@ TYPE
 		PROCEDURE ^ EmitFixupBlock; 
 		PROCEDURE ^ OperandFromValue(value: LONGINT; registerHint: Operand): Operand; 
 		PROCEDURE ^ SinglePrecisionFloatRegisterFromValue(value: REAL; registerHint: Operand): Operand; 
+		PROCEDURE ^ DoublePrecisionFloatRegisterFromValue(value: LONGREAL; registerHint: Operand): Operand; 
 		PROCEDURE ^ RegisterFromValue(value: LONGINT; registerHint: Operand): Operand; 
 		PROCEDURE ^ AllocateStack(allocationSize: LONGINT; doUpdateStackSize: BOOLEAN; clear: BOOLEAN); 
 		PROCEDURE ^ IsSameRegister(CONST a, b: Operand): BOOLEAN; 
@@ -352,7 +355,8 @@ TYPE
 	VAR 
 		cg: CodeGeneratorARM; 
 		system: Global.System; 
-		useFPU: BOOLEAN; 
+		useFPU32: BOOLEAN; 
+		useFPU64: BOOLEAN; 
 		initLocals: BOOLEAN; 
 
 		PROCEDURE ^  & InitBackendARM; 

WinAos/obg/FoxARMInstructionSet.SymW

@@ -423,6 +423,7 @@ CONST
 	RESHI* = R1; 
 	RES* = R0; 
 	RESFS* = SR0; 
+	RESFD* = DR0; 
 	NumberRegisters* = 117; 
 	NumberRegisterEntries* = 123; 
 	shiftLSL* = 0; 

WinAos/obg/Repositories.SymW

@@ -72,7 +72,7 @@ TYPE
 		refNum: LONGINT; 
 		flags: SET; 
 		timestamp-: LONGINT; 
-		onChanged-: WMEvents.EventSource; 
+		onChanged*: WMEvents.EventSource; 
 
 		PROCEDURE ^  & Init*; 
 		PROCEDURE ^ SetGenerator*(CONST gen: ARRAY OF CHAR); 

WinAos/obg/WMComponents.SymW

@@ -254,6 +254,7 @@ TYPE
 		PROCEDURE ^ ScaleFont*(height: LONGINT; percent: LONGINT); 
 		PROCEDURE ^ Draw*(canvas: WMGraphics.Canvas); 
 		PROCEDURE ^ InvalidateRect*(r: Rectangles.Rectangle); 
+		PROCEDURE ^ PostInvalidateCommand*(sender, par: ANY); 
 		PROCEDURE ^ InvalidateCommand*(sender, par: ANY); 
 		PROCEDURE ^ Invalidate*; 
 		PROCEDURE ^ DisableUpdate*; 

WinAos/obg/WMInspectionComponents.SymW

@@ -325,7 +325,6 @@ TYPE
 		focusNextView, focusPrevView: StringPropertyView; 
 
 		PROCEDURE ^  & Init*; 
-		PROCEDURE ^ Initialize*; 
 		PROCEDURE ^ ResetProperties; 
 		PROCEDURE ^ SetAlignment(alignmentMode: LONGINT); 
 		PROCEDURE ^ SetProperty(property: WMProperties.Property; VAR res: LONGINT); 

WinAos/obg/WMMessages.SymW

@@ -1,5 +1,5 @@
 MODULE WMMessages;
-	IMPORT Strings, KernelLog, Objects, Kernel, Locks, Modules, Reflection, SYSTEM;
+	IMPORT Strings, KernelLog, Objects, Kernel, Locks, Modules, Reflection, SYSTEM, D := Debugging;
 CONST 
 	InitialMsgQSize = 64; 
 	MaxMsgQSize = (32 * 1024); 
@@ -30,7 +30,6 @@ CONST
 	MsgDragDropped* = 1; 
 	Statistics* = FALSE; 
 	TraceQueue = FALSE; 
-	TraceOverflows = TRUE; 
 	MsgTypeMax* = 13; 
 TYPE 
 	CompCommand* = PROCEDURE {DELEGATE}(sender, par: ANY); 
@@ -65,11 +64,23 @@ TYPE
 
 	TrapHandler* = PROCEDURE {DELEGATE}():BOOLEAN; 
 
-	MsgSequencer* = OBJECT {EXCLUSIVE} 
+	MsgQ = OBJECT 
 	VAR 
 		head, num: LONGINT; 
 		msgQ: POINTER TO ARRAY OF Message; 
-		alive, continue, hadOverflow, waiting, stopped: BOOLEAN; 
+		owner: MsgSequencer; 
+
+		PROCEDURE ^  & InitQ(o: MsgSequencer; size: SIZE); 
+		PROCEDURE ^ Grow(trace: BOOLEAN); 
+		PROCEDURE ^ Add*(VAR msg: Message; debug: BOOLEAN): BOOLEAN; 
+		PROCEDURE ^ Get(VAR msg: Message; debug: BOOLEAN): BOOLEAN; 
+	END MsgQ; 
+
+	MsgSequencer* = OBJECT {EXCLUSIVE} 
+	VAR 
+		msgQ: MsgQ; 
+		invalidateQ: MsgQ; 
+		alive, continue, waiting, stopped: BOOLEAN; 
 		msg: Message; 
 		handler: MessageHandler; 
 		originator: ANY; 
@@ -77,14 +88,11 @@ TYPE
 		lock-: Locks.RWLock; 
 		th, traphandler: TrapHandler; 
 		name*: String; 
-		trapOnOverflow*: BOOLEAN; 
-		overflows: LONGINT; 
 
 		PROCEDURE ^  & New*(handler: MessageHandler); 
 		PROCEDURE ^ SetTrapHandler*(th: TrapHandler); 
 		PROCEDURE ^ IsCallFromSequencer*(): BOOLEAN; 
 		PROCEDURE ^ GetOriginator*(): ANY; 
-		PROCEDURE ^ Grow; 
 		PROCEDURE ^ Add*(VAR msg: Message): BOOLEAN; 
 		PROCEDURE ^ Handle(VAR msg: Message): BOOLEAN; 
 		PROCEDURE ^ ScheduleEvent*(event: CompCommand; sender, par: ANY);