paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 05:02:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved a $maxfpuregisters directive a bit up because it was being

Browse Source 
ignored
This commit is contained in:
Jonas Maebe 2000-03-18 15:01:19 +00:00
parent 41086a7aaa
commit ec01188f97
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/tcadd.pas
View File

@ -156,6 +156,10 @@ implementation
FirstAdd FirstAdd
*****************************************************************************} *****************************************************************************}
{$ifdef fpc}
{$maxfpuregisters 0}
{$endif fpc}
procedure firstadd(var p : ptree); procedure firstadd(var p : ptree);
procedure make_bool_equal_size(var p:ptree); procedure make_bool_equal_size(var p:ptree);
@ -177,10 +181,6 @@ implementation
end; end;
end; end;
{$ifdef fpc}
{$maxfpuregisters 0}
{$endif fpc}
var var
t,hp : ptree; t,hp : ptree;
ot, ot,
@ -1260,7 +1260,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.70 2000-02-19 10:12:48 florian Revision 1.71 2000-03-18 15:01:19 jonas
* moved a $maxfpuregisters directive a bit up because it was being
ignored
Revision 1.70 2000/02/19 10:12:48 florian
* fixed one more internalerror 10 * fixed one more internalerror 10
Revision 1.69 2000/02/17 14:53:42 florian Revision 1.69 2000/02/17 14:53:42 florian