Update typeclass errors
This commit is contained in:
parent
8c5cb25295
commit
9933458caf
|
|
@ -1,8 +1,13 @@
|
|||
type
|
||||
tc1[T] = typeclass end;
|
||||
tc1[T] = typeclass
|
||||
end;
|
||||
|
||||
I1=interface end;
|
||||
tc1[I1] = instance end;//не должно компилироваться
|
||||
I1=interface
|
||||
end;
|
||||
|
||||
tc1[I1] = instance
|
||||
end;//не должно компилироваться
|
||||
|
||||
begin
|
||||
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -1,13 +1,9 @@
|
|||
type
|
||||
tc1[T] = typeclass
|
||||
end;
|
||||
type
|
||||
tc1[T]=typeclass end;
|
||||
|
||||
I1=interface
|
||||
tc1[integer]=instance
|
||||
function f1: integer := 1;
|
||||
end;
|
||||
|
||||
tc1[I1] = instance
|
||||
end;//не должно компилироваться
|
||||
|
||||
begin
|
||||
|
||||
end.
|
||||
|
|
|
|||
Loading…
Reference in a new issue