mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-03 04:12:10 +08:00
18 lines
266 B
Plaintext
18 lines
266 B
Plaintext
hack : module
|
|
|
|
dcl i int;
|
|
|
|
fred : proc (a int in, b int loc);
|
|
writetext(stdout, "a was '%C'; b was '%C'.%/", a, b);
|
|
b + := 1;
|
|
end fred;
|
|
|
|
klaus : proc ();
|
|
writetext(stdout, "here's klaus calling.%/");
|
|
end klaus;
|
|
|
|
i:=12;
|
|
writetext(stdout, "done.%/");
|
|
|
|
end hack;
|