Minor issues with inline operators (allow Oberon inline for stream operator on ports)

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

source/FoxParser.Mod

@@ -1886,7 +1886,9 @@ TYPE
 			END;
 
 			IF Peek(Scanner.String) OR Peek(Scanner.Character)  THEN (* for compatibility with release *)
-				OperatorDeclaration( parentScope );  RETURN
+				OperatorDeclaration( parentScope );  
+				procedure.SetInline(isInline);
+				RETURN
 			END;
 
 			position:= symbol.position;
@@ -1945,7 +1947,7 @@ TYPE
 				modifiers := Flags();
 			END;
 			IF Optional( Scanner.Minus ) THEN  (* inline *)
-				isInline := TRUE
+				isInline := TRUE;
 			END;
 
 			IF MandatoryString( string ) THEN
@@ -1960,6 +1962,8 @@ TYPE
 			ELSIF Optional( Scanner.Minus ) THEN access := SyntaxTree.ReadOnly;
 			ELSE access := SyntaxTree.Internal;
 			END;
+			
+
 			procedureScope := SyntaxTree.NewProcedureScope(parentScope);
 			operator := SyntaxTree.NewOperator( symbol.position, SyntaxTree.NewIdentifier(string^), procedureScope);
 			CommentSymbol(operator);

source/FoxSemanticChecker.Mod

@@ -4577,7 +4577,7 @@ TYPE
 		PROCEDURE CanPassInRegister*(type: SyntaxTree.Type): BOOLEAN;
 		BEGIN
 			type := type.resolved;
-			IF (type IS SyntaxTree.BasicType) & ~type.IsPointer() & ~type.IsComposite() THEN
+			IF (type IS SyntaxTree.BasicType) & ~type.IsPointer() & ~type.IsComposite() OR (type IS SyntaxTree.PortType) THEN
 				RETURN TRUE
 			ELSIF system.CanPassInRegister # NIL THEN
 				RETURN system.CanPassInRegister(type);