Линковка obj-ей.

[SeRRg]

Помогите, кто чем может.

Мне по информатике препод сказал дома узнать и посмотреть, можно ли слинковывать obj - файлы, получающиеся
на предв. этапе обработки в Различных ЯП (н-р, VB, Pascal, C++, Asm). И принести ему рабочий пример на Делфи.
Пример я не прошу (хотя если кто-нить сделает, против не буду ), просто не могли бы вы теоретический аспект немного разъяснить или хотя бы ссылку дать какую-нибудь. ?

[GSerg]

Вопрос лишь в том, какие форматы понимает линковщик и какие производит компилятор. Непосредственно от языка это вообще не зависит, насколько я знаю
Например, если obj в формате COFF, то, по идее, пофигу, на каком языке он писан И если таковых obj несколько, то любой линковщик, понимающий COFF, их слинкует.
Имхо.

[gaidar]

Возьми нормальный "линковщик" и вызывай его через командную строку Простота

[SeRRg]

Нет, беда не в том, чтобы слинковать.. Это я могу. Дело в другом: Допустим, я создал в VB функцию, ну, скажем,

Public Function mmm()
MsgBox "sss"
End Function

(или подпрограмму) Как мне построить файл cpp консольного приложения в VC++, чтобы его obj при линковке
с obj'ем этого модуля давал желаемый результат (чтобы из Си вызывалась функция VB)???

[GSerg]

Эээ....
Видимо, нужно эту функцию описать как external в C, а линкер уже разберётся по имени...
А чтобы получить obj от VB, тебе придётся сделать так (во всяком случае, я так делал ): подменить файл link.exe на заглушку, которая копирует все obj из своей командной строки куда-нибудь далеко, а то VB имеет нехорошую привычку их очень быстро удалять

[gaidar]

Ну почему же, можно заменять и нормальным link.bat, который копирует файлы перед линковкой и линкует их в другом месте.
А вот на счет линковки модуля VB и CPP - очень сомневаюсь. Да и как оно будет работать? Ты подумай, это совмещение двух разных вещей.

[GSerg]

Всё, пошёл пробовать...

[GSerg]

Ага, вот я и вернулся Сообщаю.

VS6 распознал переданный через командную строку obj, созданный в VB. Только вот по дефолту extern int __stdcall VBFunction(int, int) компилятор преобразует в ... в общем, меняет имя, как и всегда , и вот это новое имя не совпадает с изменённым именем этой функции в VB-obj, поэтому и получается один неразрешённый внешний.
Кстати, сначала таковых было два, поскольку obj №1 ещё ссылался на функцию проверки переполнения. Когда добавил в командную строку VC ссылки на Project1.obj и VBAEXE6.lib, функция переполнения успешно разрешилась.

Вывод: линковка возможна в принципе. Нужно только понять, как избежать несоответствия изменённых имён

[Zer]

А не у кого нет линка для a86? А то по-моему он без лицензии не распростроняется в отличии от самого a86.

[SeRRg]

Спасибо за исследование. У меня почти так же получилось (в смысле-ничего не получилось ) Тогда еще один вопрос: все ли компиляторы меняют названия функций???

[tyomitch]

Спасибо за исследование. У меня почти так же получилось (в смысле-ничего не получилось ) Тогда еще один вопрос: все ли компиляторы меняют названия функций???

http://weblogs.asp.net/oldnewthing/archive/2004/01/08/48616.aspx

[GSerg]

А раз так, может, нужно как-то уточнить определение extern в C? dllimport вставить или ещё чего...

[GSerg]

Эге...

extern int __stdcall VBFunction(int p1, int p2); ?VBFunction@@YGHHH@Z

extern int __declspec(dllimport) __stdcall VBFunction(int p1, int p2); __imp_?VBFunction@@YGHHH@Z

А в VBHeader.obj содержится ?VBFunction@VBHeader@@AAGXXZ

[tyomitch]

Microsoft (R) C++ Name Undecorator
Copyright (C) Microsoft Corporation 1981-2001. All rights reserved.

Undecoration of :- "?VBFunction@@YGHHH@Z"
is :- "int __stdcall VBFunction(int,int)"

Microsoft (R) C++ Name Undecorator
Copyright (C) Microsoft Corporation 1981-2001. All rights reserved.

Undecoration of :- "?VBFunction@VBHeader@@AAGXXZ"
is :- "private: void __stdcall VBHeader::VBFunction(void)"

[GSerg]

Гы.
А ведь функция-то в модуле! И она определённо long.

Вот от меня пара ссылок:
http://www.heaventools.com/unmangle.htm
http://www.digitalmars.com/ctg/ctgMixingLanguages.html


А функция, кстати,

Код: Выделить всё

Public Function VBFunction(ByVal p1 As Long, ByVal p2 As Long) As Long
  VBFunction = p1 + p2
End Function

ЗЫ: вторая ссылка - хороший ответ преподу на его вопрос

[SeRRg]

СПАСИБО. Буду теперь читать