Add missing mode objfpc needed for out parameter type

git-svn-id: trunk@19589 -

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;