vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ulmEvents fixed, beautified

Browse source
This commit is contained in:
Norayr Chilingarian 2013-11-06 14:42:28 +04:00
parent 534c0549fd
commit 015afee491
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/lib/ulm/ulmEvents.Mod
View file

@ -39,7 +39,7 @@
MODULE ulmEvents;
IMPORT Objects := ulmObjects, Priorities := ulmPriorities, Services := ulmServices, SYS := ulmSYSTEM, SYSTEM;
IMPORT Objects := ulmObjects, Priorities := ulmPriorities, Services := ulmServices, SYS := ulmSYSTEM;
TYPE
EventType* = POINTER TO EventTypeRec;
@ -316,12 +316,13 @@ MODULE ulmEvents;
*)
VAR b : BOOLEAN; (* noch *)
tmphandler : EventHandler;
i,j : LONGINT;
(*i,j : LONGINT;*)
BEGIN
i := SYSTEM.VAL(LONGINT, handler);
(*i := SYSTEM.VAL(LONGINT, handler);*)
tmphandler := NilHandler;
j := SYSTEM.VAL(LONGINT, tmphandler);
b := i # j;
(*b := tmphandler = handler;*)
(*j := SYSTEM.VAL(LONGINT, tmphandler);
b := i # j;*)
b := handler # tmphandler;
(*ASSERT (handler # NilHandler);*)
ASSERT(b);