浏览代码

* compile fix for no-newra

peter 22 年之前
父节点
当前提交
c351d2a524
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/rgobj.pas

+ 5 - 2
compiler/rgobj.pas

@@ -593,7 +593,7 @@ unit rgobj;
     procedure trgobj.ungetregistergenint(list:taasmoutput;const r:Tregister;
     procedure trgobj.ungetregistergenint(list:taasmoutput;const r:Tregister;
                                          const usableregs:Tsupregset;
                                          const usableregs:Tsupregset;
                                          var unusedregs:Tsupregset
                                          var unusedregs:Tsupregset
-                                         {$ifndef newra}var countunusedregs:byte{$endif});
+                                         {$ifndef newra};var countunusedregs:byte{$endif});
 
 
     var supreg:Tsuperregister;
     var supreg:Tsuperregister;
 
 
@@ -2001,7 +2001,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.38  2003-04-23 14:42:07  daniel
+  Revision 1.39  2003-04-23 20:23:06  peter
+    * compile fix for no-newra
+
+  Revision 1.38  2003/04/23 14:42:07  daniel
     * Further register allocator work. Compiler now smaller with new
     * Further register allocator work. Compiler now smaller with new
       allocator than without.
       allocator than without.
     * Somebody forgot to adjust ppu version number
     * Somebody forgot to adjust ppu version number