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