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

* fixed enum for not GDB

Browse Source
This commit is contained in:
peter 1998-09-24 15:11:17 +00:00
parent 1b83196296
commit 3d947ea74d
2 changed files with 39 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/symsym.inc
View File

@ -1461,6 +1461,7 @@
end;
{$endif GDB}
{****************************************************************************
TENUMSYM
****************************************************************************}
@ -1475,35 +1476,30 @@
def^.setmin(v);
if def^.max<v then
def^.setmax(v);
{$ifdef GDB}
order;
{$endif GDB}
end;
constructor tenumsym.load;
constructor tenumsym.load;
begin
tsym.load;
typ:=enumsym;
definition:=penumdef(readdefref);
value:=readlong;
{$ifdef GDB}
next := Nil;
{$endif GDB}
end;
procedure tenumsym.deref;
begin
resolvedef(pdef(definition));
{$ifdef GDB}
order;
{$endif}
end;
{$ifdef GDB}
procedure tenumsym.order;
var sym : penumsym;
var
sym : penumsym;
begin
sym := definition^.first;
if sym = nil then
@ -1517,7 +1513,8 @@
begin
next := sym;
definition^.first := @self;
end else
end
else
begin
while (sym^.value <= value) and assigned(sym^.next) do
sym := sym^.next;
@ -1525,10 +1522,9 @@
sym^.next := @self;
end;
end;
{$endif GDB}
procedure tenumsym.write;
begin
tsym.write;
writedefref(definition);
@ -1536,6 +1532,7 @@
current_ppu^.writeentry(ibenumsym);
end;
{$ifdef GDB}
procedure tenumsym.concatstabto(asmlist : paasmoutput);
begin
@ -1543,6 +1540,7 @@
end;
{$EndIf GDB}
{****************************************************************************
TTYPESYM
****************************************************************************}
@ -1717,7 +1715,10 @@
{
$Log$
Revision 1.46 1998-09-23 15:39:13 pierre
Revision 1.47 1998-09-24 15:11:17 peter
* fixed enum for not GDB
Revision 1.46 1998/09/23 15:39:13 pierre
* browser bugfixes
was adding a reference when looking for the symbol
if -bSYM_NAME was used

7
compiler/symsymh.inc
View File

@ -291,8 +291,8 @@
constructor load;
procedure write;virtual;
procedure deref;virtual;
{$ifdef GDB}
procedure order;
{$ifdef GDB}
procedure concatstabto(asmlist : paasmoutput);virtual;
{$endif GDB}
end;
@ -314,7 +314,10 @@
{
$Log$
Revision 1.1 1998-09-23 12:03:57 peter
Revision 1.2 1998-09-24 15:11:18 peter
* fixed enum for not GDB
Revision 1.1 1998/09/23 12:03:57 peter
* overloading fix for array of const
}