瀏覽代碼

* always pass a valid constsize to ConcatConstSymbol; this prevents a compiler
internal error on i8086, generated by 'DB xx' or 'DB OFFSET xx'

git-svn-id: trunk@38153 -

nickysn 7 年之前
父節點
當前提交
5f56f6ec11
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/x86/rax86int.pas

+ 4 - 1
compiler/x86/rax86int.pas

@@ -2458,7 +2458,10 @@ Unit Rax86int;
                       (constsize<>sizeof(pint))
 {$endif i8086}
                       then
-                     Message1(asmr_w_const32bit_for_address,asmsym);
+                     begin
+                       Message1(asmr_w_const32bit_for_address,asmsym);
+                       constsize:=sizeof(pint);
+                     end;
 {$ifdef i8086}
                    if asmsym='@DATA' then
                      begin