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

ulmEvents.Mod does not use C/asm code anymore. getaddr code procedure is

Browse source 
replaced by more correct SYSTEM.VAL calls.

added Readme and FAQ
This commit is contained in:
Norayr Chilingarian 2013-10-10 19:16:50 +04:00
parent e81c21e56f
commit 0d9024e4ae
3 changed files with 55 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
src/lib/ulm/gnuc/ulmEvents.Mod → src/lib/ulm/ulmEvents.Mod
View file

@ -294,22 +294,20 @@ MODULE ulmEvents;
loghandler := log;
END GetLog;
(* noch *)
PROCEDURE -getaddr(handler: EventHandler): LONGINT
"(LONGINT)&handler";
PROCEDURE NilHandler*(event: Event);
(* an empty event handler *)
END NilHandler;
(* now QueueHandler will translate partly like
i = (long)&handler;
j = (long)&ulmEvents_NilHandler;
b = i != j;
if (!(b)) {SYSTEM_assert = 0; SYSTEM_HALT(-1);};
; noch
BOOLEAN b;
handler_EventHandler tmphandler;
LONGINT i, j;
i = (LONGINT)handler;
tmphandler = handler_NilHandler;
j = (LONGINT)tmphandler;
b = i != j;
*)
(* changed because voc cannot compara handler and NilHandler -- noch *)
PROCEDURE QueueHandler*(handler: EventHandler);
(* setup an alternative handler of events
@ -317,11 +315,14 @@ MODULE ulmEvents;
of their unsufficient priority
*)
VAR b : BOOLEAN; (* noch *)
tmphandler : EventHandler;
i,j : LONGINT;
BEGIN
i := getaddr(handler);
j := getaddr(NilHandler);
i := SYSTEM.VAL(LONGINT, handler);
tmphandler := NilHandler;
j := SYSTEM.VAL(LONGINT, tmphandler);
b := i # j;
b := handler # tmphandler;
(*ASSERT (handler # NilHandler);*)
ASSERT(b);
queueHandler := handler;