From 155e60790a86fc9ace41eaaca7178aad3a38303c Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 16 Apr 1999 09:56:05 +0000
Subject: [PATCH]  * unused local var commented

---
 compiler/globals.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index 594042469e..c9b5c34c82 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -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