+ cstring_to_pchar type conversion test

tests/test/cg/tcnvstr2.pp

@@ -0,0 +1,60 @@
+{****************************************************************}
+{  CODE GENERATOR TEST PROGRAM                                   }
+{****************************************************************}
+{ NODE TESTED : secondtypeconvert() -> second_cstring_to_pchar   }
+{****************************************************************}
+{ PRE-REQUISITES: secondload()                                   }
+{                 secondassign()                                 }
+{                 secondtypeconv()                               }
+{****************************************************************}
+{ DEFINES:                                                       }
+{            FPC     = Target is FreePascal compiler             }
+{****************************************************************}
+{ REMARKS:                                                       }
+{                                                                }
+{                                                                }
+{                                                                }
+{****************************************************************}
+{$H-}
+const
+ StrConst = 'HELLO WORLD';
+ AnsiConst = 'COCORICCO!';
+ AnsiConst2 = '';
+
+procedure testcstring2pcharone;
+ var
+  p1 : pchar;
+ begin
+  WriteLn('(left) : LOC_MEM; (right) : LOC_MEM');
+  p1 := pchar(strconst);
+  WriteLn('Value should be ''HELLO WORLD''...',p1);
+ end;
+
+{ source:                                                       }
+{   LOC_REFERENCE, LOC_MEM                                      }
+{ destination:                                                  }
+var
+ p: pchar;
+Begin
+  WriteLn('------------------- STRING/PCHAR ------------------------');
+  WriteLn('(left) : LOC_MEM; (right) : LOC_MEM');
+ { LOC_MEM -> LOC_MEM test }
+ { SHORTSTRING -> PCHAR           }
+ p := pchar(strconst);
+ WriteLn('Value should be ''HELLO WORLD''...',p);
+ testcstring2pcharone;
+ WriteLn('------------------- ANSI/PCHAR ------------------------');
+ WriteLn('(left) : LOC_MEM; (right) : LOC_MEM');
+ p:=pchar(ansistring(ansiconst));
+ WriteLn('Value should be ''COCORICCO!''...',p);
+ p:=pchar(ansistring(ansiconst2));
+ WriteLn('Value should be ''''...',p);
+End.
+
+{
+  $Log$
+  Revision 1.1  2001-06-19 02:07:42  carl
+  + cstring_to_pchar type conversion test
+
+
+}