paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 15:30:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ override g_save_registers() and g_restore_registers() with do-nothing versions

Browse Source 
for high level code generator targets

git-svn-id: trunk@26023 -
This commit is contained in:
Jonas Maebe 2013-11-10 21:33:38 +00:00
parent 1b6e4e572f
commit 8a0caea0c0
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cghlcpu.pas
View File

@ -38,6 +38,8 @@ uses
type
thlbasecgcpu = class(tcg)
public
procedure g_save_registers(list:TAsmList);override;
procedure g_restore_registers(list:TAsmList);override;
procedure g_stackpointer_alloc(list: TAsmList; size: longint); override;
procedure g_proc_exit(list: TAsmList; parasize: longint; nostackframe: boolean); override;
procedure g_proc_entry(list: TAsmList; localsize: longint; nostackframe: boolean); override;
@ -206,6 +208,15 @@ implementation
internalerror(2012042822);
end;
procedure thlbasecgcpu.g_save_registers(list: TAsmList);
begin
{ do nothing }
end;
procedure thlbasecgcpu.g_restore_registers(list: TAsmList);
begin
{ do nothing }
end;
procedure thlbasecgcpu.g_stackpointer_alloc(list: TAsmList; size: longint);
begin