Re (2): [Oberon] NO: Kernel procedure not implemented

edgar at edgarschwarz.de edgar at edgarschwarz.de
Fri Nov 21 21:52:29 CET 2003


Pieter Muller <pieter.muller at alumni.ethz.ch>
> edgar at edgarschwarz.de wrote:
> >	Error = "Unsupported kernel procedure"
> >	Num = 249
> >				|   249: offs := link[i].link; 	(* Passivate(adr, ebp: LONGINT) *)
> >						WHILE offs # 0FFFFH DO
> >							SYSTEM.GET(codebase + offs, val); SYSTEM.PUT(codebase + offs, Kernel.ModuleData[5] - (codebase + offs + 4));
> >							offs := MSW(val);
> >						END
> The code appears to be using an AWAIT statement, which is not supported 
> on Native Oberon.  (Neither are EXCLUSIVE statements).
Bingo. A thing to look for when porting code from Aos to NO !
Perhaps the '(* Passivate(adr, ebp: LONGINT) *)' in the code could have given me
an idea :-)
OTOH, the compiler could have given an error.

Thanks Pieter !

Cheers, Edgar

-- 
edgar at edgarschwarz.de                  "http://www.edgarschwarz.de"
"http://www.edgar-schwarz.de/forum/oberon"    Running Active Oberon
Make it as simple as possible, but not simpler.     Albert Einstein



More information about the Oberon mailing list