mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 09:08:00 +02:00
f6c16323fa
+ var parameters are now allowed when doing tail recursion optimziation, resolves #32811 git-svn-id: trunk@43824 -
27 lines
362 B
ObjectPascal
27 lines
362 B
ObjectPascal
|
|
type
|
|
pnode = ^node;
|
|
node = record
|
|
i: integer;
|
|
left: pnode;
|
|
right: pnode;
|
|
end;
|
|
|
|
procedure insert(var t: pnode; i: integer);
|
|
begin
|
|
if t = nil then
|
|
begin
|
|
new(t);
|
|
t^.i := i;
|
|
t^.left := nil;
|
|
t^.right := nil;
|
|
end
|
|
else
|
|
if i < t^.i
|
|
then insert(t^.left, i)
|
|
else insert(t^.right, i);
|
|
end;
|
|
|
|
begin
|
|
end.
|