Ver Fonte

* Fix two issues with internal assembler

git-svn-id: trunk@614 -
daniel há 20 anos atrás
pai
commit
338d4fbe99
2 ficheiros alterados com 2 adições e 2 exclusões
  1. 1 1
      compiler/x86/nx86mat.pas
  2. 1 1
      compiler/x86/rax86.pas

+ 1 - 1
compiler/x86/nx86mat.pas

@@ -309,7 +309,7 @@ interface
       { lower 32 bit }
       emit_reg_reg(A_PXOR,S_NO,hreg,location.register);
       { shift mask }
-      emit_const_reg(A_PSLLQ,S_NO,32,hreg);
+      emit_const_reg(A_PSLLQ,S_B,32,hreg);
       { higher 32 bit }
       emit_reg_reg(A_PXOR,S_NO,hreg,location.register);
     end;

+ 1 - 1
compiler/x86/rax86.pas

@@ -564,7 +564,7 @@ begin
     begin
       if (ops=1) and (opcode=A_INT) then
         siz:=S_B;
-      if (ops=1) and (opcode=A_RET) then
+      if (ops=1) and (opcode=A_RET) or (opcode=A_RETN) or (opcode=A_RETF) then
         siz:=S_W;
       if (ops=1) and (opcode=A_PUSH) then
         begin