Procházet zdrojové kódy

* Change longint to valsint.

git-svn-id: branches/fpc_2_3@6578 -
daniel před 18 roky
rodič
revize
97b0b5810e
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      rtl/inc/text.inc

+ 1 - 1
rtl/inc/text.inc

@@ -1193,7 +1193,7 @@ end;
 procedure fpc_read_text_enum(str2ordindex:pointer;var t:text;out ordinal:longint); iocheck; [Public,Alias:'FPC_READ_TEXT_ENUM'];compilerproc;
 
 var s:string;
-    code:longint;
+    code:valsint;
 
 begin
   if not checkread(t) then