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

* Cleanup of variant manager stub in System unit. FPC 2.1.1 adds Variants unit implicitly. Variant manager stub in System unit is never called. This cleanup shrinks wince executable size by 3KB.

Browse Source 
git-svn-id: trunk@5307 -
This commit is contained in:
yury 2006-11-10 14:41:45 +00:00
parent c00d0debf0
commit cc2b691c0c
2 changed files with 0 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
rtl/inc/variant.inc
View File

@ -17,48 +17,10 @@
var var
variantmanager : tvariantmanager; variantmanager : tvariantmanager;
procedure printmissingvariantunit;
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);
end;
procedure invalidvariantop;
begin
printmissingvariantunit;
HandleErrorFrame(221,get_frame);
end;
procedure invalidvariantopnovariants;
begin
printmissingvariantunit;
HandleErrorFrame(221,get_frame);
end;
procedure vardisperror;
begin
printmissingvariantunit;
HandleErrorFrame(222,get_frame);
end;
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
Compiler helper routines. Compiler helper routines.
---------------------------------------------------------------------} ---------------------------------------------------------------------}
procedure varclear(var v : tvardata);
begin
if not(v.vtype in [varempty,varerror,varnull]) then
invalidvariantop;
end;
procedure variant_init(var v : tvardata);[Public,Alias:'FPC_VARIANT_INIT']; procedure variant_init(var v : tvardata);[Public,Alias:'FPC_VARIANT_INIT'];
begin begin
{ calling the variant manager here is a problem because the static/global variants { calling the variant manager here is a problem because the static/global variants
@ -1005,29 +967,6 @@ begin
VariantManager:=VarMgr; VariantManager:=VarMgr;
end; end;
function IsVariantManagerSet: Boolean;
var
i : longint;
begin
I:=0;
Result:=True;
While Result and (I<(sizeof(tvariantmanager) div sizeof(pointer))-1) do
begin
Result:=(PPointer(@variantmanager)+i)^<>Pointer(@invalidvariantop);
Inc(I);
end;
end;
procedure initvariantmanager; procedure initvariantmanager;
var
i : longint;
begin begin
VarDispProc:=@vardisperror;
DispCallByIDProc:=@vardisperror;
tvardata(Unassigned).VType:=varEmpty;
tvardata(Null).VType:=varNull;
for i:=0 to (sizeof(tvariantmanager) div sizeof(pointer))-1 do
(ppointer(@variantmanager)+i)^:=@invalidvariantopnovariants;
pointer(variantmanager.varclear):=@varclear
end; end;

6
rtl/inc/varianth.inc
View File

@ -194,7 +194,6 @@ type
procedure GetVariantManager(var VarMgr: TVariantManager); procedure GetVariantManager(var VarMgr: TVariantManager);
procedure SetVariantManager(const VarMgr: TVariantManager); procedure SetVariantManager(const VarMgr: TVariantManager);
function IsVariantManagerSet: Boolean;
const const
VarClearProc : procedure(var v : TVarData) = nil; VarClearProc : procedure(var v : TVarData) = nil;
@ -203,11 +202,6 @@ const
VarToLStrProc : procedure(var d : AnsiString;const s : TVarData) = nil; VarToLStrProc : procedure(var d : AnsiString;const s : TVarData) = nil;
VarToWStrProc : procedure(var d : WideString;const s : TVarData) = nil; VarToWStrProc : procedure(var d : WideString;const s : TVarData) = nil;
var
VarDispProc : pointer;
DispCallByIDProc : pointer;
Null,Unassigned : Variant;
{********************************************************************** {**********************************************************************
to Variant assignments to Variant assignments
**********************************************************************} **********************************************************************}