From 10d39167c6f88f42e053f4f7f7c39b056bb1ac1d Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Wed, 26 Oct 2005 19:42:12 +0000
Subject: [PATCH] * fixed code generation for calling threadvar relocation
 function

git-svn-id: trunk@1597 -
---
 compiler/ncgld.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ncgld.pas b/compiler/ncgld.pas
index c97ffbeed3..8e6ce01269 100644
--- a/compiler/ncgld.pas
+++ b/compiler/ncgld.pas
@@ -167,7 +167,7 @@ implementation
                        { don't save the allocated register else the result will be destroyed later }
                        reference_reset_symbol(href,objectlibrary.newasmsymbol(tglobalvarsym(symtableentry).mangledname,AB_EXTERNAL,AT_DATA),0);
                        paramanager.allocparaloc(exprasmlist,paraloc1);
-                       cg.a_param_ref(exprasmlist,OS_ADDR,href,paraloc1);
+                       cg.a_param_ref(exprasmlist,OS_32,href,paraloc1);
                        paramanager.freeparaloc(exprasmlist,paraloc1);
                        paraloc1.done;
                        cg.allocallcpuregisters(exprasmlist);