* tp doesn't like comp() typecast

compiler/ag386int.pas

@@ -75,7 +75,11 @@ unit ag386int;
         c  : comp;
         dd : pdouble;
       begin
+      {$ifdef TP}
+         c:=d;
+      {$else}
          c:=comp(d);
+       {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
       end;
@@ -554,7 +558,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.10  1998-05-25 17:11:36  pierre
+  Revision 1.11  1998-06-05 17:46:02  peter
+    * tp doesn't like comp() typecast
+
+  Revision 1.10  1998/05/25 17:11:36  pierre
     * firstpasscount bug fixed
       now all is already set correctly the first time
       under EXTDEBUG try -gp to skip all other firstpasses

compiler/ag386nsm.pas

@@ -79,7 +79,11 @@ unit ag386nsm;
         c  : comp;
         dd : pdouble;
       begin
+      {$ifdef TP}
+         c:=d;
+      {$else}
          c:=comp(d);
+       {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
       end;
@@ -541,7 +545,10 @@ ait_stab_function_name : ;
 end.
 {
   $Log$
-  Revision 1.3  1998-05-28 17:24:27  peter
+  Revision 1.4  1998-06-05 17:46:03  peter
+    * tp doesn't like comp() typecast
+
+  Revision 1.3  1998/05/28 17:24:27  peter
     - $R- for tp to solve range errors with in[]
 
   Revision 1.2  1998/05/25 17:11:37  pierre

compiler/ag68kgas.pas

@@ -75,7 +75,11 @@ unit ag68kgas;
         c  : comp;
         dd : pdouble;
       begin
+      {$ifdef TP}
+         c:=d;
+      {$else}
          c:=comp(d);
+      {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
       end;
@@ -535,7 +539,7 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
                            hp:=pai(hp^.next);
                         end;
                      end;
-{$endif SMARTLINK}              
+{$endif SMARTLINK}
 
          else
           internalerror(10000);
@@ -608,7 +612,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.4  1998-06-04 23:51:28  peter
+  Revision 1.5  1998-06-05 17:46:04  peter
+    * tp doesn't like comp() typecast
+
+  Revision 1.4  1998/06/04 23:51:28  peter
     * m68k compiles
     + .def file creation moved to gendef.pas so it could also be used
       for win32

compiler/ag68kmit.pas

@@ -79,7 +79,11 @@ unit ag68kmit;
         c  : comp;
         dd : pdouble;
       begin
+      {$ifdef TP}
+         c:=d;
+      {$else}
          c:=comp(d);
+      {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
       end;
@@ -635,7 +639,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
 end.
 {
   $Log$
-  Revision 1.4  1998-06-04 23:51:29  peter
+  Revision 1.5  1998-06-05 17:46:05  peter
+    * tp doesn't like comp() typecast
+
+  Revision 1.4  1998/06/04 23:51:29  peter
     * m68k compiles
     + .def file creation moved to gendef.pas so it could also be used
       for win32

compiler/ag68kmot.pas

@@ -64,7 +64,11 @@ unit ag68kmot;
         c  : comp;
         dd : pdouble;
       begin
+      {$ifdef TP}
+         c:=d;
+      {$else}
          c:=comp(d);
+      {$endif}
          dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
          comp2str:=double2str(dd^);
       end;
@@ -532,7 +536,10 @@ ait_labeled_instruction :
 end.
 {
   $Log$
-  Revision 1.4  1998-06-04 23:51:30  peter
+  Revision 1.5  1998-06-05 17:46:06  peter
+    * tp doesn't like comp() typecast
+
+  Revision 1.4  1998/06/04 23:51:30  peter
     * m68k compiles
     + .def file creation moved to gendef.pas so it could also be used
       for win32