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

* updated

Browse Source
This commit is contained in:
peter 1999-03-26 00:03:30 +00:00
parent 325eb0860b
commit b4f8802354
5 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/tbs0170.pp
View File

@ -1,6 +1,13 @@
procedure free1;
begin
end;
procedure free2;
begin
end;
begin
asm
call {$ifdef dummy}freemem{$else}fpc_freemem{$endif}
call {$ifdef dummy}free1{$else}free2{$endif}
end;
end.

2
tests/tbs0187.pp
View File

@ -1,6 +1,8 @@
{ $OPT=-St -Cr }
program test;
{$static on}
{$ifdef go32v2}
uses dpmiexcp;
{$endif go32v2}

4
tests/tbs0198.pp
View File

@ -6,5 +6,9 @@ type
function GetCaps : Longint;virtual;stdcall;abstract;
end;
function to1.GetCaps2 : Longint;
begin
end;
begin
end.

6
tests/tbs0202.pp
View File

@ -24,8 +24,8 @@ begin
compare(45,2);
if not greater then
error;
compare(-5,26)
if greater then
error;
compare(-5,26);
if greater then
error;
end.

20
tests/ts010002.pp
View File

@ -1,4 +1,4 @@
{ $OPT=-S2 -al -s }
{ $OPT=-S2 }
{
$Id$
@ -24,14 +24,14 @@ Unit ts010002;
{$M+}
Interface
Interface
Type
{ ---------------------------------------------------------------------
{ ---------------------------------------------------------------------
Forward Declarations.
---------------------------------------------------------------------}
TComponent = Class;
TFiler = Class;
TPersistent = Class;
@ -76,14 +76,14 @@ Type
end;
{ ---------------------------------------------------------------------
TComponent
TComponent
---------------------------------------------------------------------}
TComponentState = Set of ( csLoading, csReading, CsWriting, csDestroying,
csDesigning, csAncestor, csUpdating, csFixups );
TComponentState = Set of ( csLoading, csReading, CsWriting, csDestroying,
csDesigning, csAncestor, csUpdating, csFixups );
TComponentStyle = set of ( csInheritable,csCheckPropAvail );
TComponentName = String;
TComponent = Class (TPersistent)
Protected
FComponentState : TComponentState;
@ -116,7 +116,7 @@ Type
Implementation
{ ---------------------------------------------------------------------
TComponent
TComponent
---------------------------------------------------------------------}
Function TComponent.GetComponent (Index : Longint) : TComponent;
@ -208,7 +208,7 @@ end;
Procedure TPersistent.Assign (Source : TPersistent);
begin
end;