From 08ef4a904f12d715b5130322e97716e61ee78459 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 6 Aug 2003 13:53:01 +0000
Subject: Cast away gcc 3.3 type conversion pickiness.
p4raw-id: //depot/perl@20526
---
ext/threads/threads.xs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'ext/threads')
diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index d9d2d27dd3..ba3e4883bc 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -71,7 +71,7 @@ I32 active_threads = 0;
void Perl_ithread_set (pTHX_ ithread* thread)
{
- SV* thread_sv = newSViv((IV)thread);
+ SV* thread_sv = newSViv(PTR2IV(thread));
if(!hv_store(PL_modglobal, "threads::self", 12, thread_sv,0)) {
croak("%s\n","Internal error, couldn't set TLS");
}
@@ -82,7 +82,7 @@ ithread* Perl_ithread_get (pTHX) {
if(!thread_sv) {
croak("%s\n","Internal error, couldn't get TLS");
}
- return (ithread*)SvIV(*thread_sv);
+ return INT2PTR(ithread*,SvIV(*thread_sv));
}
--
cgit v1.2.1