Changeset 453 in dev for trunk/ab5.0/abdev

Timestamp:

Mar 22, 2008, 9:39:09 PM (17 years ago)

Author:

dai_9181

Message:

"Dim a = 0 As *Char" など、Charポインタ型変数の初期値にリテラル数値を指定すると強制終了してしまうバグを修正。

File:

• trunk/ab5.0/abdev/BasicCompiler32/Compile_Var.cpp (modified) (2 diffs)

trunk/ab5.0/abdev/BasicCompiler32/Compile_Var.cpp

@@ -865 +865 @@
     }
     else if( type.IsLong() || type.IsDWord() || type.IsPointer() ){
-        if(type.GetBasicType()==typeOfPtrChar){
+        if( type.GetBasicType() == typeOfPtrChar && calcType.GetIndex() == LITERAL_STRING )
+        {
             //文字列定数のとき
 
@@ -1053 +1054 @@
     }
     else if( type.IsDWord() || type.IsLong() || type.IsPointer() ){
-        if(type.GetBasicType()==typeOfPtrChar){
+        if( type.GetBasicType() == typeOfPtrChar && calcType.GetIndex() == LITERAL_STRING )
+        {
             //文字列定数のとき