*** empty log message ***

[h316.git] / pc-tools / ldc / process.c

diff --git a/pc-tools/ldc/process.c b/pc-tools/ldc/process.c
index 4e7a29d81f6668f503f47ef2490851ff736db411..9dd71be48aab208836e620c6e7e3872d2eedee92 100644 (file)
--- a/pc-tools/ldc/process.c
+++ b/pc-tools/ldc/process.c
@@ -4,9 +4,11 @@
 
 #include "process.h"
 
+
 //#define DEBUG_DATA
 /**********************************************************************/
 
+
 int get_blocktype (datablock * block){
     return block->data[0].blocktype.type;
 }
@@ -54,7 +56,6 @@ char ** extract_labels0(datablock * blockp){
        memcpy (akt, ((char *) data) + 4 + c * 6, 6);
        akt[6]=0;
        
-       
        int dd=5;
        while (akt[dd]==' ') akt[dd--]=0; // hinten kürzen;
        dd=0;
@@ -309,21 +310,18 @@ case 6:{
     char akt[7] = "SYMBOL";
     memcpy (akt, dat + 3, 6);
     twistbytes (data + 1, 4);
-
-
 sayf ("%s     (6)     subroutine or common block definition",akt);
 
-
 }
 break;
 case 7:{
-    parstrip ((char *) data + 3, 6);
-    twistbytes (data + 1, 4);
-    char akt[7] = "SYMBOL";
-    memcpy (akt, ((char *) data) + 3, 6);
-    twistbytes (data + 1, 4);
-
-    sayf ("%s    (7)     reference (call) to common item", akt);
+    char * dat =(char *) data;       // Get byte pointer
+    twistbytes (data + 1, 4);        // Do the endian thing
+    parstrip ((char *) data + 3, 6); // Strip parity bits away
+    char akt[7] = "SYMBOL";       
+    memcpy (akt, dat + 3, 6);        // Take the name
+    twistbytes (data + 1, 4);        // repair the head    
+    sayf ("%s     (7)     reference (call) to common item", akt);
 }
 
 break;