Re: Собрать дебаговую версию vcl50.bpl
От: Владик Россия  
Дата: 02.02.04 14:05
Оценка: 26 (1)
Этот дурной эксепшин возникал из-за того, что моя дебаговая vcl50d.bpl и стандартная vcl50.bpl (она используется другими пакаджами) не могли между собой чего-то поделить. После замещения стандартной на свою все заработало. Вот make-файл, на случай если кому-то тоже понадобится поотлаживаться с пакаджами:

!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif

OUT=obj

PROJECT = $(OUT)\vcl50.bpl
OBJFILES = \
$(OUT)\ffmt.obj \
$(OUT)\assign.obj \
$(OUT)\BlockRea.obj \
$(OUT)\BlockWri.obj \
$(OUT)\Close.obj \
$(OUT)\EofFile.obj  \
$(OUT)\EofText.obj \
$(OUT)\Eoln.OBJ \
$(OUT)\Erase.OBJ \
$(OUT)\FDIV.OBJ \
$(OUT)\FilePos.OBJ \
$(OUT)\FileSize.OBJ \
$(OUT)\ReadRec.OBJ \
$(OUT)\ReadChar.OBJ \
$(OUT)\ReadLong.OBJ \
$(OUT)\ReadStri.OBJ \
$(OUT)\ReadExt.OBJ \
$(OUT)\ReadLn.OBJ \
$(OUT)\Rename.OBJ \
$(OUT)\OpenText.OBJ \
$(OUT)\OpenFile.OBJ \
$(OUT)\Seek.OBJ \
$(OUT)\SeekEof.OBJ \
$(OUT)\SeekEoln.OBJ \
$(OUT)\SetTextB.OBJ \
$(OUT)\Truncate.OBJ \
$(OUT)\WriteRec.OBJ \
$(OUT)\WriteStr.OBJ \
$(OUT)\StrExt.OBJ \
$(OUT)\ValExt.OBJ \
$(OUT)\Pow10.OBJ \
$(OUT)\Real2Ext.OBJ \
$(OUT)\Ext2Real.OBJ \
$(OUT)\_LL.OBJ \
$(OUT)\ReadInt64.OBJ \
\
    $(OUT)\comctrls.obj $(OUT)\commdlg.obj $(OUT)\controls.obj $(OUT)\extctrls.obj \
    $(OUT)\graphics.obj $(OUT)\grids.obj $(OUT)\imglist.obj $(OUT)\menus.obj \
    $(OUT)\messages.obj $(OUT)\stdctrls.obj \
    $(OUT)\StdActns.obj $(OUT)\ComStrs.obj $(OUT)\Consts.obj $(OUT)\Printers.obj $(OUT)\ActnList.obj \
    $(OUT)\Toolwin.obj $(OUT)\Forms.obj $(OUT)\Dialogs.obj $(OUT)\Buttons.obj $(OUT)\ExtDlgs.obj \
    $(OUT)\Clipbrd.obj $(OUT)\AppEvnts.obj \
    $(OUT)\AxCtrls.obj $(OUT)\OleCtrls.obj $(OUT)\OleServer.obj $(OUT)\OleCtnrs.obj \
    $(OUT)\Svcmgr.obj $(OUT)\OleConst.obj $(OUT)\system.obj $(OUT)\vclinit.obj $(OUT)\syncobjs.obj \
    $(OUT)\registry.obj $(OUT)\scktcomp.obj $(OUT)\mtx.obj
        
RESFILES =
RESDEPEN = $(RESFILES)
LIBFILES =
IDLFILES =
IDLGENFILES =
LIBRARIES =
#PACKAGES = rtl.bpi
#SPARELIBS = rtl.lib
DEFFILE =
OTHERFILES =
# --------------------------------------------------------------------------
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES = _DEBUG
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
INCLUDEPATH = $(BCB)\include;$(BCB)\include\vcl
LIBPATH = $(OUT);$(BCB)\lib\obj;$(BCB)\lib
WARNINGS= -w-par
PATHCPP = $(BCB)\Source\VCL;
PATHASM = $(BCB)\Source\VCL;
PATHPAS = $(BCB)\Source\VCL;
PATHRC = .;
PATHOBJ = .;$(LIBPATH)
# --------------------------------------------------------------------------
CFLAG1 = -Od -H=$(OUT)\vcl50d.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c \
    -tWM
