Forráskód Böngészése

* 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 éve
szülő
commit
5f56f6ec11
1 módosított fájl, 4 hozzáadás és 1 törlés
  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