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

* reset_gdb_info only when debuginfo is set

Browse Source
This commit is contained in:
peter 1998-09-21 09:00:18 +00:00
parent d11f7636be
commit fc476492a1
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/parser.pas
View File

@ -70,8 +70,8 @@ unit parser;
{ memory sizes } { memory sizes }
if heapsize=0 then if heapsize=0 then
heapsize:=target_info.heapsize; heapsize:=target_info.heapsize;
if maxheapsize=0 then if maxheapsize=0 then
maxheapsize:=target_info.maxheapsize; maxheapsize:=target_info.maxheapsize;
if stacksize=0 then if stacksize=0 then
stacksize:=target_info.stacksize; stacksize:=target_info.stacksize;
end; end;
@ -230,7 +230,8 @@ unit parser;
{ init code generator for a new module } { init code generator for a new module }
codegen_newmodule; codegen_newmodule;
{$ifdef GDB} {$ifdef GDB}
reset_gdb_info; if cs_debuginfo in aktmoduleswitches then
reset_gdb_info;
{$endif GDB} {$endif GDB}
{ Handle things which need to be once } { Handle things which need to be once }
@ -288,7 +289,8 @@ unit parser;
{$endif} {$endif}
{$ifdef GDB} {$ifdef GDB}
reset_gdb_info; if cs_debuginfo in aktmoduleswitches then
reset_gdb_info;
{$endif GDB} {$endif GDB}
{ free ppu } { free ppu }
@ -371,7 +373,10 @@ unit parser;
end. end.
{ {
$Log$ $Log$
Revision 1.46 1998-09-21 08:45:12 pierre Revision 1.47 1998-09-21 09:00:18 peter
* reset_gdb_info only when debuginfo is set
Revision 1.46 1998/09/21 08:45:12 pierre
+ added vmt_offset in tobjectdef.write for fututre use + added vmt_offset in tobjectdef.write for fututre use
(first steps to have objects without vmt if no virtual !!) (first steps to have objects without vmt if no virtual !!)
+ added fpu_used field for tabstractprocdef : + added fpu_used field for tabstractprocdef :