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

* fixed getsingletonarraydef() so that it actually returns are arraydef of

Browse Source 
one element rather than of two elements

git-svn-id: branches/jvmbackend@18980 -
This commit is contained in:
Jonas Maebe 2011-09-05 17:41:35 +00:00
parent 644fffbdcb
commit 015ed4d0b6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symdef.pas
View File

@ -6655,7 +6655,7 @@ implementation
{ since these arraydef can be reused anywhere in the current
unit, add them to the global/staticsymtable }
symtablestack.push(current_module.localsymtable);
res^.Data:=tarraydef.create(0,1,s32inttype);
res^.Data:=tarraydef.create(0,0,s32inttype);
tarraydef(res^.Data).elementdef:=def;
symtablestack.pop(current_module.localsymtable);
end;