瀏覽代碼

* disable longstring

peter 20 年之前
父節點
當前提交
bc1e63a7db
共有 1 個文件被更改,包括 8 次插入1 次删除
  1. 8 1
      compiler/psystem.pas

+ 8 - 1
compiler/psystem.pas

@@ -146,9 +146,13 @@ implementation
 {$endif x86}
 {$endif x86}
         addtype('Currency',s64currencytype);
         addtype('Currency',s64currencytype);
         addtype('Pointer',voidpointertype);
         addtype('Pointer',voidpointertype);
+{$ifdef x86}
         addtype('FarPointer',voidfarpointertype);
         addtype('FarPointer',voidfarpointertype);
+{$endif x86}
         addtype('ShortString',cshortstringtype);
         addtype('ShortString',cshortstringtype);
+{$ifdef support_longstring}
         addtype('LongString',clongstringtype);
         addtype('LongString',clongstringtype);
+{$endif support_longstring}
 {$ifdef ansistring_bits}
 {$ifdef ansistring_bits}
         addtype('AnsiString',cansistringtype16);
         addtype('AnsiString',cansistringtype16);
         addtype('AnsiString',cansistringtype32);
         addtype('AnsiString',cansistringtype32);
@@ -542,7 +546,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.76  2005-01-19 22:19:41  peter
+  Revision 1.77  2005-02-04 16:30:40  peter
+    * disable longstring
+
+  Revision 1.76  2005/01/19 22:19:41  peter
     * unit mapping rewrite
     * unit mapping rewrite
     * new derefmap added
     * new derefmap added