Explorar el Código

* added override and virtual for constructors

peter hace 24 años
padre
commit
f9794d6904

+ 5 - 2
compiler/export.pas

@@ -55,7 +55,7 @@ type
       procedure NotSupported;
    public
       edatalabel : tasmlabel;
-      constructor Create;
+      constructor Create;virtual;
       destructor Destroy;override;
       procedure preparelib(const s : string);virtual;
       procedure exportprocedure(hp : texported_item);virtual;
@@ -180,7 +180,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.15  2001-06-06 21:58:16  peter
+  Revision 1.16  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.15  2001/06/06 21:58:16  peter
     * Win32 fixes for Makefile so it doesn't require sh.exe
 
   Revision 1.14  2001/04/18 22:01:53  peter

+ 5 - 2
compiler/import.pas

@@ -54,7 +54,7 @@ type
       notsupmsg : boolean;
       procedure NotSupported;
    public
-      constructor Create;
+      constructor Create;virtual;
       destructor Destroy;override;
       procedure preparelib(const s:string);virtual;
       procedure importprocedure(const func,module:string;index:longint;const name:string);virtual;
@@ -237,7 +237,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.13  2001-04-18 22:01:54  peter
+  Revision 1.14  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.13  2001/04/18 22:01:54  peter
     * registration of targets and assemblers
 
   Revision 1.12  2001/04/13 01:22:08  peter

+ 5 - 2
compiler/link.pas

@@ -52,7 +52,7 @@ Type
        SharedLibFiles,
        StaticLibFiles  : TStringList;
      { Methods }
-       Constructor Create;
+       Constructor Create;virtual;
        Destructor Destroy;override;
        procedure AddModuleFiles(hp:tmodule);
        function  FindObjectFile(s : string;const unitpath:string) : string;
@@ -482,7 +482,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.17  2001-06-03 15:15:31  peter
+  Revision 1.18  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.17  2001/06/03 15:15:31  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

+ 5 - 2
compiler/targets/t_beos.pas

@@ -49,7 +49,7 @@ interface
     private
       Function  WriteResponseFile(isdll:boolean;makelib:boolean) : Boolean;
     public
-      constructor Create;
+      constructor Create;override;
       procedure SetDefaultInfo;override;
       function  MakeExecutable:boolean;override;
       function  MakeSharedLibrary:boolean;override;
@@ -496,7 +496,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.2  2001-06-03 15:15:31  peter
+  Revision 1.3  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.2  2001/06/03 15:15:31  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

+ 5 - 2
compiler/targets/t_fbsd.pas

@@ -59,7 +59,7 @@ implementation
       Glibc21 : boolean;
       Function  WriteResponseFile(isdll:boolean) : Boolean;
     public
-      constructor Create;
+      constructor Create;override;
       procedure SetDefaultInfo;override;
       function  MakeExecutable:boolean;override;
       function  MakeSharedLibrary:boolean;override;
@@ -505,7 +505,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.6  2001-06-03 15:15:31  peter
+  Revision 1.7  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.6  2001/06/03 15:15:31  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

+ 5 - 2
compiler/targets/t_go32v1.pas

@@ -35,7 +35,7 @@ interface
     private
        Function  WriteResponseFile(isdll:boolean) : Boolean;
     public
-       constructor Create;
+       constructor Create;override;
        procedure SetDefaultInfo;override;
        function  MakeExecutable:boolean;override;
     end;
@@ -245,7 +245,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.5  2001-06-03 15:15:31  peter
+  Revision 1.6  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.5  2001/06/03 15:15:31  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

+ 5 - 2
compiler/targets/t_go32v2.pas

@@ -41,7 +41,7 @@ implementation
        Function  WriteResponseFile(isdll:boolean) : Boolean;
        Function  WriteScript(isdll:boolean) : Boolean;
     public
-       constructor Create;
+       constructor Create;override;
        procedure SetDefaultInfo;override;
        function  MakeExecutable:boolean;override;
     end;
@@ -473,7 +473,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.6  2001-06-18 20:36:26  peter
+  Revision 1.7  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.6  2001/06/18 20:36:26  peter
     * -Ur switch (merged)
     * masm fixes (merged)
     * quoted filenames for go32v2 and win32

+ 5 - 2
compiler/targets/t_linux.pas

@@ -51,7 +51,7 @@ interface
       Glibc21 : boolean;
       Function  WriteResponseFile(isdll:boolean) : Boolean;
     public
-      constructor Create;
+      constructor Create;override;
       procedure SetDefaultInfo;override;
       function  MakeExecutable:boolean;override;
       function  MakeSharedLibrary:boolean;override;
@@ -697,7 +697,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.8  2001-06-04 11:51:06  peter
+  Revision 1.9  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.8  2001/06/04 11:51:06  peter
     * C linking fixed
 
   Revision 1.7  2001/06/03 15:15:31  peter

+ 5 - 2
compiler/targets/t_nwm.pas

@@ -112,7 +112,7 @@ implementation
     private
       Function  WriteResponseFile(isdll:boolean) : Boolean;
     public
-      constructor Create;
+      constructor Create;override;
       procedure SetDefaultInfo;override;
       function  MakeExecutable:boolean;override;
     end;
@@ -511,7 +511,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.6  2001-06-03 15:15:32  peter
+  Revision 1.7  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.6  2001/06/03 15:15:32  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

+ 5 - 2
compiler/targets/t_os2.pas

@@ -61,7 +61,7 @@ implementation
     private
        Function  WriteResponseFile(isdll:boolean) : Boolean;
     public
-       constructor Create;
+       constructor Create;override;
        procedure SetDefaultInfo;override;
        function  MakeExecutable:boolean;override;
     end;
@@ -569,7 +569,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.6  2001-06-03 15:15:32  peter
+  Revision 1.7  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.6  2001/06/03 15:15:32  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

+ 5 - 2
compiler/targets/t_sunos.pas

@@ -62,7 +62,7 @@ implementation
       Glibc21 : boolean;
       Function  WriteResponseFile(isdll:boolean) : Boolean;
     public
-      constructor Create;
+      constructor Create;override;
       procedure SetDefaultInfo;override;
       function  MakeExecutable:boolean;override;
       function  MakeSharedLibrary:boolean;override;
@@ -534,7 +534,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.6  2001-06-03 15:15:32  peter
+  Revision 1.7  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.6  2001/06/03 15:15:32  peter
     * dllprt0 stub for linux shared libs
     * pass -init and -fini for linux shared libs
     * libprefix splitted into staticlibprefix and sharedlibprefix

+ 5 - 2
compiler/targets/t_win32.pas

@@ -69,7 +69,7 @@ implementation
        Function  WriteResponseFile(isdll:boolean) : Boolean;
        Function  PostProcessExecutable(const fn:string;isdll:boolean) : Boolean;
     public
-       Constructor Create;
+       Constructor Create;override;
        Procedure SetDefaultInfo;override;
        function  MakeExecutable:boolean;override;
        function  MakeSharedLibrary:boolean;override;
@@ -1456,7 +1456,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.12  2001-06-18 20:36:26  peter
+  Revision 1.13  2001-06-28 19:46:25  peter
+    * added override and virtual for constructors
+
+  Revision 1.12  2001/06/18 20:36:26  peter
     * -Ur switch (merged)
     * masm fixes (merged)
     * quoted filenames for go32v2 and win32