paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 20:57:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug #610

Browse Source 
+ added $D- for TP in symtable.pas else it can't be compiled anymore
    (too much symbols :()
This commit is contained in:
florian 1999-09-28 20:48:23 +00:00
parent f050faa02b
commit ed7dd22b82
3 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cg386inl.pas
View File

@ -1113,7 +1113,10 @@ implementation
{ second argument specified?, must be a s32bit in register } { second argument specified?, must be a s32bit in register }
if assigned(p^.left^.right) then if assigned(p^.left^.right) then
begin begin
ispushed:=maybe_push(p^.left^.right^.left^.registers32,p^.left^.left,false);
secondpass(p^.left^.right^.left); secondpass(p^.left^.right^.left);
if ispushed then
restore(p^.left^.left,false);
{ when constant, just multiply the addvalue } { when constant, just multiply the addvalue }
if is_constintnode(p^.left^.right^.left) then if is_constintnode(p^.left^.right^.left) then
addvalue:=addvalue*get_ordinal_value(p^.left^.right^.left) addvalue:=addvalue*get_ordinal_value(p^.left^.right^.left)
@ -1406,7 +1409,12 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.72 1999-09-26 13:26:05 florian Revision 1.73 1999-09-28 20:48:23 florian
* fixed bug 610
+ added $D- for TP in symtable.pas else it can't be compiled anymore
(too much symbols :()
Revision 1.72 1999/09/26 13:26:05 florian
* exception patch of Romio nevertheless the excpetion handling * exception patch of Romio nevertheless the excpetion handling
needs some corections regarding register saving needs some corections regarding register saving
* gettempansistring is again a procedure * gettempansistring is again a procedure

12
compiler/symtable.pas
View File

@ -20,7 +20,7 @@
**************************************************************************** ****************************************************************************
} }
{$ifdef TP} {$ifdef TP}
{$N+,E+,F+} {$N+,E+,F+,D-}
{$endif} {$endif}
unit symtable; unit symtable;
@ -924,8 +924,7 @@ implementation
end; end;
{$endif} {$endif}
procedure write_refs(sym : pnamedindexobject); procedure write_refs(sym : pnamedindexobject); begin
begin
psym(sym)^.write_references; psym(sym)^.write_references;
end; end;
@ -2410,7 +2409,12 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.49 1999-09-27 23:44:59 peter Revision 1.50 1999-09-28 20:48:25 florian
* fixed bug 610
+ added $D- for TP in symtable.pas else it can't be compiled anymore
(too much symbols :()
Revision 1.49 1999/09/27 23:44:59 peter
* procinfo is now a pointer * procinfo is now a pointer
* support for result setting in sub procedure * support for result setting in sub procedure

11
compiler/tcinl.pas
View File

@ -602,6 +602,10 @@ implementation
(p^.left^.right^.left^.registers32<=1) then (p^.left^.right^.left^.registers32<=1) then
inc(p^.registers32); inc(p^.registers32);
{ do we need an additional register to restore the first parameter? }
if p^.left^.right^.left^.registers32>=p^.registers32 then
inc(p^.registers32);
if assigned(p^.left^.right^.right) then if assigned(p^.left^.right^.right) then
CGMessage(cg_e_illegal_expression); CGMessage(cg_e_illegal_expression);
end; end;
@ -1250,7 +1254,12 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.52 1999-09-27 23:45:01 peter Revision 1.53 1999-09-28 20:48:27 florian
* fixed bug 610
+ added $D- for TP in symtable.pas else it can't be compiled anymore
(too much symbols :()
Revision 1.52 1999/09/27 23:45:01 peter
* procinfo is now a pointer * procinfo is now a pointer
* support for result setting in sub procedure * support for result setting in sub procedure