mescc: Add debug printing: fopen, fwrite.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 10 Jun 2018 05:51:56 +0000 (07:51 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 10 Jun 2018 05:51:56 +0000 (07:51 +0200)
* lib/libc+tcc.c (fopen, fwrite)[MESC_DEBUG]: Print debug info.

lib/libc+tcc.c

index bd4bbfb951e0363420d1e5a53c0d470b69c3f191..ff6b68197ba0f9adfd94b9a4e5997ce9afe25a0f 100644 (file)
@@ -170,9 +170,21 @@ fread (void *data, size_t size, size_t count, FILE *stream)
 size_t
 fwrite (void const *data, size_t size, size_t count, FILE *stream)
 {
+  if (getenv ("MESC_DEBUG"))
+    {
+      eputs ("fwrite "); eputs (itoa ((int)stream));
+      eputs ("  "); eputs (itoa (size)); eputs ("\n");
+    }
+
   if (! size || !count)
     return 0;
   int bytes = write ((int)stream, data, size * count);
+
+  if (getenv ("MESC_DEBUG"))
+    {
+      eputs (" => "); eputs (itoa (bytes)); eputs ("\n");
+    }
+
   if (bytes > 0)
     return bytes/size;
   return 0;
@@ -187,6 +199,12 @@ ftell (FILE *stream)
 FILE*
 fopen (char const *file_name, char const *opentype)
 {
+  if (getenv ("MESC_DEBUG"))
+    {
+      eputs ("fopen "); eputs (file_name);
+      eputs (" "); eputs (opentype); eputs ("\n");
+    }
+
   int fd;
   int mode = 0600;
   if ((opentype[0] == 'a' || !strcmp (opentype, "r+"))
@@ -205,6 +223,11 @@ fopen (char const *file_name, char const *opentype)
   else
     fd = open (file_name, 0, 0);
 
+  if (getenv ("MESC_DEBUG"))
+    {
+      eputs (" => fd="); eputs (itoa (fd)); eputs ("\n");
+    }
+
   return (FILE*)fd;
 }