mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 14:29:14 +02:00
* new bugs
This commit is contained in:
parent
c466e75da1
commit
da13406760
7
tests/webtbs/tw2266.pp
Normal file
7
tests/webtbs/tw2266.pp
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
{$i uw2266a}
|
||||||
|
{$i uw2266b}
|
||||||
|
|
||||||
|
begin
|
||||||
|
p1;
|
||||||
|
p2;
|
||||||
|
end.
|
11
tests/webtbs/tw2267.pp
Normal file
11
tests/webtbs/tw2267.pp
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
{ Source provided for Free Pascal Bug Report 2267 }
|
||||||
|
{ Submitted by "Marco" on 2002-12-19 }
|
||||||
|
{ e-mail: marco@freepascal.org }
|
||||||
|
type theenum=(aa,bb,cc);
|
||||||
|
|
||||||
|
var i,j : integer;
|
||||||
|
k :theenum;
|
||||||
|
|
||||||
|
begin
|
||||||
|
k:=theenum(i<j);
|
||||||
|
end.
|
19
tests/webtbs/tw2268.pp
Normal file
19
tests/webtbs/tw2268.pp
Normal file
@ -0,0 +1,19 @@
|
|||||||
|
{ Source provided for Free Pascal Bug Report 2268 }
|
||||||
|
{ Submitted by "marco" on 2002-12-19 }
|
||||||
|
{ e-mail: marco@freepascal.org }
|
||||||
|
{$ifdef fpc}{$mode TP}{$endif}
|
||||||
|
|
||||||
|
function P1:longint; begin end;
|
||||||
|
function P2:longint; begin end;
|
||||||
|
function P3:longint; begin end;
|
||||||
|
function Help:longint; begin end;
|
||||||
|
|
||||||
|
type Fn = function : longint ;
|
||||||
|
const PArr : array [0..3] of Fn = (Help, P1, P2, P3) ;
|
||||||
|
|
||||||
|
procedure bla(const i:longint); begin end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
bla(PArr[Paramcount]);
|
||||||
|
end.
|
||||||
|
|
9
tests/webtbs/tw2269.pp
Normal file
9
tests/webtbs/tw2269.pp
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
{ Source provided for Free Pascal Bug Report 2269 }
|
||||||
|
{ Submitted by "marco" on 2002-12-19 }
|
||||||
|
{ e-mail: marco@freepascal.org }
|
||||||
|
|
||||||
|
{$I uw2269.inc - some more text that should be ignored}
|
||||||
|
|
||||||
|
begin
|
||||||
|
p;
|
||||||
|
end.
|
15
tests/webtbs/tw2270.pp
Normal file
15
tests/webtbs/tw2270.pp
Normal file
@ -0,0 +1,15 @@
|
|||||||
|
{ Source provided for Free Pascal Bug Report 2270 }
|
||||||
|
{ Submitted by "marco" on 2002-12-19 }
|
||||||
|
{ e-mail: marco@freepascal.org }
|
||||||
|
type zheenum = (aa,bb,cc);
|
||||||
|
zheset = set of zheenum;
|
||||||
|
|
||||||
|
var l :word;
|
||||||
|
o :zheenum;
|
||||||
|
|
||||||
|
begin
|
||||||
|
if o IN zheset(lo(l)) Then
|
||||||
|
;
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
14
tests/webtbs/tw2273.pp
Normal file
14
tests/webtbs/tw2273.pp
Normal file
@ -0,0 +1,14 @@
|
|||||||
|
{ Source provided for Free Pascal Bug Report 2273 }
|
||||||
|
{ Submitted by "Sergey Kosarevsky" on 2002-12-21 }
|
||||||
|
{ e-mail: netsurfer@au.ru }
|
||||||
|
Type tSomething=Object
|
||||||
|
Constructor Init;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Constructor tSomething.Init;
|
||||||
|
Begin
|
||||||
|
Inherited Init;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Begin
|
||||||
|
End.
|
59
tests/webtbs/tw2274.pp
Normal file
59
tests/webtbs/tw2274.pp
Normal file
@ -0,0 +1,59 @@
|
|||||||
|
{ Source provided for Free Pascal Bug Report 2274 }
|
||||||
|
{ Submitted by "Sergey Kosarevsky" on 2002-12-21 }
|
||||||
|
{ e-mail: netsurfer@au.ru }
|
||||||
|
Unit tw2274;
|
||||||
|
|
||||||
|
{$STATIC ON}
|
||||||
|
|
||||||
|
Interface
|
||||||
|
|
||||||
|
Type Lfloat=Single;
|
||||||
|
|
||||||
|
Type pTimer=^tTimer;
|
||||||
|
tTimer=Object
|
||||||
|
Private
|
||||||
|
RecepCyclesPerSecond:Lfloat;Static; // 1/CyclesPerSecond
|
||||||
|
OldCycles:Int64;
|
||||||
|
NewCycles:Int64;
|
||||||
|
WorldUpTime:Lfloat;
|
||||||
|
Public
|
||||||
|
Constructor Init;
|
||||||
|
// tTimer
|
||||||
|
Function GetDeltaSeconds:Lfloat;
|
||||||
|
Function GetWorldTime:Lfloat; // in seconds
|
||||||
|
Function GetCycles:Int64;Static;
|
||||||
|
Function GetSeconds:Lfloat;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Implementation
|
||||||
|
|
||||||
|
Constructor tTimer.Init;
|
||||||
|
Begin
|
||||||
|
RecepCyclesPerSecond:=0;
|
||||||
|
OldCycles:=GetCycles;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Function tTimer.GetWorldTime:Lfloat;
|
||||||
|
Begin
|
||||||
|
Exit(GetSeconds-WorldUpTime);
|
||||||
|
End;
|
||||||
|
|
||||||
|
Function tTimer.GetCycles:Int64;
|
||||||
|
begin
|
||||||
|
GetCycles:=0;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Function tTimer.GetDeltaSeconds:Lfloat;
|
||||||
|
Begin
|
||||||
|
NewCycles:=GetCycles;
|
||||||
|
GetDeltaSeconds:=(NewCycles-OldCycles)*RecepCyclesPerSecond;
|
||||||
|
OldCycles:=NewCycles;
|
||||||
|
End;
|
||||||
|
|
||||||
|
Function tTimer.GetSeconds:Lfloat;
|
||||||
|
Begin
|
||||||
|
Exit(GetCycles*RecepCyclesPerSecond);
|
||||||
|
End;
|
||||||
|
|
||||||
|
Begin
|
||||||
|
End.
|
4
tests/webtbs/uw2266a.inc
Normal file
4
tests/webtbs/uw2266a.inc
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
procedure p1;
|
||||||
|
begin
|
||||||
|
writeln('Hello');
|
||||||
|
end;
|
4
tests/webtbs/uw2266b.pas
Normal file
4
tests/webtbs/uw2266b.pas
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
procedure p2;
|
||||||
|
begin
|
||||||
|
writeln('Hello');
|
||||||
|
end;
|
4
tests/webtbs/uw2269.inc
Normal file
4
tests/webtbs/uw2269.inc
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
procedure p;
|
||||||
|
begin
|
||||||
|
writeln('Hello');
|
||||||
|
end;
|
Loading…
Reference in New Issue
Block a user