paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:42:34 +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 begin
asm asm
call {$ifdef dummy}freemem{$else}fpc_freemem{$endif} call {$ifdef dummy}free1{$else}free2{$endif}
end; end;
end. end.

2
tests/tbs0187.pp
View File

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

4
tests/tbs0198.pp
View File

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

6
tests/tbs0202.pp
View File

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

20
tests/ts010002.pp
View File

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