annotate ppc/test/biglocal.p @ 1:b5139af1a420 tip basis

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