Changeset 784

Timestamp:

Oct 2, 2003, 3:11:55 AM (22 years ago)

Author:

bird

Message:

Fixed.

File:

• trunk/src/emx/src/lib/dlllegacy.cmd (modified) (3 diffs, 1 prop)

trunk/src/emx/src/lib/dlllegacy.cmd

@@ -143 +143 @@
 do while (lines(sDefFile) > 0)
     sLine = strip(linein(sDefFile));
-    iPos = pos(';', sLine);
-    if (iPos > 0) then
-        sLine = strip(left(sLine, iPos - 1));
+
+    /* strip of comments and such. */
+    iComment = pos(';', sLine);
+    if (iComment > 0) then
+        sLine = strip(substr(sLine, 1, iComment - 1));
+
 
     /* process the line */
@@ -166 +169 @@
         do
             iOrdinal = substr(s, 2);
-            if (iOrdinal > iLastOrdinal) then
-                iLastOrdinal = iOrdinal;
+            /*if (iOrdinal > iLastOrdinal) then
+                iLastOrdinal = iOrdinal; */
             s = NextWord();
         end
@@ -193 +196 @@
         if (\fFound) then
         do
-            if (iOrdinal = 0) then
+            /*if (iOrdinal = 0) then */
             do
                 iLastOrdinal = iLastOrdinal + 1;