gsm: Add a way to parse the GSM48MIdentity from RSL code

In the RSL code we will have MIdentity without the length

1 files changed, 5 insertions, 2 deletions

diff --git a/GSM48.st b/GSM48.st
index b6e6c0c..dacfaa6 100644
--- a/GSM48.st
+++ b/GSM48.st
@@ -543,9 +543,12 @@ GSM48VariableSizedIE subclass: GSM48MIdentity [
     ]
 
     GSM48MIdentity class >> parseFrom: aStream [
-        | len head type id |
+	^ self parseFrom: aStream length: aStream next
+    ]
+
+    GSM48MIdentity class >> parseFrom: aStream length: len [
+        | head type id |
 
-        len := aStream next.
         head := aStream next.
         type := head bitAnd: 16r7.