From: kaashoek <none@none>
Date: Fri, 27 May 1988 09:21:37 +0000 (+0000)
Subject: skip_string() gewijzigd zodat ook instructies met een '.' erin geaccepteerd
X-Git-Tag: release-5-5~3251
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=cd73332f77a81ab5893eb4fff5d4c9160bb7738c;p=ack.git

skip_string() gewijzigd zodat ook instructies met een '.' erin geaccepteerd
worden. Komen voor in de 68020 assembler, bijv. "move.l", "add.l", etc. .
---

diff --git a/util/ceg/assemble/obj_assemble/assemble.c b/util/ceg/assemble/obj_assemble/assemble.c
index eff6cf087..45d75a7b2 100644
--- a/util/ceg/assemble/obj_assemble/assemble.c
+++ b/util/ceg/assemble/obj_assemble/assemble.c
@@ -6,10 +6,11 @@
 
 /* This file contains the routine assemble(). Assemble() cuts an
  * assembly instruction in a label, a mnemonic and several operands.
- * For a label and operands it calls table writer defined routines, 
- * process_label() and process_operand(), to give the table writer 
- * the oppurtunity to do something special. At the end assemble() calls
- * the routine belonging to the mnemonic with the supplied operands.
+ * For a mnemonic,label and operands it calls table writer defined 
+ * routines, process_mnemonic() * process_label() and process_operand(), 
+ * to give the table writer the oppurtunity to do something special.
+ * At the end assemble() calls the routine belonging to the mnemonic 
+ * with the supplied operands.
  *     If the table writer has other expectations of assemble() he should
  * write his own version.
  * 	Assemble parser the following instructions :
@@ -169,7 +170,7 @@ char *match_ch( c, str, instr)
 char *skip_string( ptr)
 	char *ptr;
 {
-	while  ( isalnum( *ptr) || ( *ptr == '_'))
+	while  ( isalnum( *ptr) && !isspace( *ptr) && *ptr != ':')
 		ptr++;
 	return( ptr);
 }