소스 검색

* Make real48 operators inline

git-svn-id: trunk@5690 -
daniel 19 년 전
부모
커밋
29ee556451
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      rtl/inc/system.inc

+ 2 - 2
rtl/inc/system.inc

@@ -214,14 +214,14 @@ Begin
 End;
 
 {$ifdef SUPPORT_DOUBLE}
-operator := (b:real48) d:double;
+operator := (b:real48) d:double;inline;
 begin
  D:=real2double(b);
 end;
 {$endif SUPPORT_DOUBLE}
 
 {$ifdef SUPPORT_EXTENDED}
-operator := (b:real48) e:extended;
+operator := (b:real48) e:extended;inline;
 begin
  e:=real2double(b);
 end;