浏览代码

Rebuilt release

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7149 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 年之前
父节点
当前提交
ca1cff3ba8
共有 8 个文件被更改,包括 10 次插入128 次删除
  1. 二进制
      WinAos/obg/FoxArrayBase.GofW
  2. 8 126
      WinAos/obg/FoxArrayBase.SymW
  3. 二进制
      WinAos/obg/Info.GofW
  4. 二进制
      WinAos/obg/Machine.GofW
  5. 二进制
      WinAos/obg/Reflection.GofW
  6. 1 1
      WinAos/obg/Reflection.SymW
  7. 二进制
      WinAos/obg/Shell.GofW
  8. 1 1
      WinAos/obg/Shell.SymW

二进制
WinAos/obg/FoxArrayBase.GofW


+ 8 - 126
WinAos/obg/FoxArrayBase.SymW

@@ -97,15 +97,17 @@ TYPE
 	END; 
 
 	ArrayDescriptor* = RECORD 
-		ptr: ANY; 
-		adr: ADDRESS; 
-		flags: SET; 
-		dim: SIZE; 
-		elementSize: SIZE; 
+		ptr*: ANY; 
+		adr*: ADDRESS; 
+		flags*: SET; 
+		dim*: SIZE; 
+		elementSize*: SIZE; 
 	END; 
 
+	Tensor = POINTER TO ArrayDescriptor; 
+
 	UnsafeArray* = POINTER {UNSAFE} TO RECORD (ArrayDescriptor)
-		lens: ARRAY 8 OF LenInc; 
+		lens*: ARRAY 8 OF LenInc; 
 	END; 
 
 	A0 = RECORD (ArrayDescriptor)
@@ -161,126 +163,6 @@ TYPE
 
 	T8 = POINTER TO A8; 
 
-	T9 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (9 * 8)) OF CHAR; 
-	END; 
-
-	T10 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (10 * 8)) OF CHAR; 
-	END; 
-
-	T11 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (11 * 8)) OF CHAR; 
-	END; 
-
-	T12 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (12 * 8)) OF CHAR; 
-	END; 
-
-	T13 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (13 * 8)) OF CHAR; 
-	END; 
-
-	T14 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (14 * 8)) OF CHAR; 
-	END; 
-
-	T15 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (15 * 8)) OF CHAR; 
-	END; 
-
-	T16 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (16 * 8)) OF CHAR; 
-	END; 
-
-	T17 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (17 * 8)) OF CHAR; 
-	END; 
-
-	T18 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (18 * 8)) OF CHAR; 
-	END; 
-
-	T19 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (19 * 8)) OF CHAR; 
-	END; 
-
-	T20 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (20 * 8)) OF CHAR; 
-	END; 
-
-	T21 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (21 * 8)) OF CHAR; 
-	END; 
-
-	T22 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (22 * 8)) OF CHAR; 
-	END; 
-
-	T23 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (23 * 8)) OF CHAR; 
-	END; 
-
-	T24 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (24 * 8)) OF CHAR; 
-	END; 
-
-	T25 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (25 * 8)) OF CHAR; 
-	END; 
-
-	T26 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (26 * 8)) OF CHAR; 
-	END; 
-
-	T27 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (27 * 8)) OF CHAR; 
-	END; 
-
-	T28 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (28 * 8)) OF CHAR; 
-	END; 
-
-	T29 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (29 * 8)) OF CHAR; 
-	END; 
-
-	T30 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (30 * 8)) OF CHAR; 
-	END; 
-
-	T31 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (31 * 8)) OF CHAR; 
-	END; 
-
-	T32 = POINTER TO RECORD 
-		ptr: ANY; 
-		a: ARRAY (MathLenOffset + (32 * 8)) OF CHAR; 
-	END; 
-
 	SmallMatMul* = PROCEDURE (dadr, ladr, radr: LONGINT); 
 VAR 
 	alloc*: LONGINT; 

二进制
WinAos/obg/Info.GofW


二进制
WinAos/obg/Machine.GofW


二进制
WinAos/obg/Reflection.GofW


+ 1 - 1
WinAos/obg/Reflection.SymW

@@ -1,5 +1,5 @@
 MODULE Reflection;
-	IMPORT Modules, Streams, SYSTEM, Machine, Heaps, Objects, Trace, FoxArrayBase;
+	IMPORT Modules, Streams, SYSTEM, Machine, Heaps, Objects, Trace;
 CONST 
 	ShowAllProcs = TRUE; 
 	MaxFrames = 128; 

二进制
WinAos/obg/Shell.GofW


+ 1 - 1
WinAos/obg/Shell.SymW

@@ -6,7 +6,7 @@ CONST
 	Version = \"Shell v1.0"\; 
 	DefaultAliasFile = \"Shell.Alias"\; 
 	NestingLevelIndicator = \">"\; 
-	MaxLen = 512; 
+	MaxLen = 4096; 
 	CmdLen = 64; 
 	ParamLen = MaxLen; 
 	CR = 0DX;