rebuilt Linux64G release

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

Linux64G/bin/CRC.SymUu

@@ -2,7 +2,7 @@ MODULE CRC;
 	IMPORT SYSTEM, Streams;
 CONST 
 	Init16 =  -1; 
-	Init32 = LONGINT(0FFFFFFFFH); 
+	Init32 = LONGINT(4294967295); 
 TYPE 
 	CRC16Stream* = OBJECT (Streams.Writer)
 	VAR 

Linux64G/bin/CSS2Properties.SymUu

@@ -1,22 +1,22 @@
 MODULE CSS2Properties;
 	IMPORT DynamicStrings, XMLObjects, CSS2, WMWindowManager, WMGraphics, Raster, GfxImages, GfxFonts, Gfx;
 CONST 
-	Aqua* = LONGINT(0FF00FFFFH); 
-	Black* = LONGINT(0FF000000H); 
-	Blue* = LONGINT(0FF0000FFH); 
-	Fuchsia* = LONGINT(0FFFF00FFH); 
-	Gray* = LONGINT(0FF808080H); 
-	Green* = LONGINT(0FF008000H); 
-	Lime* = LONGINT(0FF00FF00H); 
-	Maroon* = LONGINT(0FF800000H); 
-	Navy* = LONGINT(0FF000080H); 
-	Olive* = LONGINT(0FF808000H); 
-	Purple* = LONGINT(0FF800080H); 
-	Red* = LONGINT(0FFFF0000H); 
-	Silver* = LONGINT(0FFC0C0C0H); 
-	Teal* = LONGINT(0FF008080H); 
-	White* = LONGINT(0FFFFFFFFH); 
-	Yellow* = LONGINT(0FFFFFF00H); 
+	Aqua* = LONGINT(4278255615); 
+	Black* = LONGINT(4278190080); 
+	Blue* = LONGINT(4278190335); 
+	Fuchsia* = LONGINT(4294902015); 
+	Gray* = LONGINT(4286611584); 
+	Green* = LONGINT(4278222848); 
+	Lime* = LONGINT(4278255360); 
+	Maroon* = LONGINT(4286578688); 
+	Navy* = LONGINT(4278190208); 
+	Olive* = LONGINT(4286611456); 
+	Purple* = LONGINT(4286578816); 
+	Red* = LONGINT(4294901760); 
+	Silver* = LONGINT(4290822336); 
+	Teal* = LONGINT(4278222976); 
+	White* = LONGINT(4294967295); 
+	Yellow* = LONGINT(4294967040); 
 	Transparent* = 0; 
 	XXSmall* = 0; 
 	XSmall* = 1; 

Linux64G/bin/CalcConvolution.SymUu

@@ -0,0 +1,9 @@
+MODULE CalcConvolution;
+	IMPORT NbrInt, NbrRe, DataErrors, MathInt, MathRe, CalcFn;
+CONST 
+
+	PROCEDURE ^ LogP(p, x: NbrRe.Real): NbrRe.Real; 
+	PROCEDURE ^ GetArrayDimension*(x, t: NbrRe.Real; n: NbrInt.Integer): NbrInt.Integer; 
+	PROCEDURE ^ Solve*(k: CalcFn.ReArg; f: CalcFn.Re2Arg; x, t: NbrRe.Real; n, p: NbrInt.Integer; VAR soln: ARRAY OF ARRAY OF NbrRe.Real); 
+BEGIN
+END CalcConvolution.

Linux64G/bin/CalcD1.SymUu

@@ -0,0 +1,19 @@
+MODULE CalcD1;
+	IMPORT NbrInt, NbrRe, NbrCplx, MathRe, CalcFn;
+CONST 
+	Forward* = 9; 
+	Central* = 10; 
+	Backward* = 11; 
+VAR 
+	epsilon, zero: NbrRe.Real; 
+
+	PROCEDURE ^ DoNothing(x: NbrRe.Real); 
+	PROCEDURE ^ DoCplxNothing(z: NbrCplx.Complex); 
+	PROCEDURE ^ Solve*(f: CalcFn.ReArg; atX: NbrRe.Real; differencing: NbrInt.Integer): NbrRe.Real; 
+	PROCEDURE ^ SolveCplx*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxRe*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxIm*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxAbs*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxArg*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+BEGIN
+END CalcD1.

