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

Added FPC_ prefix to abstracterror

Browse Source
This commit is contained in:
michael 1998-09-16 12:37:07 +00:00
parent 40feecac4e
commit c3781fba38
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/types.pas
View File

@ -882,7 +882,7 @@ unit types;
if (procdefcoll^.data^.options and poabstractmethod)<>0 then if (procdefcoll^.data^.options and poabstractmethod)<>0 then
begin begin
_class^.options:=_class^.options or oois_abstract; _class^.options:=_class^.options or oois_abstract;
datasegment^.concat(new(pai_const,init_symbol('ABSTRACTERROR'))); datasegment^.concat(new(pai_const,init_symbol('FPC_ABSTRACTERROR')));
end end
else else
begin begin
@ -919,7 +919,10 @@ unit types;
end. end.
{ {
$Log$ $Log$
Revision 1.28 1998-09-09 16:44:23 florian Revision 1.29 1998-09-16 12:37:31 michael
Added FPC_ prefix to abstracterror
Revision 1.28 1998/09/09 16:44:23 florian
* I hope, the case bug is fixed now * I hope, the case bug is fixed now
Revision 1.27 1998/09/07 17:37:07 florian Revision 1.27 1998/09/07 17:37:07 florian

7
rtl/inc/system.inc
View File

@ -287,7 +287,7 @@ begin
end; end;
procedure abstracterror;[public,alias : 'ABSTRACTERROR']; procedure abstracterror;[public,alias : 'FPC_ABSTRACTERROR'];
begin begin
Runerror(211); Runerror(211);
@ -469,7 +469,10 @@ end;
{ {
$Log$ $Log$
Revision 1.31 1998-09-15 17:12:32 michael Revision 1.32 1998-09-16 12:37:07 michael
Added FPC_ prefix to abstracterror
Revision 1.31 1998/09/15 17:12:32 michael
+ Merged changes from fixes branch + Merged changes from fixes branch