paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 22:09:25 +02: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;
begin
result:='';
{ nil is the default value -> don't write explicitly }
case csym.consttyp of
constpointer:
begin
if csym.value.valueordptr<>0 then
internalerror(2011021206);
result:='';
end;
constnil:
result:='';
;
else
begin
{ enums and sets are initialized as typed constants }
if not assigned(csym.constdef) or
not(csym.constdef.typ in [enumdef,setdef]) then
result:=' = '+ConstValue(csym)
result:=' = '+ConstValue(csym);
end;
end;
end;