Linux64G/bin/CalcD2.SymUu

@@ -0,0 +1,19 @@
+MODULE CalcD2;
+	IMPORT NbrInt, NbrRe, NbrCplx, MathRe, CalcFn;
+CONST 
+	Forward* = 9; 
+	Central* = 10; 
+	Backward* = 11; 
+VAR 
+	epsilon, zero: NbrRe.Real; 
+
+	PROCEDURE ^ DoNothing(x: NbrRe.Real); 
+	PROCEDURE ^ DoCplxNothing(z: NbrCplx.Complex); 
+	PROCEDURE ^ Solve*(f: CalcFn.ReArg; atX: NbrRe.Real; differencing: NbrInt.Integer): NbrRe.Real; 
+	PROCEDURE ^ SolveCplx*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxRe*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxIm*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxAbs*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxArg*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+BEGIN
+END CalcD2.

Linux64G/bin/CalcD3.SymUu

@@ -0,0 +1,19 @@
+MODULE CalcD3;
+	IMPORT NbrInt, NbrRe, NbrCplx, MathRe, CalcFn;
+CONST 
+	Forward* = 9; 
+	Central* = 10; 
+	Backward* = 11; 
+VAR 
+	epsilon, zero: NbrRe.Real; 
+
+	PROCEDURE ^ DoNothing(x: NbrRe.Real); 
+	PROCEDURE ^ DoCplxNothing(z: NbrCplx.Complex); 
+	PROCEDURE ^ Solve*(f: CalcFn.ReArg; atX: NbrRe.Real; differencing: NbrInt.Integer): NbrRe.Real; 
+	PROCEDURE ^ SolveCplx*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxRe*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxIm*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxAbs*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxArg*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+BEGIN
+END CalcD3.

Linux64G/bin/CalcD4.SymUu

@@ -0,0 +1,19 @@
+MODULE CalcD4;
+	IMPORT NbrInt, NbrRe, NbrCplx, MathRe, CalcFn;
+CONST 
+	Forward* = 9; 
+	Central* = 10; 
+	Backward* = 11; 
+VAR 
+	epsilon, zero: NbrRe.Real; 
+
+	PROCEDURE ^ DoNothing(x: NbrRe.Real); 
+	PROCEDURE ^ DoCplxNothing(z: NbrCplx.Complex); 
+	PROCEDURE ^ Solve*(f: CalcFn.ReArg; atX: NbrRe.Real; differencing: NbrInt.Integer): NbrRe.Real; 
+	PROCEDURE ^ SolveCplx*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxRe*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxIm*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxAbs*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ SolveCplxArg*(f: CalcFn.CplxArg; atZ: NbrCplx.Complex; differencing: NbrInt.Integer): NbrCplx.Complex; 
+BEGIN
+END CalcD4.

Linux64G/bin/CalcDiethelm.SymUu

@@ -0,0 +1,26 @@
+MODULE CalcDiethelm;
+	IMPORT NbrRe, DataErrors, MathRe, MathGamma, CalcFn, CalcD1;
+CONST 
+TYPE 
+	Romberg = OBJECT 
+	VAR 
+		index: LONGINT; 
+		error, soln: NbrRe.Real; 
+		factors: POINTER TO ARRAY OF NbrRe.Real; 
+		tableau: ARRAY 8 OF POINTER TO ARRAY OF NbrRe.Real; 
+
+		PROCEDURE ^  & Initialize*; 
+		PROCEDURE ^ Update(newSolution: NbrRe.Real); 
+	END Romberg; 
+VAR 
+	minTol, maxTol: NbrRe.Real; 
+
+	PROCEDURE ^ CreateDiffFactors(alpha: NbrRe.Real; x: Romberg); 
+	PROCEDURE ^ CreateIntFactors(alpha: NbrRe.Real; x: Romberg); 
+	PROCEDURE ^ CreateDiffEqnFactors(alpha: NbrRe.Real; x: Romberg); 
+	PROCEDURE ^ VerifyTolerance(VAR tol: NbrRe.Real); 
+	PROCEDURE ^ SolveI*(f: CalcFn.ReArg; x, order: NbrRe.Real; VAR tol: NbrRe.Real): NbrRe.Real; 
+	PROCEDURE ^ SolveD*(f: CalcFn.ReArg; x, order: NbrRe.Real; VAR tol: NbrRe.Real): NbrRe.Real; 
+	PROCEDURE ^ SolveFODE*(f: CalcFn.Re2Arg; y0: ARRAY OF NbrRe.Real; x, order: NbrRe.Real; VAR tol: NbrRe.Real): NbrRe.Real; 
+BEGIN
+END CalcDiethelm.

