2
0
Эх сурвалжийг харах

remove inline flag

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7296 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore 8 жил өмнө
parent
commit
a60fb4dfda
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      source/AGfxPaths.Mod

+ 1 - 1
source/AGfxPaths.Mod

@@ -627,7 +627,7 @@ MODULE GfxPaths; (** portable *)	(* eos  *)
 				END
 			END Scan;
 			
-			PROCEDURE- get (VAR x, y: REAL);
+			PROCEDURE get (VAR x, y: REAL);
 			BEGIN
 				IF SELF.cpos = CoordBlockSize THEN
 					SELF.curCB := SELF.curCB.next; SELF.cpos := 0