From c56584724049a609a31f49890c5dd9bec2a085b4 Mon Sep 17 00:00:00 2001
From: Scott Percival
Date: Thu, 9 Jan 2020 20:20:52 +0800
Subject: DIRECTOR: LINGO: Allow b_length to cast from reference

---
 engines/director/lingo/lingo-builtins.cpp | 2 ++
 engines/director/sprite.cpp               | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'engines')

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index b7c32dd05e..e02ac63e6f 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -495,6 +495,8 @@ void LB::b_hilite(int nargs) {
 
 void LB::b_length(int nargs) {
 	Datum d = g_lingo->pop();
+	if (d.type == REFERENCE)
+		d.toString();
 
 	if (d.type != STRING)
 		error("Incorrect type for 'length' function: %s", d.type2str());
diff --git a/engines/director/sprite.cpp b/engines/director/sprite.cpp
index 4a741c30c9..d953ebadaf 100644
--- a/engines/director/sprite.cpp
+++ b/engines/director/sprite.cpp
@@ -129,7 +129,7 @@ uint16 Sprite::getPattern() {
 			warning("Sprite::getPattern(): Unhandled cast type: %d", _cast->_type);
 			break;
 		}
-
+		// fallthrough
 	default:
 		return 0;
 	}
-- 
cgit v1.2.3