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

tests: remove {$STATIC ON} directive since it is not available anymore

Browse Source 
git-svn-id: trunk@14580 -
This commit is contained in:
paul 2010-01-08 18:01:28 +00:00
parent 2fdf045e74
commit 00624ad7a3
35 changed files with 12 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0156.pp
View File

@ -3,8 +3,6 @@
{ Old file: tbs0187.pp }
{ constructor in a WIth statement isn't called correct. (works at lest in the case stated) OK 0.99.11 (PM) }
{$static on}
type
Tbaseclass = object
base_arg : longint;

1
tests/test/cg/tcalcla1.pp
View File

@ -21,7 +21,6 @@
{ generates the same code for both dynamic and virtual methods }
{****************************************************************}
program tcalcla1;
{$STATIC ON}
{$mode objfpc}
{$R+}

1
tests/test/cg/tcalext.pp
View File

@ -19,7 +19,6 @@
{$ifndef USE_PASCAL_OBJECT}
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
uses strings,ctypes;
{$L ctest.o}

1
tests/test/cg/tcalext2.pp
View File

@ -21,7 +21,6 @@
{$ifndef USE_PASCAL_OBJECT}
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
uses strings;
{$L ctest.o}

1
tests/test/cg/tcalobj1.pp
View File

@ -18,7 +18,6 @@
{ }
{****************************************************************}
program tcalobj1;
{$STATIC ON}
{$R+}
const

1
tests/test/cg/tcalobj2.pp
View File

@ -18,7 +18,6 @@
{ }
{****************************************************************}
program tcalobj2;
{$STATIC ON}
{$R+}
const

1
tests/test/cg/tcalobj3.pp
View File

@ -18,7 +18,6 @@
{ }
{****************************************************************}
program tcalobj3;
{$STATIC ON}
{$R+}
const

3
tests/test/cg/tcalobj4.pp
View File

@ -15,12 +15,11 @@
{ FPC = Target is FreePascal compiler }
{****************************************************************}
{ REMARKS: This tests secondcalln(), genentrycode() and }
{ genexitcode() for standard object with the oldfpccall }
{ genexitcode() for standard object with the oldfpccall }
{ calling convention. }
{ }
{****************************************************************}
program tcalobj4;
{$STATIC ON}
{$R+}
const

1
tests/test/cg/tcalobj6.pp
View File

@ -18,7 +18,6 @@
{ }
{****************************************************************}
program tcalobj6;
{$STATIC ON}
{$R+}
const

1
tests/test/cg/tcalobj7.pp
View File

@ -18,7 +18,6 @@
{ }
{****************************************************************}
program tcalobj7;
{$STATIC ON}
{$R+}
const

1
tests/test/cg/tcalobj8.pp
View File

@ -20,7 +20,6 @@
{ }
{****************************************************************}
program tcalobj8;
{$STATIC ON}
{$R+}
const

1
tests/test/cg/tcalpext.pp
View File

@ -19,7 +19,6 @@
{$define USE_PASCAL_OBJECT}
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
{ Compile ptest.o }
uses

1
tests/test/cg/tcalpvr1.pp
View File

@ -17,7 +17,6 @@
{****************************************************************}
program tcalpvr1;
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
const

1
tests/test/cg/tcalpvr2.pp
View File

@ -17,7 +17,6 @@
{****************************************************************}
program tcalpvr2;
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
const

3
tests/test/cg/tcalpvr3.pp
View File

@ -12,12 +12,11 @@
{ DEFINES: }
{****************************************************************}
{ REMARKS: This tests a subset of the secondcalln() , it }
{ verifies procedural variables for cdecl }
{ verifies procedural variables for cdecl }
{ calling conventions. }
{****************************************************************}
program tcalpvr3;
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
const

3
tests/test/cg/tcalpvr4.pp
View File

@ -14,12 +14,11 @@
{ DEFINES: }
{****************************************************************}
{ REMARKS: This tests a subset of the secondcalln() , it }
{ verifies procedural variables for oldfpccall }
{ verifies procedural variables for oldfpccall }
{ calling conventions. }
{****************************************************************}
program tcalpvr3;
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
const

3
tests/test/cg/tcalpvr6.pp
View File

@ -12,12 +12,11 @@
{ DEFINES: }
{****************************************************************}
{ REMARKS: This tests a subset of the secondcalln() , it }
{ verifies procedural variables for register }
{ verifies procedural variables for register }
{ calling conventions. }
{****************************************************************}
program tcalpvr3;
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
const

3
tests/test/cg/tcalpvr7.pp
View File

@ -12,12 +12,11 @@
{ DEFINES: }
{****************************************************************}
{ REMARKS: This tests a subset of the secondcalln() , it }
{ verifies procedural variables for stdcall }
{ verifies procedural variables for stdcall }
{ calling conventions. }
{****************************************************************}
program tcalpvr3;
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
const

3
tests/test/cg/tcalpvr8.pp
View File

@ -14,12 +14,11 @@
{ DEFINES: }
{****************************************************************}
{ REMARKS: This tests a subset of the secondcalln() , it }
{ verifies procedural variables for saveregisters }
{ verifies procedural variables for saveregisters }
{ calling conventions. }
{****************************************************************}
program tcalpvr3;
{$MODE OBJFPC}
{$STATIC ON}
{$R+}
const

2
tests/test/cg/tobjsiz2.pp
View File

@ -3,8 +3,6 @@
{ here sizeof directly returns a constant value }
{$static on}
type
pbaseclass = ^tbaseclass;
pderivedclass = ^tderivedclass;

2
tests/webtbf/tw10998a.pp
View File

@ -2,7 +2,7 @@
program statictest;
{$mode delphi}{$STATIC ON}
{$mode delphi}
type
TMyClass = class

2
tests/webtbf/tw4529.pp
View File

@ -4,7 +4,7 @@
{ e-mail: vsnijders@quicknet.nl }
program Project1;
{$mode objfpc}{$H+}{$static on}
{$mode objfpc}{$H+}
uses
Classes

2
tests/webtbs/tw10998.pp
View File

@ -1,6 +1,6 @@
program statictest;
{$mode delphi}{$STATIC ON}
{$mode delphi}
type
TMyClass = class

2
tests/webtbs/tw12242.pp
View File

@ -7,7 +7,7 @@
}
program staticbug;
{$mode delphi}{$STATIC ON}
{$mode delphi}
uses
Classes, SysUtils;

