home *** CD-ROM | disk | FTP | other *** search
- This is the Oberon version compiler with Oberon-2 V3.11 and V40.xx includes
-
- Hmm there is a bug in the compiler or a mistake of mine about the language!
-
- I does the following:
-
- PROCEDURE GEP(year : INTEGER) : SHORTINT;
-
- .
- .
- .
- .
-
- VAR
- m : SHORTINT;
-
- BEGIN
- m := 30 - GEP(1994);
- .
- .
- .
-
-
- So at runtime the comes a message frome the runtimesystem like:
- unknown instruction
-
- You could test this with the option 45 in the test programm
-