[Tinyos8051wg-commit] SF.net SVN: tinyos8051wg:[1106] trunk/diku/mcs51/support/make/mcs51/ mangleAppC.pl

[<qz...@us...>]

Revision: 1106
          http://tinyos8051wg.svn.sourceforge.net/tinyos8051wg/?rev=1106&view=rev
Author:   qzban
Date:     2010-01-30 21:52:17 +0000 (Sat, 30 Jan 2010)

Log Message:
-----------
Mangle script update

Modified Paths:
--------------
    trunk/diku/mcs51/support/make/mcs51/mangleAppC.pl

Modified: trunk/diku/mcs51/support/make/mcs51/mangleAppC.pl
===================================================================
--- trunk/diku/mcs51/support/make/mcs51/mangleAppC.pl	2010-01-30 21:21:32 UTC (rev 1105)
+++ trunk/diku/mcs51/support/make/mcs51/mangleAppC.pl	2010-01-30 21:52:17 UTC (rev 1106)
@@ -172,10 +172,9 @@
     }
 print STDERR "Reentrant stop\n";
 
-
 if (open (RFILE, ">$reentFile")) {
     foreach my $fn (@reentrantFunctions) {print RFILE "$fn\n";}
-    close RFILE;
+    # close RFILE;
 }
 
 
@@ -400,7 +399,7 @@
           foreach my $reentrantFunc (@reentrantFunctions) {
               my $funcName = quotemeta($reentrantFunc);
               # Match a functioname (that is not a substring
-              if (m{[\s^\*]$funcName\s*\(}gi) {
+              if (m{[\/\s^\*]$funcName\s*\(}gi) {
                   # Check that this is a one-line definition
                   if ( tr/\(// != tr/\)// ) {
                       # Paranthesis levels do not match. Wait for ")".


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.