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

* internalerror 10 for inlined math functions fixed

Browse Source
This commit is contained in:
florian 2000-01-24 20:11:10 +00:00
parent f7a1b78d88
commit 26f38e15e3
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386inl.pas
View File

@ -1440,7 +1440,10 @@ implementation
inc(fpuvaroffset); inc(fpuvaroffset);
end; end;
LOC_REFERENCE,LOC_MEM: LOC_REFERENCE,LOC_MEM:
begin
floatload(pfloatdef(p^.left^.resulttype)^.typ,p^.left^.location.reference); floatload(pfloatdef(p^.left^.resulttype)^.typ,p^.left^.location.reference);
del_reference(p^.left^.location.reference);
end
else else
internalerror(309991); internalerror(309991);
end; end;
@ -1510,7 +1513,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.90 2000-01-09 23:16:05 peter Revision 1.91 2000-01-24 20:11:10 florian
* internalerror 10 for inlined math functions fixed
Revision 1.90 2000/01/09 23:16:05 peter
* added st_default stringtype * added st_default stringtype
* genstringconstnode extended with stringtype parameter using st_default * genstringconstnode extended with stringtype parameter using st_default
will do the old behaviour will do the old behaviour