annotate 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
rev   line source
0
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
1 proc foo();
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
2 begin
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
3 while true do newline() end
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
4 end;
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
5
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
6 begin end.
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
7
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
8 (*[[
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
9 MODULE Main 0 0
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
10 IMPORT Lib 0
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
11 ENDHDR
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
12
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
13 PROC _foo 0 0 0
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
14 LABEL L1
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
15 ! while true do newline() end
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
16 CONST 0
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
17 GLOBAL lib.newline
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
18 PCALL 0
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
19 JUMP L1
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
20 END
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
21
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
22 PROC MAIN 0 0 0
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
23 ! begin end.
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
24 RETURN
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
25 END
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
26
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
27 ! End
Mike Spivey <mike@cs.ox.ac.uk>
parents:
diff changeset
28 ]]*)