* more descriptive error message in case of a missing variant unit added

* variant unit uses now the math unit for ** implementation

git-svn-id: trunk@158 -

.gitattributes

@@ -6123,6 +6123,7 @@ tests/webtbs/tw3973.pp svneol=native#text/plain
 tests/webtbs/tw3977.pp svneol=native#text/plain
 tests/webtbs/tw3977.txt svneol=native#text/plain
 tests/webtbs/tw4010.pp svneol=native#text/plain
+tests/webtbs/tw4013.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain
 tests/webtbs/ub1883.pp svneol=native#text/plain
 tests/webtbs/uw0555.pp svneol=native#text/plain

rtl/inc/variant.inc

@@ -16,27 +16,35 @@
 
 var
    variantmanager : tvariantmanager;
-
+   
-procedure invalidvariantop;
+procedure printmissingvariantunit;
-  begin
-     HandleErrorFrame(221,get_frame);
-  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);
+  end;
+  
+  
+procedure invalidvariantop;
+  begin
+     printmissingvariantunit;
+     HandleErrorFrame(221,get_frame);
+  end;
+
+
+procedure invalidvariantopnovariants;
+  begin
+    printmissingvariantunit;
     HandleErrorFrame(221,get_frame);
   end;
   
   
 procedure vardisperror;
   begin
-     HandleErrorFrame(222,get_frame);
+    printmissingvariantunit;
+    HandleErrorFrame(222,get_frame);
   end;
 
 

tests/webtbs/tw4013.pp

@@ -0,0 +1,13 @@
+{ Source provided for Free Pascal Bug Report 4013 }
+{ Submitted by "Miguel Garcia-Blanco" on  2005-05-25 }
+{ e-mail: mgbonline@hotmail.com }
+PROGRAM Test;
+
+uses
+  variants;
+
+BEGIN
+
+    writeln( 2.0**5.0 );
+
+END.