Ver código fonte

* more sparc64 support in the generic sparc code generator

git-svn-id: trunk@36521 -
florian 8 anos atrás
pai
commit
2109fb33ab
1 arquivos alterados com 4 adições e 1 exclusões
  1. 4 1
      compiler/sparcgen/cgsparc.pas

+ 4 - 1
compiler/sparcgen/cgsparc.pas

@@ -724,8 +724,11 @@ implementation
                   inc(a,32-tcgsize2size[size]*8);
                   src:=dst;
                 end
+{$ifndef SPARC64}
               else if not (size in [OS_32,OS_S32]) then
-                InternalError(2013070303);
+                InternalError(2013070303)
+{$endif SPARC64}
+                ;
             end;
         end;
         if setflags then