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

* fixed assert, the tree is now disposed in firstpass if assertions

Browse Source 
are off.
This commit is contained in:
peter 1999-10-29 15:28:51 +00:00
parent 35516c1700
commit 00ef632f73
2 changed files with 41 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cg386inl.pas
View File

@ -872,13 +872,14 @@ implementation
case p^.inlinenumber of
in_assert_x_y:
begin
{ the node should be removed in the firstpass }
if not (cs_do_assertion in aktlocalswitches) then
internalerror(7123458);
otlabel:=truelabel;
oflabel:=falselabel;
getlabel(truelabel);
getlabel(falselabel);
secondpass(p^.left^.left);
if cs_do_assertion in aktlocalswitches then
begin
maketojumpbool(p^.left^.left);
emitlab(falselabel);
{ erroraddr }
@ -898,7 +899,6 @@ implementation
{ call }
emitcall('FPC_ASSERT');
emitlab(truelabel);
end;
freelabel(truelabel);
freelabel(falselabel);
truelabel:=otlabel;
@ -1426,7 +1426,11 @@ implementation
end.
{
$Log$
Revision 1.75 1999-10-26 12:30:40 peter
Revision 1.76 1999-10-29 15:28:51 peter
* fixed assert, the tree is now disposed in firstpass if assertions
are off.
Revision 1.75 1999/10/26 12:30:40 peter
* const parameter is now checked
* better and generic check if a node can be used for assigning
* export fixes

15
compiler/tcinl.pas
View File

@ -1243,6 +1243,15 @@ implementation
end
else
CGMessage(type_e_mismatch);
{ We've checked the whole statement for correctness, now we
can remove it if assertions are off }
if not(cs_do_assertion in aktlocalswitches) then
begin
disposetree(p^.left);
putnode(p);
{ we need a valid node, so insert a nothingn }
p:=genzeronode(nothingn);
end;
end;
else
@ -1260,7 +1269,11 @@ implementation
end.
{
$Log$
Revision 1.56 1999-10-26 12:30:46 peter
Revision 1.57 1999-10-29 15:28:51 peter
* fixed assert, the tree is now disposed in firstpass if assertions
are off.
Revision 1.56 1999/10/26 12:30:46 peter
* const parameter is now checked
* better and generic check if a node can be used for assigning
* export fixes