1
tests/webtbs/tw12242a.pp
View File

@ -1,5 +1,4 @@
{$mode objfpc}
{$static on}
type
tc = class

1
tests/webtbs/tw2259.pp
View File

@ -1,7 +1,6 @@
{ Source provided for Free Pascal Bug Report 2259 }
{ Submitted by "Sergey Kosarevsky" on 2002-12-14 }
{ e-mail: netsurfer@au.ru }
{$STATIC ON}
Type tObject=Object
ClassFlags:Longint;Static;

2
tests/webtbs/tw2274.pp
View File

@ -3,8 +3,6 @@
{ e-mail: netsurfer@au.ru }
Unit tw2274;
{$STATIC ON}
Interface
Type Lfloat=Single;

2
tests/webtbs/tw2317.pp
View File

@ -2,8 +2,6 @@
{ Submitted by "Sergey Kosarevsky" on 2003-01-09 }
{ e-mail: netsurfer@au.ru }
{$static on}
Type tObject=Object
Function GetVMT:Pointer;Static;
End;

2
tests/webtbs/tw2318.pp
View File

@ -2,8 +2,6 @@
{ Submitted by "Sergey Kosarevsky" on 2003-01-09 }
{ e-mail: netsurfer@au.ru }
{$static on}
Type tObject=Object
Constructor Init;
Function GetVMT:Pointer;Static;

2
tests/webtbs/tw2318b.pp
View File

@ -4,8 +4,6 @@
{ Submitted by "Sergey Kosarevsky" on 2003-01-09 }
{ e-mail: netsurfer@au.ru }
{$static on}
{$R+}
Type tObject=Object

2
tests/webtbs/tw2332.pp
View File

@ -2,8 +2,6 @@
{ Submitted by "Sergey Kosarevsky" on 2003-01-21 }
{ e-mail: netsurfer@au.ru }
{$static on }
Type tObject=Object
Constructor Init;
Function GetVMT:Pointer;Static;

1
tests/webtbs/tw2480.pp
View File

@ -2,7 +2,6 @@
{ Submitted by "Sergey Kosarevsky" on 2003-05-01 }
{ e-mail: netsurfer@au.ru }
{$mode objfpc}
{$static on}
Type tSingleton=Class
Private

2
tests/webtbs/tw4529.pp
View File

@ -3,7 +3,7 @@
{ e-mail: vsnijders@quicknet.nl }
program Project1;
{$mode objfpc}{$H+}{$static on}
{$mode objfpc}{$H+}
uses
Classes

2
tests/webtbs/tw6435.pp
View File

@ -1,7 +1,7 @@
{ %OPT=-gl }
program Project1;
{$mode objfpc}{$H+}{$static on}
{$mode objfpc}{$H+}
type
MyClass = class(TObject)

1
tests/webtbs/uw14124.pp
View File

@ -1,7 +1,6 @@
unit uw14124;
{$mode objfpc}{$H+}
{$static on}
interface