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

* ncgutil: set pushexceptaddr_frametype_cgsize and setjmp_result_cgsize according to cpu16bitaddr, instead of cpu16bitalu

Browse Source 
git-svn-id: branches/i8086@24233 -
This commit is contained in:
nickysn 2013-04-12 13:38:18 +00:00
parent 107a6f6552
commit 3870f76cda
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncgutil.pas
View File

@ -421,13 +421,13 @@ implementation
procedure new_exception(list:TAsmList;const t:texceptiontemps;exceptlabel:tasmlabel);
const
{$ifdef cpu16bitalu}
{$ifdef cpu16bitaddr}
pushexceptaddr_frametype_cgsize = OS_S16;
setjmp_result_cgsize = OS_S16;
{$else cpu16bitalu}
{$else cpu16bitaddr}
pushexceptaddr_frametype_cgsize = OS_S32;
setjmp_result_cgsize = OS_S32;
{$endif cpu16bitalu}
{$endif cpu16bitaddr}
var
paraloc1,paraloc2,paraloc3 : tcgpara;
pd: tprocdef;