IDLCFLAGS =
PFLAGS = -N2$(OUT) -N0$(OUT) -$D+ -$L+ -$C+ -$R+ -$W+ -$O- -$A8 -V -JPHNE -M
RFLAGS =
AFLAGS = /mx /w2 /zd
LFLAGS = -I$(OUT) -D"" -aa -Tpp -x -Gn -Gl -Gi -v
# --------------------------------------------------------------------------
ALLOBJ = c0pkg32.obj $(PACKAGES) Memmgr.Lib sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# --------------------------------------------------------------------------
# MAKE SECTION
# --------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE.  It is for
# the benefit of building from the command-line using the MAKE utility.
# --------------------------------------------------------------------------

.autodepend
# --------------------------------------------------------------------------
!if "$(USERDEFINES)" != ""
AUSERDEFINES = -d$(USERDEFINES:;= -d)
!else
AUSERDEFINES =
!endif

!if !$d(BCC32)
BCC32 = bcc32
!endif

!if !$d(CPP32)
CPP32 = cpp32
!endif

!if !$d(DCC32)
DCC32 = dcc32
!endif

!if !$d(TASM32)
TASM32 = tasm32
!endif

!if !$d(LINKER)
LINKER = ilink32
!endif

!if !$d(BRCC32)
BRCC32 = brcc32
!endif


# --------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C   = $(PATHCPP)
!endif

!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif

!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif

!if $d(PATHRC)
.PATH.RC  = $(PATHRC)
!endif

!if $d(PATHOBJ)
.PATH.OBJ  = $(PATHOBJ)
!endif
# --------------------------------------------------------------------------
$(PROJECT): MAKE_DIRS $(OTHERFILES) $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
    $(BCB)\BIN\$(LINKER) @&&!
    $(LFLAGS) -L$(LIBPATH) +
    $(ALLOBJ), +
    $(PROJECT),, +
    $(ALLLIB), +
    $(DEFFILE), +
    $(ALLRES)
!

MAKE_DIRS:
    -mkdir $(OUT)

$(OUT)\system.obj:
    $(BCB)\BIN\$(DCC32) $(PFLAGS) -y -z -R$(BCB)\Lib\Obj -O$(OUT) -U$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -O$(INCLUDEPATH) --BCB $(BCB)\Source\VCL\system.pas
# --------------------------------------------------------------------------
.pas.hpp:
    $(BCB)\BIN\$(DCC32) $(PFLAGS) -U$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -O$(INCLUDEPATH) --BCB {$< }

.pas.obj:
    $(BCB)\BIN\$(DCC32) $(PFLAGS) -R$(BCB)\Lib\Obj -O$(OUT) -U$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -O$(INCLUDEPATH) --BCB {$< }

.cpp.obj:
    $(BCB)\BIN\$(BCC32) $(CFLAG1) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n$(@D) {$< }

.c.obj:
    $(BCB)\BIN\$(BCC32) $(CFLAG1) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n$(@D) {$< }

.c.i:
    $(BCB)\BIN\$(CPP32) $(CFLAG1) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n. {$< }

