Browse Source

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

git-svn-id: trunk@14580 -
paul 15 years ago
parent
commit
00624ad7a3

+ 0 - 2
tests/tbs/tb0156.pp

@@ -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;

+ 0 - 1
tests/test/cg/tcalcla1.pp

@@ -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+}
 
 

+ 0 - 1
tests/test/cg/tcalext.pp

@@ -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}

+ 0 - 1
tests/test/cg/tcalext2.pp

@@ -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}

+ 0 - 1
tests/test/cg/tcalobj1.pp

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

+ 0 - 1
tests/test/cg/tcalobj2.pp

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

+ 0 - 1
tests/test/cg/tcalobj3.pp

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

+ 1 - 2
tests/test/cg/tcalobj4.pp

@@ -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

+ 0 - 1
tests/test/cg/tcalobj6.pp

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

+ 0 - 1
tests/test/cg/tcalobj7.pp

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

+ 0 - 1
tests/test/cg/tcalobj8.pp

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

+ 0 - 1
tests/test/cg/tcalpext.pp

@@ -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

+ 0 - 1
tests/test/cg/tcalpvr1.pp

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

+ 0 - 1
tests/test/cg/tcalpvr2.pp

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

+ 1 - 2
tests/test/cg/tcalpvr3.pp

@@ -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

+ 1 - 2
tests/test/cg/tcalpvr4.pp

@@ -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

+ 1 - 2
tests/test/cg/tcalpvr6.pp

@@ -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

+ 1 - 2
tests/test/cg/tcalpvr7.pp

@@ -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

+ 1 - 2
tests/test/cg/tcalpvr8.pp

@@ -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

+ 0 - 2
tests/test/cg/tobjsiz2.pp

@@ -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;

+ 1 - 1
tests/webtbf/tw10998a.pp

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

+ 1 - 1
tests/webtbf/tw4529.pp

@@ -4,7 +4,7 @@
 { e-mail: [email protected] }
 { e-mail: [email protected] }
 program Project1;
 program Project1;
 
 
-{$mode objfpc}{$H+}{$static on}
+{$mode objfpc}{$H+}
 
 
 uses
 uses
   Classes
   Classes

+ 1 - 1
tests/webtbs/tw10998.pp

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

+ 1 - 1
tests/webtbs/tw12242.pp

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

+ 0 - 1
tests/webtbs/tw12242a.pp

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

+ 0 - 1
tests/webtbs/tw2259.pp

@@ -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: [email protected] }
 { e-mail: [email protected] }
-{$STATIC ON}
 
 
 Type tObject=Object
 Type tObject=Object
         ClassFlags:Longint;Static;
         ClassFlags:Longint;Static;

+ 0 - 2
tests/webtbs/tw2274.pp

@@ -3,8 +3,6 @@
 { e-mail: [email protected] }
 { e-mail: [email protected] }
 Unit tw2274;
 Unit tw2274;
 
 
-{$STATIC ON}
-
 Interface
 Interface
 
 
 Type Lfloat=Single;
 Type Lfloat=Single;

+ 0 - 2
tests/webtbs/tw2317.pp

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

+ 0 - 2
tests/webtbs/tw2318.pp

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

+ 0 - 2
tests/webtbs/tw2318b.pp

@@ -4,8 +4,6 @@
 { Submitted by "Sergey Kosarevsky" on  2003-01-09 }
 { Submitted by "Sergey Kosarevsky" on  2003-01-09 }
 { e-mail: [email protected] }
 { e-mail: [email protected] }
 
 
-{$static on}
-
 {$R+}
 {$R+}
 
 
 Type tObject=Object
 Type tObject=Object

+ 0 - 2
tests/webtbs/tw2332.pp

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

+ 0 - 1
tests/webtbs/tw2480.pp

@@ -2,7 +2,6 @@
 { Submitted by "Sergey Kosarevsky" on  2003-05-01 }
 { Submitted by "Sergey Kosarevsky" on  2003-05-01 }
 { e-mail: [email protected] }
 { e-mail: [email protected] }
 {$mode objfpc}
 {$mode objfpc}
-{$static on}
 
 
 Type tSingleton=Class
 Type tSingleton=Class
        Private
        Private

+ 1 - 1
tests/webtbs/tw4529.pp

@@ -3,7 +3,7 @@
 { e-mail: [email protected] }
 { e-mail: [email protected] }
 program Project1;
 program Project1;
 
 
-{$mode objfpc}{$H+}{$static on}
+{$mode objfpc}{$H+}
 
 
 uses
 uses
   Classes
   Classes

+ 1 - 1
tests/webtbs/tw6435.pp

@@ -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)

+ 0 - 1
tests/webtbs/uw14124.pp

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