mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-07 12:50:31 +02:00
* compilation fixed
git-svn-id: trunk@33003 -
This commit is contained in:
parent
5aabe71aee
commit
8b4a392863
@ -108,7 +108,7 @@ unit aoptbase;
|
||||
implementation
|
||||
|
||||
uses
|
||||
globtype,globals,aoptcpub;
|
||||
verbose,globtype,globals,aoptcpub;
|
||||
|
||||
constructor taoptbase.create;
|
||||
begin
|
||||
@ -293,6 +293,7 @@ unit aoptbase;
|
||||
|
||||
function TAoptBase.RegLoadedWithNewValue(reg : tregister; hp : tai) : boolean;
|
||||
begin
|
||||
result:=false;
|
||||
internalerror(2016012401);
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user