X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fds390%2Fgen.c;h=d417b07fc9afe1de751f7ed6112b74f7b547de3f;hb=79d1651a0bec601915aa333071a8e05edb5b1285;hp=ad5d8c4e5e61692862e1b9e9405406aeae15c40c;hpb=8a1af5f2860baea80117f6b992d5141eb7396c0e;p=fw%2Fsdcc

diff --git a/src/ds390/gen.c b/src/ds390/gen.c
index ad5d8c4e..d417b07f 100644
--- a/src/ds390/gen.c
+++ b/src/ds390/gen.c
@@ -12697,7 +12697,7 @@ gen390Code (iCode * lic)
   }
 #if 1
   /* print the allocation information */
-  if (allocInfo)
+  if (allocInfo && currFunc)
     printAllocInfo (currFunc, codeOutFile);
 #endif
   /* if debug information required */