From 6487948d1024126ade11655d20a75a2be7826173 Mon Sep 17 00:00:00 2001
From: Rodrigo Braz Monteiro <zeratul@cellosoft.com>
Date: Thu, 24 Jan 2008 17:52:46 +0000
Subject: [PATCH] Fix to some 64-bit compatibility warnings in auto4_perl
 (note: please cast to size_t before casting to wxThread::ExitCode in the
 future)

Originally committed to SVN as r1830.
---
 aegisub/auto4_perl.cpp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/aegisub/auto4_perl.cpp b/aegisub/auto4_perl.cpp
index 5c17cc6ce..d35cdfa35 100644
--- a/aegisub/auto4_perl.cpp
+++ b/aegisub/auto4_perl.cpp
@@ -468,12 +468,12 @@ namespace Automation4 {
 	ExitCode ec = NULL;
 	switch(type) {
 	case CALL:
-	  if(sv) ec = (ExitCode)call_sv(sv, flags);
-	  else if(pv) ec = (ExitCode)call_pv(pv, flags);
+	  if(sv) ec = (ExitCode)((size_t)call_sv(sv, flags));
+	  else if(pv) ec = (ExitCode)((size_t)call_pv(pv, flags));
 	  break;
 	case EVAL:
-	  if(sv) ec = (ExitCode)eval_sv(sv, flags);
-	  else if(pv) ec = (ExitCode)eval_pv(pv, flags);
+	  if(sv) ec = (ExitCode)((size_t)eval_sv(sv, flags));
+	  else if(pv) ec = (ExitCode)((size_t)eval_pv(pv, flags));
 	}
 
 	if(SvTRUE(ERRSV)) {
-- 
GitLab