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

* procvar fixes

Browse Source
This commit is contained in:
peter 1999-07-05 20:03:30 +00:00
parent 4d04e9766a
commit fcd419b84a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs0105.pp
View File

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

2
tests/tbs0249.pp
View File

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