projects
/
egate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e11028b
)
Bug fix.
author
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 2 Mar 1995 10:18:48 +0000
(10:18 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 2 Mar 1995 10:18:48 +0000
(10:18 +0000)
fml/fmlmem.c
patch
|
blob
|
history
diff --git
a/fml/fmlmem.c
b/fml/fmlmem.c
index
f65fc79
..
e78fc3c
100644
(file)
--- a/
fml/fmlmem.c
+++ b/
fml/fmlmem.c
@@
-2,7
+2,10
@@
* FML interpreter. Europagate, 1995
*
* $Log: fmlmem.c,v $
* FML interpreter. Europagate, 1995
*
* $Log: fmlmem.c,v $
- * Revision 1.10 1995/03/02 08:06:03 adam
+ * Revision 1.11 1995/03/02 10:18:48 adam
+ * Bug fix.
+ *
+ * Revision 1.10 1995/03/02 08:06:03 adam
* Fml function strsub implemented. New test files marc[45].fml.
* New test options in fmltest.
*
* Fml function strsub implemented. New test files marc[45].fml.
* New test options in fmltest.
*
@@
-165,7
+168,7
@@
int fml_atom_cmp (Fml fml, struct fml_atom *a1, struct fml_atom *a2)
int fml_atom_str (struct fml_atom *a, char *str)
{
int fml_atom_str (struct fml_atom *a, char *str)
{
- int len = 0;
+ int i, len = 0;
assert (a);
while (a->next)
assert (a);
while (a->next)
@@
-175,9
+178,14
@@
int fml_atom_str (struct fml_atom *a, char *str)
len += FML_ATOM_BUF;
a = a->next;
}
len += FML_ATOM_BUF;
a = a->next;
}
+ for (i=0; i<FML_ATOM_BUF && a->buf[i]; i++)
+ ;
if (str)
if (str)
- strcpy (str+len, a->buf);
- len += strlen(str+len);
+ {
+ memcpy (str+len, a->buf, i);
+ str[len+i] = 0;
+ }
+ len += i;
return len;
}
return len;
}