ソースを参照

* fixed uninitialized TJasminAssembler.ConstAssignmentValue() function result

git-svn-id: trunk@22126 -
Jonas Maebe 13 年 前
コミット
b6db767ac4
1 ファイル変更3 行追加3 行削除
  1. 3 3
      compiler/agjasmin.pas

+ 3 - 3
compiler/agjasmin.pas

@@ -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;