Allow Revised Oberon array assignment (source may be shorter than target).

This commit is contained in:
David Brown 2016-12-01 17:57:27 +00:00
parent b16e82f866
commit aed9134e99
4 changed files with 20 additions and 17 deletions

View file

@ -19,8 +19,5 @@ BEGIN
COPY(a30, a10); Console.String("a10: "); Console.String(a10); Console.Ln;
Console.String("a20: "); Console.String(a20); Console.Ln;
Console.Ln;
a10 := a30; Console.String("a10: "); Console.String(a10); Console.Ln;
Console.String("a20: "); Console.String(a20); Console.Ln;
Console.Ln;
Console.String("Array assignment test complete."); Console.Ln;
END aa.

View file

@ -4,7 +4,4 @@ a20: 1st 10 ch 2nd 10 ch
a10: 1st 10 ch
a20: 1st 10 ch 2nd 10 ch
a10: 1st 10 ch
a20: 1st 10 ch 2nd 10 ch
Array assignment test complete.