Prechádzať zdrojové kódy

* on 64 bit machines load 64 bit "trash constants" directly as well

git-svn-id: trunk@4297 -
tom_at_work 19 rokov pred
rodič
commit
65503f5786
1 zmenil súbory, kde vykonal 3 pridanie a 0 odobranie
  1. 3 0
      compiler/ncgutil.pas

+ 3 - 0
compiler/ncgutil.pas

@@ -902,6 +902,9 @@ implementation
           1: cg.a_load_const_ref(list,OS_8,byte(trashintval),ref);
           2: cg.a_load_const_ref(list,OS_16,word(trashintval),ref);
           4: cg.a_load_const_ref(list,OS_32,longint(trashintval),ref);
+          {$ifdef cpu64bit}
+          8: cg.a_load_const_ref(list,OS_64,int64(trashintval),ref);
+          {$endif cpu64bit}
           else
             begin
               countreg := cg.getintregister(list,OS_ADDR);