Linux64G/bin/CalcFn.SymUu

@@ -0,0 +1,14 @@
+MODULE CalcFn;
+	IMPORT NbrRe, NbrCplx;
+TYPE 
+	ReArg* = PROCEDURE (x: NbrRe.Real):NbrRe.Real; 
+
+	Re2Arg* = PROCEDURE (x1, x2: NbrRe.Real):NbrRe.Real; 
+
+	CplxArg* = PROCEDURE (z: NbrCplx.Complex):NbrCplx.Complex; 
+
+	Cplx2Arg* = PROCEDURE (z1, z2: NbrCplx.Complex):NbrCplx.Complex; 
+
+	MixedArg* = PROCEDURE (x: NbrRe.Real; z: NbrCplx.Complex):NbrCplx.Complex; 
+BEGIN
+END CalcFn.

Linux64G/bin/CalcGauss.SymUu

@@ -0,0 +1,46 @@
+MODULE CalcGauss;
+	IMPORT NbrInt, NbrRe, NbrCplx, Data, DataLists, CalcFn;
+CONST 
+	Coarse* = 99; 
+	Medium* = 100; 
+	Fine* = 101; 
+	OKay* = 0; 
+	MaxSubDivReached* = 1; 
+	RoundoffError* = 2; 
+	RoughIntegrand* = 3; 
+TYPE 
+	Interval = OBJECT {EXCLUSIVE} (Data.Datum)
+	VAR 
+		a, b, error: NbrRe.Real; 
+
+		PROCEDURE ^  & Initialize*; 
+		PROCEDURE ^ Copy*(VAR copy: Data.Datum); 
+	END Interval; 
+
+	ReInterval = OBJECT {EXCLUSIVE} (Interval)
+	VAR 
+		soln: NbrRe.Real; 
+
+		PROCEDURE ^  & Initialize*; 
+		PROCEDURE ^ Copy*(VAR copy: Data.Datum); 
+	END ReInterval; 
+
+	CplxInterval = OBJECT {EXCLUSIVE} (Interval)
+	VAR 
+		soln: NbrCplx.Complex; 
+
+		PROCEDURE ^  & Initialize*; 
+		PROCEDURE ^ Copy*(VAR copy: Data.Datum); 
+	END CplxInterval; 
+VAR 
+	MaxIntervals-: NbrInt.Integer; 
+	node8, wgtGauss4, wgtKronrod8, node16, wgtGauss8, wgtKronrod16, node31, wgtGauss15, wgtKronrod31: POINTER TO ARRAY OF NbrRe.Real; 
+
+	PROCEDURE ^ GetKey(a, b, atX: NbrRe.Real): Data.Key; 
+	PROCEDURE ^ ReGaussKronrod(f: CalcFn.ReArg; fromX, toX: NbrRe.Real; integrator: NbrInt.Integer; VAR result, absError, absResult: NbrRe.Real); 
+	PROCEDURE ^ Solve*(f: CalcFn.ReArg; a, b: NbrRe.Real; integrator: NbrInt.Integer; VAR error: NbrRe.Real; VAR res: NbrInt.Integer): NbrRe.Real; 
+	PROCEDURE ^ CplxGaussKronrod(f: CalcFn.MixedArg; fromX, toX: NbrRe.Real; z: NbrCplx.Complex; integrator: NbrInt.Integer; VAR result: NbrCplx.Complex; VAR absError, absResult: NbrRe.Real); 
+	PROCEDURE ^ SolveCplx*(f: CalcFn.MixedArg; a, b: NbrRe.Real; z: NbrCplx.Complex; integrator: NbrInt.Integer; VAR error: NbrRe.Real; VAR res: NbrInt.Integer): NbrCplx.Complex; 
+	PROCEDURE ^ Quadrature; 
+BEGIN
+END CalcGauss.

Linux64G/bin/CalcGrunwald.SymUu

