git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7986 8c9fc860-2736-0410-a75d-ab315db34111
@@ -251,7 +251,8 @@ VAR
uart.regs.ier := (RxDataInterrupts+RxErrorInterrupts+TxErrorInterrupts);
UartMin.Enable(uart.regs,TRUE);
-
+
+ res := 0;
uart.open := TRUE;
END Open;
@@ -433,7 +434,7 @@ VAR
BEGIN
IF ~uart.open THEN res := UartMin.Closed; RETURN; END;
- res := UartMin.Ok;
len := 0;
IF size = 0 THEN RETURN; END;