paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +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 implementation
uses
comphook;
{***************************************************************************** {*****************************************************************************
Memory debug Memory debug
*****************************************************************************} *****************************************************************************}
@ -1290,7 +1293,7 @@ end;
end; end;
end; end;
if (oldroot=nil) or (root=nil) then 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 if root^.left<>nil then
begin begin
{Now the node pointing to root must point to the left {Now the node pointing to root must point to the left
@ -2139,7 +2142,7 @@ end;
begin begin
l:=strlen(p); l:=strlen(p);
if l>=bufsize then if l>=bufsize then
runerror(222); do_internalerror(222);
{ why is there not CRC here ???} { why is there not CRC here ???}
if bufpos+l>bufsize then if bufpos+l>bufsize then
flush; flush;
@ -2254,7 +2257,10 @@ end;
end. end.
{ {
$Log$ $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 * MEMDEBUG to see the sizes of asmlist,asmsymbols,symtables
Revision 1.40 1999/08/12 23:19:05 pierre Revision 1.40 1999/08/12 23:19:05 pierre