git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8619 8c9fc860-2736-0410-a75d-ab315db34111
@@ -178,7 +178,7 @@ TYPE
END;
BusyLoopCallback* = PROCEDURE{DELEGATE}(VAR res: WORD): BOOLEAN;
-
+
UartId* = SIZE;
ClockFrequency* = LONGINT;
@@ -450,8 +450,9 @@ VAR
BEGIN
IF ~(XUARTPS_SR_RXEMPTY IN uart.sr) THEN
RETURN 1;
+ ELSE
+ RETURN 0;
- RETURN 0;
END Available;
END PsUartMin.