소스 검색

* Make clongdouble 16 bytes on Darwin.

git-svn-id: trunk@8113 -
daniel 18 년 전
부모
커밋
c5ac7638ed
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      rtl/inc/ctypes.pp

+ 1 - 1
rtl/inc/ctypes.pp

@@ -79,7 +79,7 @@ type
   {$define longdouble_assignment_overload}
   clongdouble = packed record
     value:extended;
-  {$ifdef cpu64}
+  {$ifdef defined(cpu64) or defined(darwin)}
     padding:array[0..5] of byte;
   {$else}
     padding:array[0..1] of byte;