2
0
Эх сурвалжийг харах

* reduced level of comment that type is wrong for release

peter 23 жил өмнө
parent
commit
b65dedc9e4

+ 5 - 2
compiler/tgobj.pas

@@ -357,7 +357,7 @@ unit tgobj;
                if not(hp^.temptype in temptypes) then
                if not(hp^.temptype in temptypes) then
                 begin
                 begin
 {$ifdef EXTDEBUG}
 {$ifdef EXTDEBUG}
-                  Comment(V_Warning,'temp managment : (Freetemp) temp at pos '+tostr(pos)+ ' has wrong type !');
+                  Comment(V_Debug,'temp managment : (Freetemp) temp at pos '+tostr(pos)+ ' has different type, not releasing');
 {$endif}
 {$endif}
                   exit;
                   exit;
                 end;
                 end;
@@ -503,7 +503,10 @@ finalization
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.14  2002-09-01 12:14:53  peter
+  Revision 1.15  2002-09-01 18:42:50  peter
+    * reduced level of comment that type is wrong for release
+
+  Revision 1.14  2002/09/01 12:14:53  peter
     * fixed some wrong levels in extdebug comments
     * fixed some wrong levels in extdebug comments
 
 
   Revision 1.13  2002/08/24 18:35:04  peter
   Revision 1.13  2002/08/24 18:35:04  peter