Parcourir la source

* Make real48 operators inline

git-svn-id: trunk@5690 -
daniel il y a 19 ans
Parent
commit
29ee556451
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  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;