paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 12:39:09 +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 } { 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) } { constructor in a WIth statement isn't called correct. (works at lest in the case stated) OK 0.99.11 (PM) }
{$static on}
type type
Tbaseclass = object Tbaseclass = object
base_arg : longint; 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 } { generates the same code for both dynamic and virtual methods }
{****************************************************************} {****************************************************************}
program tcalcla1; program tcalcla1;
{$STATIC ON}
{$mode objfpc} {$mode objfpc}
{$R+} {$R+}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

2
tests/webtbf/tw10998a.pp
View File

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

2
tests/webtbf/tw4529.pp
View File

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

2
tests/webtbs/tw10998.pp
View File

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

2
tests/webtbs/tw12242.pp
View File

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

1
tests/webtbs/tw12242a.pp
View File

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

1
tests/webtbs/tw2259.pp
View File

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

2
tests/webtbs/tw2274.pp
View File

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

2
tests/webtbs/tw2317.pp
View File

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

2
tests/webtbs/tw2318.pp
View File

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

2
tests/webtbs/tw2318b.pp
View File

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

2
tests/webtbs/tw2332.pp
View File

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

1
tests/webtbs/tw2480.pp
View File

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

2
tests/webtbs/tw4529.pp
View File

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

2
tests/webtbs/tw6435.pp
View File

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

1
tests/webtbs/uw14124.pp
View File

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