@@ -0,0 +1,14 @@
+MODULE CalcGrunwald;
+	IMPORT NbrInt, NbrRe, MathRe, CalcFn;
+CONST 
+	OKay* = 0; 
+	MaxSubDivReached* = 1; 
+	Oscillation* = 2; 
+VAR 
+	MaxIntervals-: NbrInt.Integer; 
+
+	PROCEDURE ^ Grunwald(f: CalcFn.ReArg; a, b, order: NbrRe.Real; VAR error, result: NbrRe.Real; VAR res: NbrInt.Integer); 
+	PROCEDURE ^ SolveD*(f: CalcFn.ReArg; x, order: NbrRe.Real; VAR error: NbrRe.Real; VAR res: NbrInt.Integer): NbrRe.Real; 
+	PROCEDURE ^ SolveI*(f: CalcFn.ReArg; x, order: NbrRe.Real; VAR error: NbrRe.Real; VAR res: NbrInt.Integer): NbrRe.Real; 
+BEGIN
+END CalcGrunwald.

Linux64G/bin/Compiler.SymUu

@@ -31,6 +31,7 @@ TYPE
 		documentation*: Backend.Backend; 
 		srcPath, destPath: Files.FileName; 
 		replacements: SemanticChecker.Replacement; 
+		platformCallingConvention: SyntaxTree.CallingConvention; 
 	END; 
 VAR 
 	platforms: Options.Defaults; 

Linux64G/bin/CryptoAES.SymUu

@@ -8,7 +8,7 @@ CONST
 	b0 = S.VAL(SET32, 255); 
 	b1 = S.VAL(SET32, 65280); 
 	b2 = S.VAL(SET32, 16711680); 
-	b3 = S.VAL(SET32, 0FF000000H); 
+	b3 = S.VAL(SET32, 4278190080); 
 TYPE 
 	RTable = ARRAY 256 OF SET32; 
 

Linux64G/bin/CryptoDES.SymUu

@@ -1,7 +1,7 @@
 MODULE CryptoDES;
 	IMPORT S := SYSTEM, U := CryptoUtils, Ciphers := CryptoCiphers;
 CONST 
-	Mask01 = S.VAL(SET32, 0AAAAAAAAH); 
+	Mask01 = S.VAL(SET32, 2863311530); 
 	Mask02 = S.VAL(SET32, 858993459); 
 	Mask04 = S.VAL(SET32, 252645135); 
 	Mask08 = S.VAL(SET32, 16711935); 

Linux64G/bin/CryptoSHA1.SymUu

@@ -32,12 +32,12 @@ TYPE
 	END tr2039; 
 	PROCEDURE  - tr4059(a: LONGINT; VAR b: LONGINT; c, d, e: LONGINT; VAR f: LONGINT; x: SET32);
 	BEGIN
-		f := ((((S.VAL(LONGINT, x) + e) + LONGINT(8F1BBCDCH)) + ROT(a, 5)) + S.VAL(LONGINT, ((S.VAL(SET32, b) * S.VAL(SET32, c)) + ((S.VAL(SET32, b) + S.VAL(SET32, c)) * S.VAL(SET32, d))))); 
+		f := ((((S.VAL(LONGINT, x) + e) + LONGINT(2400959708)) + ROT(a, 5)) + S.VAL(LONGINT, ((S.VAL(SET32, b) * S.VAL(SET32, c)) + ((S.VAL(SET32, b) + S.VAL(SET32, c)) * S.VAL(SET32, d))))); 
 		b := ROT(b, 30)
 	END tr4059; 
 	PROCEDURE  - tr6079(a: LONGINT; VAR b: LONGINT; c, d, e: LONGINT; VAR f: LONGINT; x: SET32);
 	BEGIN
-		f := ((((S.VAL(LONGINT, x) + e) + LONGINT(0CA62C1D6H)) + ROT(a, 5)) + S.VAL(LONGINT, ((S.VAL(SET32, b) / S.VAL(SET32, c)) / S.VAL(SET32, d)))); 
+		f := ((((S.VAL(LONGINT, x) + e) + LONGINT(3395469782)) + ROT(a, 5)) + S.VAL(LONGINT, ((S.VAL(SET32, b) / S.VAL(SET32, c)) / S.VAL(SET32, d)))); 
 		b := ROT(b, 30)
 	END tr6079; 
 	PROCEDURE ^ HashBlock(VAR state: State; CONST buf: ARRAY OF CHAR; pos: LONGINT);