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

* Tvarsym.highvarsym removed

Browse Source
This commit is contained in:
daniel 2004-02-05 14:13:53 +00:00
parent 57c37fd31d
commit 20469d47a0
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pdecsub.pas
View File

@ -292,7 +292,6 @@ implementation
hvs:=tvarsym.create('$high'+tvarsym(currpara.parasym).name,vs_const,s32inttype);
include(hvs.varoptions,vo_is_high_value);
tvarsym(currpara.parasym).owner.insert(hvs);
{ tvarsym(currpara.parasym).highvarsym:=hvs;}
end
else
hvs:=nil;
@ -2140,7 +2139,10 @@ const
end.
{
$Log$
Revision 1.160 2004-02-04 22:54:57 daniel
Revision 1.161 2004-02-05 14:13:53 daniel
* Tvarsym.highvarsym removed
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

12
compiler/symsym.pas
View File

@ -153,7 +153,6 @@ interface
end;
tvarsym = class(tstoredsym)
{ highvarsym : tvarsym;}
defaultconstsym : tsym;
varoptions : tvaroptions;
varspez : tvarspez; { sets the type of access }
@ -1431,7 +1430,6 @@ implementation
varspez:=vsp;
fieldoffset:=0;
fillchar(localloc,sizeof(localloc),0);
{ highvarsym:=nil;}
defaultconstsym:=nil;
refs:=0;
varstate:=vs_declared;
@ -1467,7 +1465,6 @@ implementation
varstate:=vs_used;
varspez:=tvarspez(ppufile.getbyte);
fieldoffset:=ppufile.getlongint;
{ highvarsym:=nil;}
defaultconstsym:=nil;
ppufile.gettype(_vartype);
ppufile.getsmallset(varoptions);
@ -2109,6 +2106,8 @@ implementation
if def.max<v then
def.setmax(v);
order;
{ nextenum:=Tenumsym(def.firstenum);
def.firstenum:=self;}
end;
@ -2134,7 +2133,6 @@ implementation
order;
end;
procedure tenumsym.order;
var
sym : tenumsym;
@ -2161,7 +2159,6 @@ implementation
end;
end;
procedure tenumsym.ppuwrite(ppufile:tcompilerppufile);
begin
inherited writesym(ppufile);
@ -2366,7 +2363,10 @@ implementation
end.
{
$Log$
Revision 1.154 2004-02-04 23:01:36 daniel
Revision 1.155 2004-02-05 14:13:53 daniel
* Tvarsym.highvarsym removed
Revision 1.154 2004/02/04 23:01:36 daniel
* Empty destructor Tlabelsym.destroy removed
Revision 1.153 2004/02/04 22:54:57 daniel