.cpp.i:
    $(BCB)\BIN\$(CPP32) $(CFLAG1) $(WARNINGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -n. {$< }

.asm.obj:
    $(BCB)\BIN\$(TASM32) $(AFLAGS) -i$(BCB)\Source\VCL -i$(INCLUDEPATH:;= -i) $(AUSERDEFINES) -d$(SYSDEFINES:;= -d) $<, $@

.rc.res:
    $(BCB)\BIN\$(BRCC32) $(RFLAGS) -I$(INCLUDEPATH) -D$(USERDEFINES);$(SYSDEFINES) -fo$@ $<



# --------------------------------------------------------------------------
Как все запущенно...
Собрать дебаговую версию vcl50.bpl
От: Владик Россия  
Дата: 02.02.04 08:50
Оценка:
Привет!

Кому-нибудь удавался сабж? Исходники VCL вроде как есть, но ничего для их сборки я не нашел. Или, может, можно откуда-то (с борланда) скачать дебаговую версию?
Как все запущенно...
Re: Собрать дебаговую версию vcl50.bpl
От: &reY Украина http://www.livejournal.com/~1000turov/
Дата: 02.02.04 09:35
Оценка:
Здравствуйте, Владик, Вы писали:

В>Привет!

В>Кому-нибудь удавался сабж? Исходники VCL вроде как есть, но ничего для их сборки я не нашел. Или, может, можно откуда-то (с борланда) скачать дебаговую версию?

в смысле дебаговую версию ?
разве в 5-ке нельзя в опциях компилятора сказать "Use Debug DCUs" ??
или ты хочешь что-то править в стандартной библиотеке ?
Re: Собрать дебаговую версию vcl50.bpl
От: Sinclair Россия https://github.com/evilguest/
Дата: 02.02.04 10:17
Оценка:
Здравствуйте, Владик, Вы писали:
В>Кому-нибудь удавался сабж? Исходники VCL вроде как есть, но ничего для их сборки я не нашел. Или, может, можно откуда-то (с борланда) скачать дебаговую версию?
Она входит в поставку.
... << RSDN@Home 1.1.3 beta 2 >>
Уйдемте отсюда, Румата! У вас слишком богатые погреба.
Re[2]: Собрать дебаговую версию vcl50.bpl
От: Владик Россия  
Дата: 02.02.04 10:40
Оценка:
Здравствуйте, &reY, Вы писали:

Y>в смысле дебаговую версию ?

В смысле с возможностью лпзить по исходникам.

Y>разве в 5-ке нельзя в опциях компилятора сказать "Use Debug DCUs" ??

Дебаговые либы есть только статические.

Y>или ты хочешь что-то править в стандартной библиотеке ?

Нет. Я хочу разобраться из-за чего при сборке с пакаджами возникает исключение а недрах VCL50.bpl.
Как все запущенно...
Re[2]: Собрать дебаговую версию vcl50.bpl
От: Владик Россия  
Дата: 02.02.04 10:42
Оценка:
Здравствуйте, Sinclair, Вы писали:

S>Здравствуйте, Владик, Вы писали:
В>>Кому-нибудь удавался сабж? Исходники VCL вроде как есть, но ничего для их сборки я не нашел. Или, может, можно откуда-то (с борланда) скачать дебаговую версию?
S>Она входит в поставку.

Неправда. Дебаговой BPL в поставке нет. Мало того, makefile для сборки всего этого [пип] борланд тоже не удосужился положить. Пришлось долго и упорно самому сочинять. Сейчас пойду посмотрю что получилось
Как все запущенно...
Re[3]: Собрать дебаговую версию vcl50.bpl
От: Владик Россия  
Дата: 02.02.04 10:56
Оценка:
В>Пришлось долго и упорно самому сочинять. Сейчас пойду посмотрю что получилось

Гы. Приколитесь. При попытке создания TClientDataSet получаю:

Application is not licensed to use this feature


У кого какие идеи?
Как все запущенно...
Re[3]: Собрать дебаговую версию vcl50.bpl
От: Arioch  
Дата: 02.02.04 12:45
Оценка:
The stars so gaily glistened... (Mon, 02 Feb 2004 10:40:02 GMT @486)
...while the fading voice of Владик whispered through the darkness:

В> В смысле с возможностью лпзить по исходникам.
Отлаживай в статике.
А для развернутого Exception Log на клиентах — в комплекте лежат .MAP-файлы.
--
WinAMP://none: WinAMP is suffocated
http://Arioch.nm.ru/FL/Fidolook_SL.png Mail: the_Arioch<at>nm<dot>ru
Posted via RSDN NNTP Server 1.8 beta
Re[4]: Собрать дебаговую версию vcl50.bpl
От: Владик Россия  
Дата: 02.02.04 13:06
Оценка:
Здравствуйте, Arioch, Вы писали:

A>Отлаживай в статике.

В статике все и так работает. Отлаживать нужно именно для случая bpl.

A>А для развернутого Exception Log на клиентах — в комплекте лежат .MAP-файлы.

В каком комплекте?
Как все запущенно...
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.