paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 18:26:08 +01:00
Code Issues Packages Projects Releases Wiki Activity

* made overloaded_operators local per unit, but it still doesn't work

Browse Source 
correct
This commit is contained in:
peter 2000-04-24 12:45:44 +00:00
parent ebbf2e578f
commit 013cfb9bc4
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/parser.pas
View File

@ -246,6 +246,7 @@ unit parser;
oldsymtablestack : psymtable;
oldprocprefix : string;
oldaktprocsym : pprocsym;
oldoverloaded_operators : toverloaded_operators;
{ cg }
oldnextlabelnr : longint;
oldparse_only : boolean;
@ -299,6 +300,7 @@ unit parser;
oldmacros:=macros;
oldprocprefix:=procprefix;
oldaktprocsym:=aktprocsym;
move(overloaded_operators,oldoverloaded_operators,sizeof(toverloaded_operators));
{ save scanner state }
oldc:=c;
oldpattern:=pattern;
@ -356,6 +358,7 @@ unit parser;
procprefix:='';
registerdef:=true;
aktmaxfpuregisters:=-1;
fillchar(overloaded_operators,sizeof(toverloaded_operators),0);
{ macros }
macros:=new(psymtable,init(macrosymtable));
macros^.name:=stringdup('Conditionals for '+filename);
@ -517,6 +520,7 @@ unit parser;
macros:=oldmacros;
aktprocsym:=oldaktprocsym;
procprefix:=oldprocprefix;
move(oldoverloaded_operators,overloaded_operators,sizeof(toverloaded_operators));
aktlocalswitches:=oldaktlocalswitches;
aktmoduleswitches:=oldaktmoduleswitches;
aktpackrecords:=oldaktpackrecords;
@ -599,7 +603,11 @@ unit parser;
end.
{
$Log$
Revision 1.101 2000-02-18 20:53:15 pierre
Revision 1.102 2000-04-24 12:45:44 peter
* made overloaded_operators local per unit, but it still doesn't work
correct
Revision 1.101 2000/02/18 20:53:15 pierre
* fixes a stabs problem for functions
+ includes a stabs local var for with statements
the name is with in lowercase followed by an index

10
compiler/symtable.pas
View File

@ -392,8 +392,10 @@ unit symtable;
{ last operator which can be overloaded }
first_overloaded = _PLUS;
last_overloaded = _ASSIGNMENT;
type
toverloaded_operators = array[first_overloaded..last_overloaded] of pprocsym;
var
overloaded_operators : array[first_overloaded..last_overloaded] of pprocsym;
overloaded_operators : toverloaded_operators;
{ unequal is not equal}
const
overloaded_names : array [first_overloaded..last_overloaded] of string[16] =
@ -2814,7 +2816,11 @@ implementation
end.
{
$Log$
Revision 1.83 2000-03-27 21:15:34 pierre
Revision 1.84 2000-04-24 12:45:44 peter
* made overloaded_operators local per unit, but it still doesn't work
correct
Revision 1.83 2000/03/27 21:15:34 pierre
* fix bug 294 in a BP compatible way ie. hidding the function result
Revision 1.82 2000/03/22 09:25:57 florian