comparison ppc/test/biglocal.p @ 0:bfdcc3820b32

Basis
author Mike Spivey <mike@cs.ox.ac.uk>
date Thu, 05 Oct 2017 08:04:15 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:bfdcc3820b32
1 proc foo(var a: array 10000 of integer);
2 begin a[5000] := 3 end;
3
4 var b: array 10000 of integer;
5 begin foo(b) end.
6
7 (*[[
8 MODULE Main 0 0
9 IMPORT Lib 0
10 ENDHDR
11
12 PROC _foo 0 0 0
13 ! begin a[5000] := 3 end;
14 CONST 3
15 LDLW 16
16 STNW 20000
17 RETURN
18 END
19
20 PROC MAIN 0 0 0
21 ! begin foo(b) end.
22 GLOBAL _b
23 CONST 0
24 GLOBAL _foo
25 PCALL 1
26 RETURN
27 END
28
29 GLOVAR _b 40000
30 ! End
31 ]]*)