Changeset 551

Timestamp:

Aug 8, 2003, 11:04:34 AM (22 years ago)

Author:

bird

Message:

Made it handle new emxexp output.

File:

• trunk/src/misc/dllar.cmd (modified) (1 diff, 1 prop)

trunk/src/misc/dllar.cmd

@@ -243 +243 @@
             if (EXPORT_BY_ORDINALS) then
             do
-                line = line||copies('    ',(71-length(line))%8)'@'ordinal' NONAME';
+                iPos = pos(';', line);
+                if (iPos > 1) then 
+                    line = strip(substr(line, 1, iPos - 1), 'T');
+                line = line||' @'||ordinal||' NONAME';
                 ordinal = ordinal + 1;
             end;