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

* fixed illegal expr

Browse Source
This commit is contained in:
peter 1999-10-26 12:33:53 +00:00
parent 15e1386725
commit e2781b92b5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
install/demo/win32/testdll.pp
View File

@ -30,8 +30,10 @@ begin
end; end;
procedure P3(var t);export; procedure P3(var t);export;
var
p : pointer;
begin begin
Addr(T); p:=Addr(T);
end; end;
procedure P4(x1:pointer);export; procedure P4(x1:pointer);export;
@ -59,10 +61,13 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 1999-06-30 22:04:56 michael Revision 1.3 1999-10-26 12:33:53 peter
* fixed illegal expr
Revision 1.2 1999/06/30 22:04:56 michael
* Added code to remove warnings * Added code to remove warnings
Revision 1.1 1999/01/12 14:20:36 peter Revision 1.1 1999/01/12 14:20:36 peter
+ dll example + dll example
} }