rebuilt release

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

WinAos/obg/FoxArrayBase.SymW

@@ -16,6 +16,7 @@ CONST
 	GeometryMismatch = 400; 
 	DimensionMismatch = 401; 
 	AllocationForbidden = 402; 
+	ArrayAlignment = 8; 
 	TensorFlag = 0; 
 	RangeFlag = 1; 
 	TemporaryFlag = 2; 
@@ -89,9 +90,9 @@ TYPE
 
 	TransposeP* = PROCEDURE (ladr, dadr, lstride, linc, dstride, dinc, rows, cols: LONGINT); 
 
-	LenInc = RECORD 
-		len: SIZE; 
-		inc: SIZE; 
+	LenInc* = RECORD 
+		len*: SIZE; 
+		inc*: SIZE; 
 	END; 
 
 	ArrayDescriptor* = RECORD 

WinAos/obg/FoxBasic.SymW

@@ -464,8 +464,10 @@ VAR
 	PROCEDURE ^ GetString*(s: String; VAR str: ARRAY OF CHAR); 
 	PROCEDURE ^ StringEqual*(s, t: String): BOOLEAN; 
 	PROCEDURE ^ GetErrorMessage*(err: LONGINT; CONST msg: ARRAY OF CHAR; VAR res: ARRAY OF CHAR); 
+	PROCEDURE ^ AppendDetailedErrorMessage*(VAR message: ARRAY OF CHAR; pos: Position; reader: Streams.Reader); 
 	PROCEDURE ^ AppendPosition*(VAR msg: ARRAY OF CHAR; pos: Position); 
 	PROCEDURE ^ MakeMessage(pos: Position; code: ErrorCode; CONST msg: ARRAY OF CHAR; VAR message: ARRAY OF CHAR); 
+	PROCEDURE ^ MakeDetailedMessage(pos: Position; code: ErrorCode; CONST msg: ARRAY OF CHAR; reader: Streams.Reader; VAR message: ARRAY OF CHAR); 
 	PROCEDURE ^ ErrorC*(diagnostics: Diagnostics.Diagnostics; CONST source: ARRAY OF CHAR; pos: Position; code: ErrorCode; CONST msg: ARRAY OF CHAR); 
 	PROCEDURE ^ Error*(diagnostics: Diagnostics.Diagnostics; CONST source: ARRAY OF CHAR; pos: Position; CONST msg: ARRAY OF CHAR); 
 	PROCEDURE ^ Warning*(diagnostics: Diagnostics.Diagnostics; CONST source: ARRAY OF CHAR; pos: Position; CONST msg: ARRAY OF CHAR); 

WinAos/obg/FoxScanner.SymW

@@ -238,7 +238,6 @@ TYPE
 		PROCEDURE ^ SetContext*(CONST context: Context); 
 		PROCEDURE ^ SkipToEndOfLine*; 
 		PROCEDURE ^ GetIdentifier(VAR symbol: Symbol); 
-		PROCEDURE ^ GetNumber(VAR symbol: Symbol): Token; 
 		PROCEDURE ^ GetNextSymbol*(VAR symbol: Symbol): BOOLEAN; 
 	END AssemblerScanner; 
 VAR 

WinAos/obg/Shell.SymW

@@ -79,6 +79,7 @@ TYPE
 		prompt: ARRAY 32 OF CHAR; 
 		upcall: NotifyProcedure; 
 		commandHistory: CommandHistory; 
+		firstCR: CHAR; 
 
 		PROCEDURE ^  & Init*(in: Streams.Reader; out, err: Streams.Writer; echo: BOOLEAN; CONST prompt: ARRAY OF CHAR); 
 		PROCEDURE ^ Exit*; 

WinAos/obg/WMDefaultFont.SymW

@@ -1,6 +1,7 @@
 MODULE WMDefaultFont;
 	IMPORT KernelLog, Streams, Graphics := WMGraphics, Raster;
 CONST 
+	TraceInstallation = FALSE; 
 TYPE 
 	Glyph = RECORD 
 		img: Graphics.Image; 

WinAos/obg/WMGrids.SymW

@@ -106,7 +106,7 @@ TYPE
 		PROCEDURE ^ FindMasterCell*(x, y: LONGINT; VAR col, row, xpos, ypos: LONGINT); 
 		PROCEDURE ^ FindCellXY*(x, y: LONGINT; VAR col, row: LONGINT); 
 		PROCEDURE ^ CheckScrollbarsNeeded; 
