paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #4651 + test

Browse Source 
git-svn-id: trunk@2108 -
This commit is contained in:
Jonas Maebe 2006-01-01 20:19:38 +00:00
parent fb4557d71e
commit cbb59be2f1
3 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5941,6 +5941,7 @@ tests/webtbf/tw4569a.pp svneol=native#text/plain
tests/webtbf/tw4569b.pp svneol=native#text/plain tests/webtbf/tw4569b.pp svneol=native#text/plain
tests/webtbf/tw4619a.pp -text svneol=unset#text/plain tests/webtbf/tw4619a.pp -text svneol=unset#text/plain
tests/webtbf/tw4619b.pp svneol=native#text/plain tests/webtbf/tw4619b.pp svneol=native#text/plain
tests/webtbf/tw4651.pp svneol=native#text/plain
tests/webtbf/uw0744.pp svneol=native#text/plain tests/webtbf/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain tests/webtbf/uw0840a.pp svneol=native#text/plain
tests/webtbf/uw0840b.pp svneol=native#text/plain tests/webtbf/uw0840b.pp svneol=native#text/plain

4
compiler/ncal.pas
View File

@ -1661,7 +1661,9 @@ type
not(cnf_inherited in callnodeflags) and not(cnf_inherited in callnodeflags) and
((m_tp_procvar in aktmodeswitches) or ((m_tp_procvar in aktmodeswitches) or
(m_mac_procvar in aktmodeswitches)) and (m_mac_procvar in aktmodeswitches)) and
(symtableprocentry.procdef_count=1) then (symtableprocentry.procdef_count=1) and
(not assigned(methodpointer) or
(methodpointer.nodetype <> typen)) then
begin begin
hpt:=cloadnode.create(tprocsym(symtableprocentry),symtableproc); hpt:=cloadnode.create(tprocsym(symtableprocentry),symtableproc);
if assigned(methodpointer) then if assigned(methodpointer) then

23
tests/webtbf/tw4651.pp Normal file
View File

@ -0,0 +1,23 @@
{ %fail }
{$mode delphi}
program test;
type
TFoo = class(TObject)
constructor Create(Foo: Pointer);
end;
constructor TFoo.Create(Foo: Pointer);
begin
end;
procedure shiny;
var
p: pointer;
M: TFoo.Create;
begin
end;
end.