Rebuilt release

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

WinAos/obg/ComponentViewer.SymW

@@ -4,16 +4,23 @@ CONST
 	DefaultWidth = 320; 
 	DefaultHeight = 240; 
 	InvalidPosition* = MIN(LONGINT); 
+	FlagMoveable = 20; 
 TYPE 
 	KillerMsg = OBJECT 
 	END KillerMsg; 
 
 	Window* = OBJECT {EXCLUSIVE} (WMComponents.FormWindow)
+	VAR 
+		dragging: BOOLEAN; 
+		lastX, lastY: LONGINT; 
 
 		PROCEDURE ^ RestoreWindow*(c: WMRestorable.Context); 
 		PROCEDURE ^  & InitWindow(width, height: LONGINT; alpha: BOOLEAN); 
 		PROCEDURE ^ Close*; 
 		PROCEDURE ^ Handle*(VAR m: WMMessages.Message); 
+		PROCEDURE ^ PointerDown*(x, y: LONGINT; keys: SET); 
+		PROCEDURE ^ PointerMove*(x, y: LONGINT; keys: SET); 
+		PROCEDURE ^ PointerUp*(x, y: LONGINT; keys: SET); 
 	END Window; 
 VAR 
 	nofWindows: LONGINT; 

WinAos/obg/FoxARMBackend.SymW

@@ -240,6 +240,7 @@ TYPE
 		toVirtual: ARRAY InstructionSet.NumberRegisters OF Ticket; 
 		reserved: ARRAY InstructionSet.NumberRegisters OF BOOLEAN; 
 		unusable: Ticket; 
+		blocked: Ticket; 
 		hint: LONGINT; 
 		useFPU32: BOOLEAN; 
 		useFPU64: BOOLEAN; 
@@ -260,7 +261,7 @@ TYPE
 	VAR 
 		runtimeModuleName: SyntaxTree.IdentifierString; 
 		backend: BackendARM; 
-		opSP, opFP, opPC, opLR, opRES, opRESHI, opRESFS, opRESFD: InstructionSet.Operand; 
+		opSP, opFP, opPC, opLR, opRES, opRESHI, opRESFS, opRESFD, fpscr: InstructionSet.Operand; 
 		listOfReferences: ListOfReferences; 
 		spillStackStart, pushChainLength: LONGINT; 
 		stackSize: LONGINT; 

WinAos/obg/Reflection.SymW

@@ -128,12 +128,12 @@ VAR
 	PROCEDURE ^ GetProcedureName*(pc: ADDRESS; VAR name: ARRAY OF CHAR; VAR startpc: ADDRESS); 
 	PROCEDURE ^ FindVar*(mod: Modules.Module; CONST name: ARRAY OF CHAR; VAR v: Variable): BOOLEAN; 
 	PROCEDURE ^ WriteVar*(w: Streams.Writer; v: Variable; VAR col: LONGINT); 
-	PROCEDURE ^ ReportType(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
-	PROCEDURE ^ ReportProcedure(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
-	PROCEDURE ^ ReportVariable(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
-	PROCEDURE ^ ReportTypeDeclaration(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
-	PROCEDURE ^ ReportScope(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
-	PROCEDURE ^ ReportModule(w: Streams.Writer; refs: Modules.Bytes; offset: LONGINT); 
+	PROCEDURE ^ ReportType*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
+	PROCEDURE ^ ReportProcedure*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
+	PROCEDURE ^ ReportVariable*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
+	PROCEDURE ^ ReportTypeDeclaration*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
+	PROCEDURE ^ ReportScope*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT); 
+	PROCEDURE ^ ReportModule*(w: Streams.Writer; refs: Modules.Bytes; offset: LONGINT); 
 	PROCEDURE ^ Report*(w: Streams.Writer; refs: Modules.Bytes; offset: LONGINT); 
 BEGIN
 END Reflection.

WinAos/obg/SystemTools.SymW

@@ -1,5 +1,5 @@
 MODULE SystemTools;
-	IMPORT Machine, Modules, Objects, Commands, Options, ProcessInfo, Kernel, Streams, Dates, Strings, Plugins, Files, SystemVersion;
+	IMPORT Machine, Modules, Objects, Commands, Options, ProcessInfo, Kernel, Streams, Dates, Strings, Plugins, Files, SystemVersion, Heaps;
 CONST 
 	MaxTimers = 16; 
 	DateTimeFormat = \"dd.mm.yyyy hh:nn:ss"\; 
@@ -38,6 +38,7 @@ VAR
 	PROCEDURE ^ ShowProcesses*(context: Commands.Context); 
 	PROCEDURE ^ ShowStacks*(context: Commands.Context); 
 	PROCEDURE ^ ShowStack*(context: Commands.Context); 
+	PROCEDURE ^ Watch*(context: Commands.Context); 
 	PROCEDURE ^ RenameExtension*(context: Commands.Context); 
 	PROCEDURE ^ IsDelimiter(ch: CHAR): BOOLEAN; 
 	PROCEDURE ^ DoCommands*(context: Commands.Context); 

WinAos/obg/WMFigures.SymW

@@ -23,7 +23,7 @@ TYPE
 		arrow-: WMProperties.BooleanProperty; 
 		points-: Point; 
 		nofPoints: LONGINT; 
-		hover, selected: WMProperties.Property; 
+		hover, selectedPoint: WMProperties.Property; 
 		selectedLine: BOOLEAN; 
 		mouseOver: BOOLEAN; 
 		lastKeys, state: SET; 

WinAos/obg/WMGrids.SymW

@@ -84,8 +84,6 @@ TYPE
 		lastkeys: SET; 
 
 		PROCEDURE ^  & Init*; 
-		PROCEDURE ^ Initialize*; 
-		PROCEDURE ^ RecacheAllProperties; 
 		PROCEDURE ^ RecacheProperties*; 
 		PROCEDURE ^ PropertyChanged*(sender, property: ANY); 
 		PROCEDURE ^ GetColWidth*(i: LONGINT): LONGINT;