From 9f405c2bb01e2f4490eb279b2b200ca08fe2630c Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 2 Jun 1998 09:27:01 +0000
Subject: [PATCH] Added bug #139

---
 bugs/bug0139.pp  | 21 +++++++++++++++++++++
 bugs/bug0139a.pp | 22 ++++++++++++++++++++++
 bugs/readme.txt  |  2 ++
 3 files changed, 45 insertions(+)
 create mode 100644 bugs/bug0139.pp
 create mode 100644 bugs/bug0139a.pp

diff --git a/bugs/bug0139.pp b/bugs/bug0139.pp
new file mode 100644
index 0000000000..eabb7684fa
--- /dev/null
+++ b/bugs/bug0139.pp
@@ -0,0 +1,21 @@
+unit unit2;
+ 
+ interface
+ uses
+    objpas, bug0139a;
+ 
+ type
+    AnotherClass=class(SomeClass)
+    protected
+    procedure doSomething; override;
+    end ;
+ 
+ implementation
+ 
+ procedure AnotherClass.doSomething;
+ begin
+ inherited doSomething;  // this causes the error: " can not call protected
+                         //  method from here " ( or something similar )
+ end ;
+
+end.
\ No newline at end of file
diff --git a/bugs/bug0139a.pp b/bugs/bug0139a.pp
new file mode 100644
index 0000000000..47d9a355e7
--- /dev/null
+++ b/bugs/bug0139a.pp
@@ -0,0 +1,22 @@
+ unit bug0139a;
+ 
+ interface
+ 
+ uses
+    objpas;
+ 
+ type
+    SomeClass=class(TObject)
+    protected
+    procedure doSomething; virtual;
+    end ;
+ 
+ implementation
+ 
+ 
+ procedure SomeClass.doSomething;
+ begin
+   Writeln ('Hello from SomeClass.DoSomething');
+ end ;
+
+end.
\ No newline at end of file
diff --git a/bugs/readme.txt b/bugs/readme.txt
index 9d804ddb5f..0b515acfe4 100644
--- a/bugs/readme.txt
+++ b/bugs/readme.txt
@@ -187,3 +187,5 @@ bug0131.pp   internal error 10 with highdimension arrays
 bug0132.pp   segmentation fault with type loop
 bug0135.pp   Unsupported subrange type construction.
 bug0137.pp   Cannot assign child object variable to parent objcet type variable
+bug0138.pp   ?? Peter ??
+bug0139.pp   Cannot access protected method of ancestor class from other unit.