diff --git a/compiler/utils/mkx86ins.pp b/compiler/utils/mkx86ins.pp
index 5cabde20c9..72cbc8b5cb 100644
--- a/compiler/utils/mkx86ins.pp
+++ b/compiler/utils/mkx86ins.pp
@@ -12,6 +12,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$mode objfpc}
 program mkx86ins;
 
 const
@@ -103,8 +104,6 @@ function readnumber : longint;
 
   var
      base : longint;
-     result : longint;
-
   begin
      result:=0;
      if s[i]='\' then
@@ -131,7 +130,6 @@ function readnumber : longint;
           end;
           inc(i);
        end;
-     readnumber:=result;
   end;
 
 function tostr(l : longint) : string;
@@ -146,9 +144,6 @@ function tostr(l : longint) : string;
 
 function readstr : string;
 
-  var
-     result : string;
-
   begin
      result:='';
      while (s[i] in ['0'..'9','A'..'Z','a'..'z','_']) and (i<=length(s)) do
@@ -156,7 +151,6 @@ function readstr : string;
           result:=result+s[i];
           inc(i);
        end;
-     readstr:=result;
   end;
 
 procedure skipspace;