paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 15:45:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

- remove no longer needed gen_fpc_dummy()

Browse Source 
git-svn-id: trunk@35374 -
This commit is contained in:
svenbarth 2017-01-29 22:40:36 +00:00
parent cc42bb8a7a
commit d149f260fc
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncgutil.pas
View File

@ -99,7 +99,6 @@ interface
function getprocalign : shortint; function getprocalign : shortint;
procedure gen_fpc_dummy(list : TAsmList);
procedure gen_load_frame_for_exceptfilter(list : TAsmList); procedure gen_load_frame_for_exceptfilter(list : TAsmList);
implementation implementation
@ -1765,16 +1764,6 @@ implementation
end; end;
procedure gen_fpc_dummy(list : TAsmList);
begin
{$ifdef i386}
{ fix me! }
list.concat(Taicpu.Op_const_reg(A_MOV,S_L,1,NR_EAX));
list.concat(Taicpu.Op_const(A_RET,S_W,12));
{$endif i386}
end;
procedure gen_load_frame_for_exceptfilter(list : TAsmList); procedure gen_load_frame_for_exceptfilter(list : TAsmList);
var var
para: tparavarsym; para: tparavarsym;