paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 20:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed 1/s problem from mailing list

Browse Source
This commit is contained in:
florian 1999-09-21 20:53:21 +00:00
parent d8f56ed4e7
commit 00b063c621
3 changed files with 23 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ag386att.pas
View File

@ -710,7 +710,7 @@ unit ag386att;
end
else
begin
for i:=0to paicpu(hp)^.ops-1 do
for i:=0 to paicpu(hp)^.ops-1 do
begin
if i=0 then
sep:=#9
@ -865,7 +865,10 @@ unit ag386att;
end.
{
$Log$
Revision 1.15 1999-09-19 20:55:11 florian
Revision 1.16 1999-09-21 20:53:21 florian
* fixed 1/s problem from mailing list
Revision 1.15 1999/09/19 20:55:11 florian
* fixed calls to procedures with manglednames=255 chars
(taking the address of such a procedure would still cause a problem!)

11
compiler/cg386add.pas
View File

@ -1802,8 +1802,10 @@ implementation
if (p^.left^.resulttype^.deftype=floatdef) and
(pfloatdef(p^.left^.resulttype)^.typ<>f32bit) then
begin
{ real constants to the left }
if p^.left^.treetype=realconstn then
{ real constants to the right, but only if it
isn't on the FPU stack, i.e. 1.0 or 0.0! }
if (p^.left^.treetype=realconstn) and
(p^.left^.location.loc<>LOC_FPU) then
swaptree(p);
cmpop:=false;
case p^.treetype of
@ -2140,7 +2142,10 @@ implementation
end.
{
$Log$
Revision 1.78 1999-09-07 07:52:19 peter
Revision 1.79 1999-09-21 20:53:21 florian
* fixed 1/s problem from mailing list
Revision 1.78 1999/09/07 07:52:19 peter
* > < >= <= support for boolean
* boolean constants are now calculated like integer constants

13
compiler/tokens.pas
View File

@ -438,8 +438,12 @@ var
{$endif TP}
begin
{$ifdef TP}
fsplit(paramstr(0),n,d,e);
assign(f,d+'\tokens.dat');
fsplit(paramstr(0),d,n,e);
{ when debugging d=''!!!! FK }
if d='' then
assign(f,'tokens.dat')
else
assign(f,d+'\tokens.dat');
{$I-}
reset(f,1);
{We are not sure that the msg file is loaded!}
@ -492,7 +496,10 @@ end;
end.
{
$Log$
Revision 1.16 1999-09-17 09:17:49 peter
Revision 1.17 1999-09-21 20:53:23 florian
* fixed 1/s problem from mailing list
Revision 1.16 1999/09/17 09:17:49 peter
* removed uses globals
Revision 1.15 1999/09/16 13:41:37 peter