paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 15:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tp doesn't like comp() typecast

Browse Source
This commit is contained in:
peter 1998-06-05 17:46:02 +00:00
parent 6f4cfe38eb
commit a487cca0d7
5 changed files with 41 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ag386int.pas
View File

@ -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

9
compiler/ag386nsm.pas
View File

@ -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

11
compiler/ag68kgas.pas
View File

@ -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

9
compiler/ag68kmit.pas
View File

@ -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

9
compiler/ag68kmot.pas
View File

@ -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