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

* runerror => do_internalerror

Browse Source
This commit is contained in:
pierre 1999-09-07 15:08:51 +00:00
parent 9d5205f1e9
commit 1540c674d3
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cobjects.pas
View File

@ -412,6 +412,9 @@ unit cobjects;
implementation
uses
comphook;
{*****************************************************************************
Memory debug
*****************************************************************************}
@ -1290,7 +1293,7 @@ end;
end;
end;
if (oldroot=nil) or (root=nil) then
runerror(218); {Internalerror is not available...}
do_internalerror(218); {Internalerror is not available...}
if root^.left<>nil then
begin
{Now the node pointing to root must point to the left
@ -2139,7 +2142,7 @@ end;
begin
l:=strlen(p);
if l>=bufsize then
runerror(222);
do_internalerror(222);
{ why is there not CRC here ???}
if bufpos+l>bufsize then
flush;
@ -2254,7 +2257,10 @@ end;
end.
{
$Log$
Revision 1.41 1999-08-24 13:13:57 peter
Revision 1.42 1999-09-07 15:08:51 pierre
* runerror => do_internalerror
Revision 1.41 1999/08/24 13:13:57 peter
* MEMDEBUG to see the sizes of asmlist,asmsymbols,symtables
Revision 1.40 1999/08/12 23:19:05 pierre