paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:09:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed switched around lists for read-only/read-write typed consts

Browse Source 
git-svn-id: trunk@18068 -
This commit is contained in:
Jonas Maebe 2011-08-02 20:32:48 +00:00
parent 6bad75a1eb
commit d7c1967351
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecl.pas
View File

@ -279,9 +279,9 @@ implementation
{ get init value } { get init value }
consume(_EQ); consume(_EQ);
if (cs_typed_const_writable in current_settings.localswitches) then if (cs_typed_const_writable in current_settings.localswitches) then
tclist:=current_asmdata.asmlists[al_rotypedconsts] tclist:=current_asmdata.asmlists[al_typedconsts]
else else
tclist:=current_asmdata.asmlists[al_typedconsts]; tclist:=current_asmdata.asmlists[al_rotypedconsts];
read_typed_const(tclist,tstaticvarsym(sym),in_structure); read_typed_const(tclist,tstaticvarsym(sym),in_structure);
end; end;
end; end;