Вверх ↑
Этот топик читают: Гость
Ответов: 758
Рейтинг: 112
#1: 2012-01-19 19:35:43 ЛС | профиль | цитата
Начал переписывать пакет PureBasic с FTCG на RTСG
Взял за основу пакет PureBasic for HiAsm (на стадии разработки).
Замнил CodeGen.dll на Вот такой
Написал нехитрій код purebasic_rtfg_0.rar
Но при компиляции пустой формы выдает
Вот
Если закоментировать код

if (BLOCK_EVENTGADGET.empty()=0)
...
end
то все работает. Что я делаю нетак
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 1841
Рейтинг: 369
#2: 2012-01-19 19:47:55 ЛС | профиль | цитата
я это реализовал так:

if(not blk_event_gadget.empty())
blk.inc().inc()
blk.println('EndSelect').dec().dec()
end

p.s. хотя не думаю что ошибка у Вас из-за этого...
карма: 1
0
Ответов: 758
Рейтинг: 112
#3: 2012-01-19 19:54:58 ЛС | профиль | цитата
[offtop]CriDos, а ты уже что-то сделал в направлении PureBasic RTСG
Если да, то можешь показать [/offtop]
карма: 1

0
Ответов: 3889
Рейтинг: 362
#4: 2012-01-19 20:03:35 ЛС | профиль | цитата
miver писал(а):
PureBasic RTFG

RTCG. ИМХО, Вам стоит подумать над реализацией FreeBasic как наилучшей бесплатной альтернативы коммерческому бейсику.
карма: 1

0
Ответов: 1841
Рейтинг: 369
#5: 2012-01-19 20:08:38 ЛС | профиль | цитата
miver писал(а):
PureBasic RTFG

RTCG
miver писал(а):
а ты уже что-то сделал в направлении PureBasic RTFG

делал, в основном мучаю бесконечные циклы (замыкание на себе), но сейчас пока прекратил из-за сессии...
вот кстати, в основном как я и писал, мучаю кольцевание)

http://dl.dropbox.com/u/6869303/HiAsm/PureBasic.7z
------------ Дoбавленo в 20.08:
Вот так вот у меня на примере реализован элемент Message (из области анти-кольцевания):

func Events(dt)
point = 'on' + dt
if(linked(point))
blk.inc().println('Case #ID' + dt).inc()
event(point)
end
end

func doMessage(data)
id = this.codename + '001'

if (not sys.cil(id))
cil.add(id)
//*********начало основного кода*********

//Выбор иконки
if(not isdef('Icon'))
Icon = '|#MB_ICON' + d('icon')
end

//Кнопка по умолчанию
if(not isdef('DefButton'))
DefButton = '|#MB_DEF' + d('DefButton')
end

//use WinAPI or PBLib
if(not isdef('UseLIB'))
MessageType = 'MessageBox_(0, '
else
MessageType = 'MessageRequester('
end

//Выбор
if(linked('onOK') or linked('onYES') or linked('onNO') or linked('onCANCEL') or linked('onABORT') or linked('onRETRY') or linked('onIGNORE'))
Select = 1
blk.print('Select ')
end

//формировани сообщения
blk.println(MessageType, sys.tostr(d('Message')), ', ', sys.tostr(d('Caption')), ', #MB_' ,this.props('Type'), Icon, DefButton, ')')
event('onMessage')

//События
Events('OK')
Events('YES')
Events('NO')
Events('CANCEL')
Events('ABORT')
Events('RETRY')
Events('IGNORE')

if(Select)
blk.dec().dec().println('EndSelect')
end

//*********конец основного кода*********
cil.remove(null)
else
//*********начало альтернативного кода*********

trace('Кольцевание элемента ' + this.name + ' с ID: ' + this.id)

//*********конец альтернативного кода*********
end
end
карма: 1
0
Ответов: 758
Рейтинг: 112
#6: 2012-01-19 20:47:06 ЛС | профиль | цитата
CriDos писал(а):
http://dl.dropbox.com/u/6869303/HiAsm/PureBasic.7z

У меня не работает. Переустанавливал HiAsm_4.04b185_2011-12-28 и HiAsm_4.04b185.20-01-11_AltBuild_v309.01
Говорит "Access violation at address 7C90100B in module 'ntdll.dll'. Read of address 00000034."
карма: 1

0
Ответов: 1841
Рейтинг: 369
#7: 2012-01-19 20:50:13 ЛС | профиль | цитата
miver, это на каком этапе вылетает?
карма: 1
0
Ответов: 758
Рейтинг: 112
#8: 2012-01-19 20:51:23 ЛС | профиль | цитата
CriDos писал(а):
это на каком этапе вылетает?

Во время генерации кода
карма: 1

0
Ответов: 1841
Рейтинг: 369
#9: 2012-01-19 20:55:47 ЛС | профиль | цитата
miver, среда вылетает?
карма: 1
0
Ответов: 758
Рейтинг: 112
#10: 2012-01-19 21:01:44 ЛС | профиль | цитата
Напрочь. Потом идет циклическая ошибка
"Access violation at address 00593DF0 in module 'HiAsm.exe'. Read of address 00000058."
Приходится в диспетчере задач убивать
карма: 1

0
Ответов: 1841
Рейтинг: 369
#11: 2012-01-19 22:00:45 ЛС | профиль | цитата
miver писал(а):
Приходится в диспетчере задач убивать

жестоко однако.

смог воспроизвести на виртуальной ОСи - Win XP sp3, но без вылета среды, только кодогенератор вылетает...
------------ Дoбавленo в 21.42:
Что-то я никак не могу найти причину ошибки

hiMainForm.hws

func doStart()
end

hiSys.hws

//----------------------- SYSTEM ----------------------------------
func create(entry)
end

func destroy(entry)
end
А ошибка не пропадает...
мб в регистрации пакета символ где-то спрятался...
------------ Дoбавленo в 22.00:
Проверил на другой виртуальной чистой ОС - Win 7 SP1, компиляция проходит успешно.
Ещё непонятно, почему компилируется пакет CNET в первой тестовой ОСи (win xp sp3), хотя он тоже использует RTCG.
------------ Дoбавленo в 22.00:
miver, у Вас какая ОС?
карма: 1
0
Ответов: 758
Рейтинг: 112
#12: 2012-01-20 10:53:49 ЛС | профиль | цитата
CriDos писал(а):
у Вас какая ОС?

Win XP sp3, без прав администратора.
------------ Дoбавленo в 10.53:
1nd1g0 писал(а):
RTCG. ИМХО, Вам стоит подумать над реализацией FreeBasic как наилучшей бесплатной альтернативы коммерческому бейсику.
Лично я не умею подключать новый компилятор
карма: 1

0
Ответов: 1841
Рейтинг: 369
#13: 2012-01-20 12:51:43 ЛС | профиль | цитата
miver писал(а):
Лично я не умею подключать новый компилятор

Могу помочь с подключением
1nd1g0 писал(а):
FreeBasic


карма: 1
0
Ответов: 758
Рейтинг: 112
#14: 2012-01-20 13:38:54 ЛС | профиль | цитата
CriDos писал(а):
Могу помочь с подключением

Попробуй.
Ссылка на полный фарш

карма: 1

0
Ответов: 3889
Рейтинг: 362
#15: 2012-01-20 13:51:34 ЛС | профиль | цитата
miver писал(а):
Ссылка на полный фарш

Только это сборка "всё в одном", навроде такой же от CriDos, и компилятор там, AFAIK, чуток устарел.
карма: 1

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)