Ver código fonte

+ override g_save_registers() and g_restore_registers() with do-nothing versions
for high level code generator targets

git-svn-id: trunk@26023 -

Jonas Maebe 11 anos atrás
pai
commit
8a0caea0c0
1 arquivos alterados com 11 adições e 0 exclusões
  1. 11 0
      compiler/cghlcpu.pas

+ 11 - 0
compiler/cghlcpu.pas

@@ -38,6 +38,8 @@ uses
   type
   type
     thlbasecgcpu = class(tcg)
     thlbasecgcpu = class(tcg)
      public
      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_stackpointer_alloc(list: TAsmList; size: longint); override;
       procedure g_proc_exit(list: TAsmList; parasize: longint; nostackframe: boolean); override;
       procedure g_proc_exit(list: TAsmList; parasize: longint; nostackframe: boolean); override;
       procedure g_proc_entry(list: TAsmList; localsize: longint; nostackframe: boolean); override;
       procedure g_proc_entry(list: TAsmList; localsize: longint; nostackframe: boolean); override;
@@ -206,6 +208,15 @@ implementation
         internalerror(2012042822);
         internalerror(2012042822);
       end;
       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);
     procedure thlbasecgcpu.g_stackpointer_alloc(list: TAsmList; size: longint);
       begin
       begin