* procvar fixes

tests/tbs0105.pp

@@ -22,7 +22,7 @@ Var
  Sel: Word;
  v: longint;
 Begin
- Signal(SIGSEGV,signalhandler(our_sig));
+ Signal(SIGSEGV,signalhandler(@our_sig));
  v:=$00ffffff;
  Sel:=word(v);
  writeln(sel);

tests/tbs0249.pp

@@ -55,6 +55,6 @@ begin
   Dummy := TDummy.Create;
   Host := THost.Create;
   with Host,Dummy do
-    OnEvent := HandleEvent; // this is 57, 27 is ";"
+    OnEvent := @HandleEvent; // this is 57, 27 is ";"
   Host.Trigger;
 end.