From edff5a9aa1e7d6b77b99ca605a43f5cbe1b9e71e Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 1 Apr 2014 21:48:28 +0000
Subject: [PATCH]   * fixed m68k typo in r27438

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

diff --git a/compiler/m68k/symcpu.pas b/compiler/m68k/symcpu.pas
index 4856432514..f0e08ac8c1 100644
--- a/compiler/m68k/symcpu.pas
+++ b/compiler/m68k/symcpu.pas
@@ -200,7 +200,7 @@ implementation
   function tcpuprocdef.getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef;
     begin
       result:=inherited;
-      if newtpy=procdef then
+      if newtyp=procdef then
         tcpuprocdef(result).libsym:=libsym;
     end;