فهرست منبع

Added support for inlining of operators accross module boundaries

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7014 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 سال پیش
والد
کامیت
baf22e5453
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      source/FoxPrintout.Mod

+ 2 - 2
source/FoxPrintout.Mod

@@ -1330,7 +1330,7 @@ TYPE
 				Keyword("OPERATOR ");
 
 				first := TRUE;
-				IF x.isInline THEN
+				IF x.isInline  OR x.isOberonInline THEN
 					ASSERT(~x.isDynamic);
 					w.String("-");
 				ELSE
@@ -1361,7 +1361,7 @@ TYPE
 				END;
 
 				IF x.externalName = NIL THEN
-					IF (mode > SymbolFile) OR (mode = SymbolFile) & (x.isInline) THEN
+					IF (mode > SymbolFile) OR (mode = SymbolFile) & (x.isInline OR x.isOberonInline) THEN
 						w.String( ";" );
 						Comments(x.comment,x,TRUE);
 						IF mode >= SymbolFile THEN