paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-01 12:46:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* modifications to make the compiler functional when compiled with

Browse Source 
-Or
This commit is contained in:
Jonas Maebe 2000-02-13 14:21:50 +00:00
parent 3d6ba19140
commit 0ab87d5ed8
5 changed files with 48 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pexpr.pas
View File

@ -841,7 +841,9 @@ unit pexpr;
{****************************************************************************
Factor
****************************************************************************}
{$ifdef fpc}
{$maxfpuregisters 0}
{$endif fpc}
function factor(getaddr : boolean) : ptree;
var
l : longint;
@ -1897,7 +1899,9 @@ _LECKKLAMMER : begin
factor:=p1;
check_tokenpos;
end;
{$ifdef fpc}
{$maxfpuregisters default}
{$endif fpc}
{****************************************************************************
Sub_Expr
@ -2124,7 +2128,11 @@ _LECKKLAMMER : begin
end.
{
$Log$
Revision 1.168 2000-02-09 13:22:56 peter
Revision 1.169 2000-02-13 14:21:50 jonas
* modifications to make the compiler functional when compiled with
-Or
Revision 1.168 2000/02/09 13:22:56 peter
* log truncated
Revision 1.167 2000/01/19 22:41:58 florian

8
compiler/popt386.pas
View File

@ -44,7 +44,7 @@ Uses
{$ifdef finaldestdebug}
cobjects,
{$endif finaldestdebug}
cpubase,cpuasm,DAOpt386,cobjects;
cpubase,cpuasm,DAOpt386;
Function RegUsedAfterInstruction(Reg: TRegister; p: Pai; Var UsedRegs: TRegSet): Boolean;
Begin
@ -1890,7 +1890,11 @@ End.
{
$Log$
Revision 1.86 2000-02-12 19:28:56 jonas
Revision 1.87 2000-02-13 14:21:50 jonas
* modifications to make the compiler functional when compiled with
-Or
Revision 1.86 2000/02/12 19:28:56 jonas
* fix for imul optimization in popt386 (exclude top_ref as first
argument)
* in csopt386: change "mov reg1,reg2; <several operations on reg2>;

12
compiler/ptconst.pas
View File

@ -51,6 +51,9 @@ unit ptconst;
hcgdata;
{$ifdef fpc}
{$maxfpuregisters 0}
{$endif fpc}
{ this procedure reads typed constants }
procedure readtypedconst(def : pdef;sym : ptypedconstsym;no_change_allowed : boolean);
@ -765,11 +768,18 @@ unit ptconst;
else Message(parser_e_type_const_not_possible);
end;
end;
{$ifdef fpc}
{$maxfpuregisters default}
{$endif fpc}
end.
{
$Log$
Revision 1.62 2000-02-09 13:23:01 peter
Revision 1.63 2000-02-13 14:21:51 jonas
* modifications to make the compiler functional when compiled with
-Or
Revision 1.62 2000/02/09 13:23:01 peter
* log truncated
Revision 1.61 2000/01/07 01:14:33 peter

10
compiler/tcadd.pas
View File

@ -172,6 +172,10 @@ implementation
end;
end;
{$ifdef fpc}
{$maxfpuregisters 0}
{$endif fpc}
var
t,hp : ptree;
ot,
@ -1254,7 +1258,11 @@ implementation
end.
{
$Log$
Revision 1.65 2000-02-09 13:23:06 peter
Revision 1.66 2000-02-13 14:21:51 jonas
* modifications to make the compiler functional when compiled with
-Or
Revision 1.65 2000/02/09 13:23:06 peter
* log truncated
Revision 1.64 2000/02/04 08:47:10 florian

13
compiler/tcinl.pas
View File

@ -46,6 +46,9 @@ implementation
FirstInLine
*****************************************************************************}
{$ifdef fpc}
{$maxfpuregisters 0}
{$endif fpc}
procedure firstinline(var p : ptree);
var
vl,vl2 : longint;
@ -1275,12 +1278,18 @@ implementation
p^.resulttype:=generrordef;
dec(parsing_para_level);
end;
{$ifdef fpc}
{$maxfpuregisters default}
{$endif fpc}
end.
{
$Log$
Revision 1.65 2000-02-09 13:23:07 peter
Revision 1.66 2000-02-13 14:21:51 jonas
* modifications to make the compiler functional when compiled with
-Or
Revision 1.65 2000/02/09 13:23:07 peter
* log truncated
Revision 1.64 2000/01/07 01:14:45 peter