paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 14:00:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed uninitialized TJasminAssembler.ConstAssignmentValue() function result

Browse Source 
git-svn-id: trunk@22126 -
This commit is contained in:
Jonas Maebe 2012-08-19 13:54:28 +00:00
parent 060e3ed4ee
commit b6db767ac4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/agjasmin.pas
View File

@ -796,22 +796,22 @@ implementation
function TJasminAssembler.ConstAssignmentValue(csym: tconstsym): ansistring; function TJasminAssembler.ConstAssignmentValue(csym: tconstsym): ansistring;
begin begin
result:='';
{ nil is the default value -> don't write explicitly } { nil is the default value -> don't write explicitly }
case csym.consttyp of case csym.consttyp of
constpointer: constpointer:
begin begin
if csym.value.valueordptr<>0 then if csym.value.valueordptr<>0 then
internalerror(2011021206); internalerror(2011021206);
result:='';
end; end;
constnil: constnil:
result:=''; ;
else else
begin begin
{ enums and sets are initialized as typed constants } { enums and sets are initialized as typed constants }
if not assigned(csym.constdef) or if not assigned(csym.constdef) or
not(csym.constdef.typ in [enumdef,setdef]) then not(csym.constdef.typ in [enumdef,setdef]) then
result:=' = '+ConstValue(csym) result:=' = '+ConstValue(csym);
end; end;
end; end;
end; end;