From 7ac4a7c78dcaf04c91769c51eba2b553780714ed Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 3 Oct 2005 20:41:25 +0000
Subject: [PATCH] * first ie of tb0468 fixed

git-svn-id: trunk@1275 -
---
 compiler/ncgld.pas | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/compiler/ncgld.pas b/compiler/ncgld.pas
index a721770c44..e112161adf 100644
--- a/compiler/ncgld.pas
+++ b/compiler/ncgld.pas
@@ -62,7 +62,7 @@ implementation
       cpubase,parabase,
       tgobj,ncgutil,
       cgutils,cgobj,
-      ncgbas;
+      ncgbas,ncgflw;
 
 {*****************************************************************************
                              SecondLoad
@@ -365,14 +365,10 @@ implementation
                     end;
                end;
             typedconstsym :
-               begin
-                  location.reference.symbol:=objectlibrary.newasmsymbol(ttypedconstsym(symtableentry).mangledname,AB_EXTERNAL,AT_DATA);
-               end;
+              location.reference.symbol:=objectlibrary.newasmsymbol(ttypedconstsym(symtableentry).mangledname,AB_EXTERNAL,AT_DATA);
             labelsym :
-               begin
-                  location.reference.symbol:=objectlibrary.newasmsymbol(tlabelsym(symtableentry).mangledname,AB_EXTERNAL,AT_FUNCTION);
-               end;
-            else internalerror(4);
+              location.reference.symbol:=tcglabelnode((tlabelsym(symtableentry).code)).getasmlabel;
+            else internalerror(200510032);
          end;
       end;