Changeset 417

Timestamp:

Jul 21, 2003, 1:24:42 AM (22 years ago)

Author:

bird

Message:

fixes.

File:

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

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

@@ -53 +53 @@
     do
         if (sDefFile = '') then
-            sDefFile = sArg;
+            sDefFile = translate(sArg, '\', '/');
         else if (sLegacyFile = '') then
-            sLegacyFile = sArg;
+            sLegacyFile = translate(sArg, '\', '/');
         else
         do
@@ -116 +116 @@
             s = NextWord();
         end
+        else
+        do
+            iLastOrdinal = iLastOrdinal + 1;
+            iOrdinal = iLastOrdinal;
+        end
         aResult.i.msRest = s;
         if (sLine <> '') then
@@ -142 +147 @@
     if (fInExports) then
     do
-        if (sLine = '') then
+        if (sLine = '' | left(sLine, 1) = ';') then
             iterate;
 
@@ -158 +163 @@
         do
             iOrdinal = substr(s, 2);
+            if (iOrdinal > iLastOrdinal) then
+                iLastOrdinal = iOrdinal;
             s = NextWord();
         end