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

* new bugs

Browse Source
This commit is contained in:
peter 2003-12-03 17:47:42 +00:00
parent bd07b65cfd
commit 267e5fd63e
2 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw2815.pp Normal file
View File

@ -0,0 +1,23 @@
{ %opt=-Sew }
{ Source provided for Free Pascal Bug Report 2815 }
{ Submitted by "Mattias Gaertner" on 2003-11-30 }
{ e-mail: mattias@freepascal.org }
program VirtualCreate;
{$mode objfpc}{$H+}
type
TAbstractClass = class
public
constructor Create;
constructor VirtualCreate; virtual; abstract;
end;
constructor TAbstractClass.Create;
begin
VirtualCreate;
end;
begin
end.

19
tests/webtbs/tw2817.pp Normal file
View File

@ -0,0 +1,19 @@
{ %opt=-Sen }
{ Source provided for Free Pascal Bug Report 2817 }
{ Submitted by "Mattias Gaertner" on 2003-11-30 }
{ e-mail: mattias@freepascal.org }
program UnusedVar;
{$mode objfpc}{$H+}
procedure DoSomething(var Lines: PPChar; var LineCount: integer);
var
p: PPChar;
begin
p:=Lines;
p[LineCount-1]:=nil;
end;
begin
end.