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

* return error 210 for failed self test

Browse Source
This commit is contained in:
peter 2002-11-16 17:06:28 +00:00
parent 6a7e86a86a
commit 98ee9c11cc
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cgobj.pas
View File

@ -1401,13 +1401,15 @@ unit cgobj;
procedure tcg.g_maybe_testself(list : taasmoutput);
var
OKLabel : tasmlabel;
dummyloc : tparalocation;
begin
if (cs_check_object in aktlocalswitches) or
(cs_check_range in aktlocalswitches) then
begin
objectlibrary.getlabel(oklabel);
a_cmp_const_reg_label(list,OS_ADDR,OC_NE,0,SELF_POINTER_REG,oklabel);
a_call_name(list,'FPC_RANGEERROR');
a_param_const(list,OS_INT,210,dummyloc);
a_call_name(list,'FPC_HANDLEERROR');
a_label(list,oklabel);
end;
end;
@ -1620,7 +1622,10 @@ finalization
end.
{
$Log$
Revision 1.63 2002-11-15 01:58:46 peter
Revision 1.64 2002-11-16 17:06:28 peter
* return error 210 for failed self test
Revision 1.63 2002/11/15 01:58:46 peter
* merged changes from 1.0.7 up to 04-11
- -V option for generating bug report tracing
- more tracing for option parsing