Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

rtl: fixed typo in variants.pp noticed by Ivan Shikhalev (mantis #0017983)

git-svn-id: trunk@16368 -
paul 14 years ago
parent
a5473c33cc
commit
23e74d5d46
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      rtl/inc/variants.pp

+ 1 - 1
rtl/inc/variants.pp
View File 

@@ -3590,7 +3590,7 @@ function Null: Variant;       // Null standard constant
 
 
 
 procedure VarDispInvokeError;
 
 procedure VarDispInvokeError;
 
   begin
 
   begin
 
-    raise EVariantDispatchError(SDispatchError);
 
+    raise EVariantDispatchError.Create(SDispatchError);
 
   end;
 
   end;
 
 
 
 { ---------------------------------------------------------------------
 
 { ---------------------------------------------------------------------