Ｓｔｒｉｎｇ型でのエラー[AB4]

[MML]

今、String型をたくさん扱うソフトを作っています。
(MMLコンパイラみたいなものを)

デバッグのときは強制終了はしないのですが、
リリースコンパイルしたものを実行して、何回かそのしょりをさせると

「問題が発生したので、強制終了、、、、、」
というメッセージが表示されます。
このエラーはどうやれば回避できるのですか？
「ZeroString」というのを使えばできるのでしょうか？

誰かString型に詳しい方、よろしくお願いします。

[MML]

> 今、String型をたくさん扱うソフトを作っています。
> (MMLコンパイラみたいなものを)
>
> デバッグのときは強制終了はしないのですが、
> リリースコンパイルしたものを実行して、何回かそのしょりをさせると
>
> 「問題が発生したので、強制終了、、、、、」
> というメッセージが表示されます。
> このエラーはどうやれば回避できるのですか？
> 「ZeroString」というのを使えばできるのでしょうか？
>
> 誰かString型に詳しい方、よろしくお願いします。
追記です。
MMLコンパイル(みたいなもの)自体は異常ありません。
ほかのソフト(自作言語の中間言語に変えるプログラム)も起こります。
これはStringだからでしょうか、、、？

[konisi]

String型は、一度に大量に(100個とか)使おうとすると、なぜかうまく行きにくくなります。
その為、僕はByteptr型の配列を使って対応しています。

コード: 全て選択

Dim A$ As String,B(1000) As BytePtr
Dim i As Long

'略

Get #1,,A$
Cpy(B(i),A$)

'略

Ret(A$,B(i))
Put #2,,A$

'略

Sub Cpy(ByRef Dest As BytePtr,Src As String)
    If Dest<>0 then free(Dest)
    Dest=calloc(Len(Src)+1)
    memcpy(Dest,StrPtr(Src),Len(Src))
End Sub

Sub Ret(ByRef Dest As String,Src As BytePtr)
    If Src=0 then Exit Sub
    Dest=MakeStr(Src)
End Sub

といった具合に。

ただし、コードは今此処で打った物なので正しいかどうか解りません。十分なデバッグをお願いします。

[MML]

> String型は、一度に大量に(100個とか)使おうとすると、なぜかうまく行きにくくなります。
> その為、僕はByteptr型の配列を使って対応しています。
>
>

コード: 全て選択

Dim A$ As String,B(1000) As BytePtr
> Dim i As Long
> 
> '略
> 
> Get #1,,A$
> Cpy(B(i),A$)
> 
> '略
> 
> Ret(A$,B(i))
> Put #2,,A$
> 
> '略
> 
> Sub Cpy(ByRef Dest As BytePtr,Src As String)
>     If Dest<>0 then free(Dest)
>     Dest=calloc(Len(Src)+1)
>     memcpy(Dest,StrPtr(Src),Len(Src))
> End Sub
> 
> Sub Ret(ByRef Dest As String,Src As BytePtr)
>     If Src=0 then Exit Sub
>     Dest=MakeStr(Src)
> End Sub

> といった具合に。
>
> ただし、コードは今此処で打った物なので正しいかどうか解りません。十分なデバッグをお願いします。
ありがとうございます。
よくわかりました。