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

* better message in case of missing variants unit

Browse Source 
git-svn-id: trunk@69 -
This commit is contained in:
florian 2005-05-22 12:41:36 +00:00
parent dfcb5903a9
commit 937fcdf41e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/variant.inc
View File

@ -22,6 +22,18 @@ procedure invalidvariantop;
HandleErrorFrame(221,get_frame); HandleErrorFrame(221,get_frame);
end; end;
procedure invalidvariantopnovariants;
begin
writeln(stderr);
writeln(stderr,'Program needs probably the variants unit.');
writeln(stderr,'Include the variants unit in your uses statements');
writeln(stderr,'as one of the first units.');
writeln(stderr);
HandleErrorFrame(221,get_frame);
end;
procedure vardisperror; procedure vardisperror;
begin begin
HandleErrorFrame(222,get_frame); HandleErrorFrame(222,get_frame);
@ -619,7 +631,7 @@ procedure initvariantmanager;
tvardata(Unassigned).VType:=varEmpty; tvardata(Unassigned).VType:=varEmpty;
tvardata(Null).VType:=varNull; tvardata(Null).VType:=varNull;
for i:=0 to (sizeof(tvariantmanager) div sizeof(pointer))-1 do for i:=0 to (sizeof(tvariantmanager) div sizeof(pointer))-1 do
ppointer(@variantmanager+i*sizeof(pointer))^:=@invalidvariantop; ppointer(@variantmanager+i*sizeof(pointer))^:=@invalidvariantopnovariants;
pointer(variantmanager.varclear):=@varclear pointer(variantmanager.varclear):=@varclear
end; end;