Sfoglia il codice sorgente

* compilation on 32 bit sparc fixed

git-svn-id: trunk@36660 -
florian 8 anni fa
parent
commit
1f4d6e8a4d
1 ha cambiato i file con 2 aggiunte e 0 eliminazioni
  1. 2 0
      compiler/sparcgen/ncpumat.pas

+ 2 - 0
compiler/sparcgen/ncpumat.pas

@@ -31,7 +31,9 @@ interface
     type
     type
       tSparcmoddivnode = class(tmoddivnode)
       tSparcmoddivnode = class(tmoddivnode)
         procedure pass_generate_code;override;
         procedure pass_generate_code;override;
+{$ifdef SPARC64}
         function use_moddiv64bitint_helper : boolean; override;
         function use_moddiv64bitint_helper : boolean; override;
+{$endif SPARC64}
       end;
       end;
 
 
       tSparcshlshrnode = class(tcgshlshrnode)
       tSparcshlshrnode = class(tcgshlshrnode)