X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=pc-tools%2Fldc%2Fprocess.c;fp=pc-tools%2Fldc%2Fprocess.c;h=9dd71be48aab208836e620c6e7e3872d2eedee92;hb=77ce3d6adf5a51792f1a11593e7156ee226ee9e1;hp=4e7a29d81f6668f503f47ef2490851ff736db411;hpb=3d1137731a5829b177165e74f92ba063328a1156;p=h316.git

diff --git a/pc-tools/ldc/process.c b/pc-tools/ldc/process.c
index 4e7a29d..9dd71be 100644
--- 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;