blob: c81f150641e18c7f0acde6c1928c78d47c639ee2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
task hello = t_hello
procedure t_hello()
pointer t1, t2
begin
call malloc (t1, SZ_LINE, TY_CHAR)
call mfree (t1, TY_CHAR)
call malloc (t2, SZ_LINE, TY_INT)
call mfree (t2, TY_INT)
end
|