* unused local var commented

This commit is contained in:
pierre 1999-04-16 09:56:05 +00:00
parent c568c17e4a
commit 155e60790a

View File

@ -321,10 +321,16 @@ unit globals;
function assigned(p : pointer) : boolean;
{$ifndef FPC}
{$ifndef DPMI}
var
lp : longint;
{$endif DPMI}
{$endif FPC}
begin
{$ifdef FPC}
{ Assigned is used for procvar and
stack stored temp records !! PM }
(* if (p<>nil) {and
((p<heaporg) or
(p>heapptr))} then
@ -1163,7 +1169,10 @@ begin
end.
{
$Log$
Revision 1.1 1999-04-08 09:14:46 michael
Revision 1.2 1999-04-16 09:56:05 pierre
* unused local var commented
Revision 1.1 1999/04/08 09:14:46 michael
+ Re-added;
Revision 1.119 1999/04/07 14:15:53 pierre