git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8326 8c9fc860-2736-0410-a75d-ab315db34111
@@ -538,7 +538,8 @@ TYPE
FoxArrayBase.ApplyUnaryAAOp(RESULT,x,SIZEOF(SHORTREAL),NegateLoop);
RETURN RESULT;
END "-";
-
+
+ (*!TODO: replace by SHORT operator after fixing a compiler bug which does not allow to compile the operator code *)
PROCEDURE Short*(CONST x: ARRAY [?] OF Real): ARRAY {UNSAFE} [?] OF SHORTREAL;
BEGIN
FoxArrayBase.ApplyUnaryAAOp(RESULT,x,SIZEOF(SHORTREAL),ShortLoop);