paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 13:30:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Revert rev 16108

Browse Source 
git-svn-id: trunk@16111 -
This commit is contained in:
pierre 2010-10-08 13:39:11 +00:00
parent 386478cd77
commit 41e388ace8
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/pdecl.pas
View File

@ -284,9 +284,6 @@ implementation
else else
labelsym:=tlabelsym.create(pattern); labelsym:=tlabelsym.create(pattern);
symtablestack.top.insert(labelsym); symtablestack.top.insert(labelsym);
if (cs_create_pic in current_settings.moduleswitches) and
(tf_pic_uses_got in target_info.flags) then
labelsym.nonlocal:=true;
if m_iso in current_settings.modeswitches then if m_iso in current_settings.modeswitches then
begin begin
if symtablestack.top.symtabletype=localsymtable then if symtablestack.top.symtabletype=localsymtable then