From 8a0caea0c0c2bb6585b8c224bcddce47ef7b05f2 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 10 Nov 2013 21:33:38 +0000 Subject: [PATCH] + override g_save_registers() and g_restore_registers() with do-nothing versions for high level code generator targets git-svn-id: trunk@26023 - --- compiler/cghlcpu.pas | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/compiler/cghlcpu.pas b/compiler/cghlcpu.pas index 30372ca8bd..7568553f67 100644 --- a/compiler/cghlcpu.pas +++ b/compiler/cghlcpu.pas @@ -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