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

* Tvarsym.highvarsym commented out (unused by compiler, purpose unknown)

Browse Source
This commit is contained in:
daniel 2004-02-04 22:54:57 +00:00
parent d735071838
commit 63f2dfc2dd
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecsub.pas
View File

@ -292,7 +292,7 @@ implementation
hvs:=tvarsym.create('$high'+tvarsym(currpara.parasym).name,vs_const,s32inttype); hvs:=tvarsym.create('$high'+tvarsym(currpara.parasym).name,vs_const,s32inttype);
include(hvs.varoptions,vo_is_high_value); include(hvs.varoptions,vo_is_high_value);
tvarsym(currpara.parasym).owner.insert(hvs); tvarsym(currpara.parasym).owner.insert(hvs);
tvarsym(currpara.parasym).highvarsym:=hvs; { tvarsym(currpara.parasym).highvarsym:=hvs;}
end end
else else
hvs:=nil; hvs:=nil;
@ -2140,7 +2140,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.159 2004-02-04 22:15:15 daniel Revision 1.160 2004-02-04 22:54:57 daniel
* Tvarsym.highvarsym commented out (unused by compiler, purpose unknown)
Revision 1.159 2004/02/04 22:15:15 daniel
* Rtti generation moved to ncgutil * Rtti generation moved to ncgutil
* Assmtai usage of symsym removed * Assmtai usage of symsym removed
* operator overloading cleanup up * operator overloading cleanup up

11
compiler/symsym.pas
View File

@ -154,7 +154,7 @@ interface
end; end;
tvarsym = class(tstoredsym) tvarsym = class(tstoredsym)
highvarsym : tvarsym; { highvarsym : tvarsym;}
defaultconstsym : tsym; defaultconstsym : tsym;
varoptions : tvaroptions; varoptions : tvaroptions;
varspez : tvarspez; { sets the type of access } varspez : tvarspez; { sets the type of access }
@ -1439,7 +1439,7 @@ implementation
varspez:=vsp; varspez:=vsp;
fieldoffset:=0; fieldoffset:=0;
fillchar(localloc,sizeof(localloc),0); fillchar(localloc,sizeof(localloc),0);
highvarsym:=nil; { highvarsym:=nil;}
defaultconstsym:=nil; defaultconstsym:=nil;
refs:=0; refs:=0;
varstate:=vs_declared; varstate:=vs_declared;
@ -1475,7 +1475,7 @@ implementation
varstate:=vs_used; varstate:=vs_used;
varspez:=tvarspez(ppufile.getbyte); varspez:=tvarspez(ppufile.getbyte);
fieldoffset:=ppufile.getlongint; fieldoffset:=ppufile.getlongint;
highvarsym:=nil; { highvarsym:=nil;}
defaultconstsym:=nil; defaultconstsym:=nil;
ppufile.gettype(_vartype); ppufile.gettype(_vartype);
ppufile.getsmallset(varoptions); ppufile.getsmallset(varoptions);
@ -2374,7 +2374,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.152 2004-02-04 22:15:15 daniel Revision 1.153 2004-02-04 22:54:57 daniel
* Tvarsym.highvarsym commented out (unused by compiler, purpose unknown)
Revision 1.152 2004/02/04 22:15:15 daniel
* Rtti generation moved to ncgutil * Rtti generation moved to ncgutil
* Assmtai usage of symsym removed * Assmtai usage of symsym removed
* operator overloading cleanup up * operator overloading cleanup up