Ver Fonte

exported ApplyUnarySAOp driver procedure

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8354 8c9fc860-2736-0410-a75d-ab315db34111
eth.morozova há 6 anos atrás
pai
commit
418258b630
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      source/FoxArrayBase.Mod

+ 1 - 1
source/FoxArrayBase.Mod

@@ -952,7 +952,7 @@ Sufficient (but not necessary) conditions:
 	END ApplyUnaryASOp;
 
 (** apply unary operator to array:  scalar -> array *)
-	PROCEDURE ApplyUnarySAOp( VAR dest: UnsafeArrayT; right: ADDRESS;  Loop: UnarySALoop );
+	PROCEDURE ApplyUnarySAOp*( VAR dest: UnsafeArrayT; right: ADDRESS;  Loop: UnarySALoop );
 	VAR loopd, looplen, loopdi: SIZE;  glen: SIZE;
 	VAR dim: SIZE;