[Oberon] FPGA - Simple OOP example

[Tomas Kral]

On Tue, 14 Aug 2018 19:05:21 +0200
Jörg <joerg.straube at iaeth.ch> wrote:

> VAR methods: Methods;
> PROCEDURE InitMethods*(VAR m: Methods); BEGIN m := methods END
> Methods;

EDIT

Hi, just thinking further, the above assigns a single pointer, but we
may need to copy all base methods' pointers, that may be
[overriden] overwritten later.

How to copy all methods' pointers?
E.g. like that, correct?

PROCEDURE InitMethods*(VAR m: Methods); 
BEGIN m^ := methods^
END InitMethods;

Many thanks
Tomas

-- 
Tomas Kral <thomas.kral at email.cz>