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

- removed get_jumpbuf_size/align, use rec_jmp_buf instead

Browse Source 
git-svn-id: branches/hlcgllvm@28371 -
This commit is contained in:
Jonas Maebe 2014-08-10 19:40:16 +00:00
parent 0aab46b97f
commit 142d5d6d06
4 changed files with 4 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/globals.pas
View File

@ -323,9 +323,7 @@ interface
{ Memory sizes }
heapsize,
maxheapsize,
stacksize,
jmp_buf_size,
jmp_buf_align : longint;
stacksize : longint;
{$Ifdef EXTDEBUG}
{ parameter switches }
@ -1407,11 +1405,6 @@ implementation
in options or init_parser }
stacksize:=0;
{ not initialized yet }
{$ifndef jvm}
jmp_buf_size:=-1;
{$else}
jmp_buf_size:=0;
{$endif}
apptype:=app_cui;
{ Init values }

3
compiler/ncgutil.pas
View File

@ -393,9 +393,8 @@ implementation
the TExceptAddr record from the system unit (like we do for jmp_buf_size),
without moving TExceptAddr to the interface part? }
except_buf_size:=voidpointertype.size*2+sizeof(pint);
get_jumpbuf_size;
tg.GetTemp(list,except_buf_size,sizeof(pint),tt_persistent,t.envbuf);
tg.GetTemp(list,jmp_buf_size,jmp_buf_align,tt_persistent,t.jmpbuf);
tg.gethltemp(list,rec_jmp_buf,rec_jmp_buf.size,tt_persistent,t.jmpbuf);
tg.GetTemp(list,sizeof(pint),sizeof(pint),tt_persistent,t.reasonbuf);
end;

4
compiler/nflw.pas
View File

@ -2068,7 +2068,7 @@ implementation
include(current_procinfo.flags,pi_do_call);
include(current_procinfo.flags,pi_uses_exceptions);
inc(current_procinfo.estimatedtempsize,get_jumpbuf_size*2);
inc(current_procinfo.estimatedtempsize,rec_jmp_buf.size*2);
end;
@ -2141,7 +2141,7 @@ implementation
if not(implicitframe) then
include(current_procinfo.flags,pi_uses_exceptions);
inc(current_procinfo.estimatedtempsize,get_jumpbuf_size);
inc(current_procinfo.estimatedtempsize,rec_jmp_buf.size);
end;

14
compiler/symtable.pas
View File

@ -283,7 +283,6 @@ interface
procedure hidesym(sym:TSymEntry);
procedure duplicatesym(var hashedid:THashedIDString;dupsym,origsym:TSymEntry);
function handle_generic_dummysym(sym:TSymEntry;var symoptions:tsymoptions):boolean;
function get_jumpbuf_size : longint;
{*** Search ***}
procedure addsymref(sym:tsym);
@ -2506,19 +2505,6 @@ implementation
end;
function get_jumpbuf_size : longint;
var
srsym : ttypesym;
begin
if jmp_buf_size=-1 then
begin
srsym:=search_system_type('JMP_BUF');
jmp_buf_size:=srsym.typedef.size;
jmp_buf_align:=srsym.typedef.alignment;
end;
result:=jmp_buf_size;
end;
{*****************************************************************************
Search
*****************************************************************************}