paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add missing mode objfpc needed for out parameter type

Browse Source 
git-svn-id: trunk@19589 -
This commit is contained in:
pierre 2011-11-03 11:46:52 +00:00
parent 9598baa179
commit 43abca844f
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/utils/mkx86ins.pp
View File

@ -12,6 +12,7 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************} **********************************************************************}
{$mode objfpc}
program mkx86ins; program mkx86ins;
const const
@ -103,8 +104,6 @@ function readnumber : longint;
var var
base : longint; base : longint;
result : longint;
begin begin
result:=0; result:=0;
if s[i]='\' then if s[i]='\' then
@ -131,7 +130,6 @@ function readnumber : longint;
end; end;
inc(i); inc(i);
end; end;
readnumber:=result;
end; end;
function tostr(l : longint) : string; function tostr(l : longint) : string;
@ -146,9 +144,6 @@ function tostr(l : longint) : string;
function readstr : string; function readstr : string;
var
result : string;
begin begin
result:=''; result:='';
while (s[i] in ['0'..'9','A'..'Z','a'..'z','_']) and (i<=length(s)) do 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]; result:=result+s[i];
inc(i); inc(i);
end; end;
readstr:=result;
end; end;
procedure skipspace; procedure skipspace;