-		PROCEDURE ^ GetVisibleCellRect(col, row: LONGINT): WMRectangles.Rectangle; 
+		PROCEDURE ^ GetVisibleCellRect*(col, row: LONGINT): WMRectangles.Rectangle; 
 		PROCEDURE ^ DrawBackground*(canvas: Graphics.Canvas); 
 		PROCEDURE ^ InvalidateCell*(col, row: LONGINT); 
 		PROCEDURE ^ SetTopPosition*(col, row: LONGINT; updateScrollbar: BOOLEAN); 

WinAos/obg/WMStandardComponents.SymW

@@ -445,6 +445,7 @@ VAR
 	PROCEDURE ^ GenCheckbox*(): XML.Element; 
 	PROCEDURE ^ GenGroupPanel*(): XML.Element; 
 	PROCEDURE ^ GenImage*(): XML.Element; 
+	PROCEDURE ^ GenImagePanel*(): XML.Element; 
 	PROCEDURE ^ FindLabel*(CONST uid: ARRAY OF CHAR; component: WMComponents.Component): Label; 
 	PROCEDURE ^ FindButton*(CONST uid: ARRAY OF CHAR; component: WMComponents.Component): Button; 
 	PROCEDURE ^ FindCheckbox*(CONST uid: ARRAY OF CHAR; component: WMComponents.Component): Checkbox; 

source/Builds.Tool

@@ -22,5 +22,5 @@ LINUX32G -- 32 bit linux a2 using generic object files
 	
 	## Command line shell including compiler (and linker) ##
 	StaticLinker.Link -p=Linux32G Runtime Trace Glue Unix Machine Heaps Modules Objects Kernel KernelLog  Streams Commands Pipes StdIO TrapWriters Reflection Traps Files UnixFiles Clock Dates Reals Strings Diagnostics BitSets StringPool ObjectFile GenericLinker   GenericLoader  SystemTools StdIOShell 
-	Shell StaticLinker Compiler FoxOberonFrontend FoxARMBackend FoxAMDBackend
+	Shell StaticLinker Compiler FoxOberonFrontend FoxARMBackend FoxAMDBackend ~
 

source/FoxArrayBase.Mod

@@ -91,9 +91,9 @@ TYPE
 	FastMatMul* = PROCEDURE ( matrixA, matrixB, matrixC, IncA, StrideA, IncB, StrideB, IncC, StrideC, RowsA, ColsA, RowsB, ColsB: LONGINT ): BOOLEAN;
 	TransposeP* = PROCEDURE ( ladr, dadr, lstride, linc, dstride, dinc, rows, cols: LONGINT );
 
-	LenInc = RECORD
-		len: SIZE;
-		inc: SIZE
+	LenInc* = RECORD
+		len*: SIZE;
+		inc*: SIZE
 	END;
 
 	ArrayDescriptor*= RECORD
@@ -9699,7 +9699,6 @@ TYPE
 				len := a[i];
 				PutInc( dest, i, size );  PutLen( dest, i, len );  size := size * len;
 			END;
-			TRACE(size,tag);
 			IF tag = 0 THEN
 				SYSTEM.NEW( data, size  + ArrayAlignment);   (* Zero(data,size*Size); *)
 				dest.adr := Align(data);
@@ -9718,7 +9717,6 @@ TYPE
 
 	BEGIN
 		dim := LEN( a,0 );
-		TRACE(dest, dim);
 		IF (dest = 0) OR (dim # GetDim( dest )) THEN
 			IF dest # 0 THEN
 				IF (~(TensorFlag IN GetFlags( dest ))) THEN Err( "Array's number of dimension must not be modified (no TENSOR !)" );  END;
@@ -9745,7 +9743,6 @@ TYPE
 
 	PROCEDURE AllocateArrayA*( CONST a: ARRAY OF SIZE;  elementSize: SIZE; tag: ADDRESS; dest: UnsafeArray );
 	BEGIN
-		TRACE(elementSize);
 		AllocateTensorA(a,elementSize,tag,dest);
 		IF dest.ptr # NIL THEN Heaps.SetPC(dest.ptr) END;
 	END AllocateArrayA;