[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[tyndur-devel] [PATCH] Pascal: Compilerfehler mit neuerer FPC-Version



! Pascal: Attribute von Klassen duerfen nicht mehr nach Methoden deklariert
  werden, ausser es wird durch erneute Angabe der Sichtbarkeit ein neuer Block
  angefangen.

Signed-off-by: Kevin Wolf <kevin@xxxxxxxxxx>
---
 src/modules/pas/lib/tar/tar.pas     |    1 +
 src/modules/pas/lib/tcpip/tcpip.pas |    1 +
 src/modules/pas/lpt/packages.pas    |    4 ++++
 3 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/src/modules/pas/lib/tar/tar.pas b/src/modules/pas/lib/tar/tar.pas
index f80ab9e..dd49a05 100644
--- a/src/modules/pas/lib/tar/tar.pas
+++ b/src/modules/pas/lib/tar/tar.pas
@@ -32,6 +32,7 @@ type
             procedure ReadNextBlock(buffer_offset: dword);
             function BufferIsZero: boolean;
 
+        private
             f: file;
             in_buffer: PByte;
             in_size: dword;
diff --git a/src/modules/pas/lib/tcpip/tcpip.pas b/src/modules/pas/lib/tcpip/tcpip.pas
index 4f06527..d0eaab5 100644
--- a/src/modules/pas/lib/tcpip/tcpip.pas
+++ b/src/modules/pas/lib/tcpip/tcpip.pas
@@ -29,6 +29,7 @@ type
         private
             procedure GetInput;
 
+        private
             conn:       longint;
             buffer:     String;
             fIgnoreCR:  boolean;
diff --git a/src/modules/pas/lpt/packages.pas b/src/modules/pas/lpt/packages.pas
index c1f4130..9e2b44c 100644
--- a/src/modules/pas/lpt/packages.pas
+++ b/src/modules/pas/lpt/packages.pas
@@ -30,6 +30,7 @@ type
             function GetCurrentVersion
                 (pkgname, sectname: String): TPackageVersion;
 
+        public
             packages:   TCollection;
     end;
 
@@ -43,6 +44,7 @@ type
 
             function add(name: String): TPackageSection;
 
+        public
             name:       String;
             desc:       String;
             sections:   TCollection;
@@ -58,6 +60,7 @@ type
 
             function add(number: String): TPackageVersion;
 
+        public
             section:    String;
             versions:   TCollection;
     end;
@@ -76,6 +79,7 @@ type
             property preinstDependencies: TCollection read instDep;
             property runDependencies: TCollection read runDep;
 
+        public
             repository: String;
             version:    String;
             size:       dword;
-- 
1.5.6.5