Browse Source

exported ApplyUnarySAOp driver procedure

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8354 8c9fc860-2736-0410-a75d-ab315db34111
eth.morozova 6 năm trước cách đây
mục cha
commit
418258b630
1 tập tin đã thay đổi với 1 bổ sung1 xóa
  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;