mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:09:19 +02:00
* disable (type ...), it did never work and there are not test, resolves #40562
This commit is contained in:
parent
328ff5f0c3
commit
2d1fba1fa1
@ -410,9 +410,10 @@ implementation
|
|||||||
if (m_mac in current_settings.modeswitches) then
|
if (m_mac in current_settings.modeswitches) then
|
||||||
is_univ:=try_to_consume(_UNIV);
|
is_univ:=try_to_consume(_UNIV);
|
||||||
|
|
||||||
|
{ this is not really working and generates internal errors
|
||||||
if try_to_consume(_TYPE) then
|
if try_to_consume(_TYPE) then
|
||||||
hdef:=ctypedformaltype
|
hdef:=ctypedformaltype
|
||||||
else
|
else }
|
||||||
begin
|
begin
|
||||||
block_type:=bt_var_type;
|
block_type:=bt_var_type;
|
||||||
single_type(hdef,[stoAllowSpecialization]);
|
single_type(hdef,[stoAllowSpecialization]);
|
||||||
|
10
tests/webtbf/tw40562.pp
Normal file
10
tests/webtbf/tw40562.pp
Normal file
@ -0,0 +1,10 @@
|
|||||||
|
{ %fail }
|
||||||
|
program Project1;
|
||||||
|
|
||||||
|
procedure Foo(b: type );
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
foo(1); // error here
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user