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

ulmEvents fixed, beautified

Browse source 
Former-commit-id: 015afee491
This commit is contained in:
Norayr Chilingarian 2013-11-06 14:42:28 +04:00
parent f8278895f8
commit 26337b94e6
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; MODULE ulmEvents;
IMPORT Objects := ulmObjects, Priorities := ulmPriorities, Services := ulmServices, SYS := ulmSYSTEM, SYSTEM; IMPORT Objects := ulmObjects, Priorities := ulmPriorities, Services := ulmServices, SYS := ulmSYSTEM;
TYPE TYPE
EventType* = POINTER TO EventTypeRec; EventType* = POINTER TO EventTypeRec;
@ -316,12 +316,13 @@ MODULE ulmEvents;
*) *)
VAR b : BOOLEAN; (* noch *) VAR b : BOOLEAN; (* noch *)
tmphandler : EventHandler; tmphandler : EventHandler;
i,j : LONGINT; (*i,j : LONGINT;*)
BEGIN BEGIN
i := SYSTEM.VAL(LONGINT, handler); (*i := SYSTEM.VAL(LONGINT, handler);*)
tmphandler := NilHandler; tmphandler := NilHandler;
j := SYSTEM.VAL(LONGINT, tmphandler); (*b := tmphandler = handler;*)
b := i # j; (*j := SYSTEM.VAL(LONGINT, tmphandler);
b := i # j;*)
b := handler # tmphandler; b := handler # tmphandler;
(*ASSERT (handler # NilHandler);*) (*ASSERT (handler # NilHandler);*)
ASSERT(b); ASSERT(b);