made OpenType.LoadGlyph() and OpenTypeInt.Execute() EXCLUSIVE to prevent

Traps at system startup when the saved desktop contains more than one 
document with TrueType fonts.

git-svn-id: https://svn-dept.inf.ethz.ch/svn/lecturers/a2/trunk@8738 8c9fc860-2736-0410-a75d-ab315db34111

source/OpenType.Mod

@@ -1216,7 +1216,7 @@ MODULE OpenType;	(** AUTHOR "eos, PL"; PURPOSE "Bluebottle port of OpenType"; *)
 		VAR
 			font: Font; aw, xmin, ymin, xmax, ymax: F26D6; n: INTEGER;
 			cur: OpenTypeInt.Coord; rules: SET;
-	BEGIN
+	BEGIN {EXCLUSIVE}
 		ASSERT(inst.font = glyph.font, 100);
 		ASSERT((0 <= num) & (num < glyph.font.maxp.numGlyphs), 101);
 		font := glyph.font;

source/OpenTypeInt.Mod

@@ -1994,7 +1994,7 @@ BEGIN
 END NewCVT;
 
 PROCEDURE NewZone* (VAR zone: Zone; contours, points: INTEGER);
-BEGIN
+BEGIN {EXCLUSIVE}
 	NEW(zone); zone.contours := contours;
 	NEW(zone.first, contours+1);
 	IF points > 0 THEN NEW(zone.pt, points) ELSE zone.pt := NIL END;