From 288802d8a842ce09987b82d798d487ea7c00d65b Mon Sep 17 00:00:00 2001
From: florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Sun, 19 Jun 2005 17:42:10 +0000
Subject: * node optimizer branch merged   * gotonode and gotolabel refactored 
  * -Nu added to enable for loop unrolling

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@446 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 compiler/pdecl.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'compiler/pdecl.pas')

diff --git a/compiler/pdecl.pas b/compiler/pdecl.pas
index 75229b5872..ca11e118a4 100644
--- a/compiler/pdecl.pas
+++ b/compiler/pdecl.pas
@@ -250,11 +250,10 @@ implementation
              consume(_ID)
            else
              begin
-                objectlibrary.getlabel(hl);
                 if token=_ID then
-                 symtablestack.insert(tlabelsym.create(orgpattern,hl))
+                 symtablestack.insert(tlabelsym.create(orgpattern))
                 else
-                 symtablestack.insert(tlabelsym.create(pattern,hl));
+                 symtablestack.insert(tlabelsym.create(pattern));
                 consume(token);
              end;
            if token<>_SEMICOLON then consume(_COMMA);
-- 
cgit v1.2.1