#295 Assertion failure when unsupported type used in pack
make "Any "P4
make "Integer "U2
make "Long "U4
make "Void "V0
make "Pointer "P4
make "Word "U2
make "String "S1
make "WideString "S2
make "Byte "U1
; Type MSGBOXPARAMS
; cbSize As Long
; hwndOwner As Long
; hInstance As Long
; lpszText As String
; lpszCaption As String
; dwStyle As Long
; lpszIcon As String
; dwContextHelpId As Long
; lpfnMsgBoxCallback As Long
; dwLanguageId As Long
; End Type
make "MSGBOXPARAMS_PACK
Long ; cbSize
Long ; hwndOwner
Long ; hInstance
String ; lpszText
String ; lpszCaption
Long ; dwStyle
String ; lpszIcon
Long ; dwContextHelpId
Long ; lpfnMsgBoxCallback
Long ; dwLanguageId
make "POINTER_TO_MSGBOXPARAMS_PACK "P4
;
; Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long
make "user32_handle libload "user32.dll
to MessageBoxIndirect :lpMsgBoxParams end
external "MessageBoxIndirect [ Long MessageBoxIndirectA POINTER_TO_MSGBOXPARAMS_PACK] :user32_handle
make "MSGBOXPARAMS_PACK_INSTANCE pack :MSGBOXPARAMS_PACK [][/code]
lhogho msgbox.lgo
{ERR#40@115} - Not a name of a supported type
..."String "S1
^
Assertion failed: (ID(a)<MAX_ID), file atoms.c, line 325
This application has requested the Runtime to terminate it in an unusual way.
Please contact the application's support team for more information.
Here is a shorter code generating the same bug:
make "a pack [s1] []