Ver código fonte

Patched wrong assignment (32 bit platforms only)

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7991 8c9fc860-2736-0410-a75d-ab315db34111
eth.negelef 7 anos atrás
pai
commit
815906d43b
1 arquivos alterados com 2 adições e 6 exclusões
  1. 2 6
      source/FoxArrayBase.Mod

+ 2 - 6
source/FoxArrayBase.Mod

@@ -984,7 +984,7 @@ Sufficient (but not necessary) conditions:
 (** apply binary operator : array x array -> array *)
 (** apply binary operator : array x array -> array *)
 
 
 
 
-	PROCEDURE ApplyBinaryAAAOp( VAR dest: UnsafeArrayT; CONST left, right: UnsafeArray; elementSize: SIZE;
+	PROCEDURE ApplyBinaryAAAOp( VAR dest: UnsafeArrayT; CONST left, right: UnsafeArrayT; elementSize: SIZE;
 														    Loop: BinaryAAALoop );
 														    Loop: BinaryAAALoop );
 	VAR loopd, looplen, loopli, loopri, loopdi: SIZE;  p: ANY;  glen: SIZE;
 	VAR loopd, looplen, loopli, loopri, loopdi: SIZE;  p: ANY;  glen: SIZE;
 		origdest: SIZE;  modes: SET;  dim: SIZE;
 		origdest: SIZE;  modes: SET;  dim: SIZE;
@@ -2022,11 +2022,7 @@ Sufficient (but not necessary) conditions:
 	
 	
 	OPERATOR "@Convert"*(CONST src: ARRAY [ ? ] OF LONGINT ): ARRAY {UNSAFE} [ ? ] OF SIZE;
 	OPERATOR "@Convert"*(CONST src: ARRAY [ ? ] OF LONGINT ): ARRAY {UNSAFE} [ ? ] OF SIZE;
 	BEGIN
 	BEGIN
-		IF SIZEOF(SIZE) = SIZEOF(LONGINT) THEN
-			RETURN src;
-		ELSE
-			ApplyUnaryAAOp(RESULT, src,SIZEOF( SIZE ), ConvertLoopLY );
-		END;
+		ApplyUnaryAAOp(RESULT, src,SIZEOF( SIZE ), ConvertLoopLY );
 		RETURN RESULT
 		RETURN RESULT
 	END "@Convert";
 	END "@Convert";