From aedf2dc20d4ddbaf40eee3e9cb36514cb6b11a8e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?K=C3=A1roly=20Balogh?= <karoly@freepascal.org>
Date: Fri, 11 Oct 2013 02:03:48 +0000
Subject: [PATCH] fixed spilling operation type for A_LEA, fixes test tb0112 to
 compile, but still fails to run

git-svn-id: trunk@25745 -
---
 compiler/m68k/aasmcpu.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/m68k/aasmcpu.pas b/compiler/m68k/aasmcpu.pas
index 18ff7d05a1..1d78fba743 100644
--- a/compiler/m68k/aasmcpu.pas
+++ b/compiler/m68k/aasmcpu.pas
@@ -464,7 +464,7 @@ type
         result:=operand_read;
 
         case opcode of
-          A_MOVE, A_MOVEQ, A_MOVEA:
+          A_MOVE, A_MOVEQ, A_MOVEA, A_LEA:
             if opnr=1 then
               result:=operand_write;
           A_ADD, A_ADDQ, A_ADDX, A_SUB, A_SUBQ, A_SUBX,