* handle flag to reg./ref. conversion correctly for boolean64

git-svn-id: trunk@19914 -

.gitattributes

@@ -11975,7 +11975,8 @@ tests/webtbs/tw20836.pp svneol=native#text/pascal
 tests/webtbs/tw20872a.pp svneol=native#text/pascal
 tests/webtbs/tw20872b.pp svneol=native#text/pascal
 tests/webtbs/tw20872c.pp svneol=native#text/pascal
-tests/webtbs/tw20874.pp svneol=native#text/pascal
+tests/webtbs/tw20874a.pp svneol=native#text/pascal
+tests/webtbs/tw20874b.pp svneol=native#text/pascal
 tests/webtbs/tw20889.pp svneol=native#text/pascal
 tests/webtbs/tw2109.pp svneol=native#text/plain
 tests/webtbs/tw2110.pp svneol=native#text/plain

compiler/ncgld.pas

@@ -944,6 +944,14 @@ implementation
                     begin
                       case left.location.loc of
                         LOC_REGISTER,LOC_CREGISTER:
+{$ifdef cpu32bitalu}
+                          if left.location.size in [OS_S64,OS_64] then
+                            begin
+                              cg.g_flags2reg(current_asmdata.CurrAsmList,OS_32,right.location.resflags,left.location.register64.reglo);
+                              cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_32,0,left.location.register64.reghi);
+                            end
+                          else
+{$endif cpu32bitalu}
                             cg.g_flags2reg(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.register);
                         LOC_REFERENCE:
                           cg.g_flags2ref(current_asmdata.CurrAsmList,left.location.size,right.location.resflags,left.location.reference);

compiler/x86/cgx86.pas

@@ -1787,6 +1787,13 @@ unit cgx86;
          ai:=Taicpu.op_ref(A_SETcc,S_B,tmpref);
          ai.setcondition(flags_to_cond(f));
          list.concat(ai);
+{$ifndef cpu64bitalu}
+         if size in [OS_S64,OS_64] then
+           begin
+             inc(tmpref.offset,4);
+             a_load_const_ref(list,OS_32,0,tmpref);
+           end;
+{$endif cpu64bitalu}
       end;
 
 

tests/webtbs/tw20874b.pp

@@ -0,0 +1,17 @@
+program qwordbooltest;
+
+{$mode objfpc}{$H+}
+
+var
+  A, B : Boolean64;
+begin
+  A := True;
+
+  // here it fails: qwordbooltest.pas(12,3) Fatal: Internal error 200109227
+  B := not A;
+
+  if B then
+    halt(1);
+
+  writeln('ok');
+end.