annotate ppc/test/infloop.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();
mike@0 2 begin
mike@0 3 while true do newline() end
mike@0 4 end;
mike@0 5
mike@0 6 begin end.
mike@0 7
mike@0 8 (*[[
mike@0 9 MODULE Main 0 0
mike@0 10 IMPORT Lib 0
mike@0 11 ENDHDR
mike@0 12
mike@0 13 PROC _foo 0 0 0
mike@0 14 LABEL L1
mike@0 15 ! while true do newline() end
mike@0 16 CONST 0
mike@0 17 GLOBAL lib.newline
mike@0 18 PCALL 0
mike@0 19 JUMP L1
mike@0 20 END
mike@0 21
mike@0 22 PROC MAIN 0 0 0
mike@0 23 ! begin end.
mike@0 24 RETURN
mike@0 25 END
mike@0 26
mike@0 27 ! End
mike@0 28 ]]*)