paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed so handlerror() -> inoutres:= to have $I- support

Browse Source
This commit is contained in:
peter 1999-03-02 18:23:37 +00:00
parent 277cef9696
commit 554f02687b
1 changed files with 27 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rtl/inc/text.inc
View File

@ -56,7 +56,10 @@ Begin
fmOutput : Flags:=$1101; fmOutput : Flags:=$1101;
fmAppend : Flags:=$1011; fmAppend : Flags:=$1011;
else else
HandleError(102); begin
InOutRes:=102;
exit;
end;
End; End;
Do_Open(t,PChar(@t.Name),Flags); Do_Open(t,PChar(@t.Name),Flags);
t.CloseFunc:=@FileCloseFunc; t.CloseFunc:=@FileCloseFunc;
@ -991,7 +994,7 @@ Begin
ReadNumeric(f,hs,Base); ReadNumeric(f,hs,Base);
Val(hs,l,code); Val(hs,l,code);
If code<>0 Then If code<>0 Then
HandleError(106); InOutRes:=106;
End; End;
@ -1004,8 +1007,9 @@ Begin
exit; exit;
Read_Longint(f,ll); Read_Longint(f,ll);
If (ll<-32768) or (ll>32767) Then If (ll<-32768) or (ll>32767) Then
HandleError(106); InOutRes:=106
l:=ll; else
l:=ll;
End; End;
@ -1018,8 +1022,9 @@ Begin
exit; exit;
Read_Longint(f,ll); Read_Longint(f,ll);
If (ll<0) or (ll>$ffff) Then If (ll<0) or (ll>$ffff) Then
HandleError(106); InOutRes:=106
l:=ll; else
l:=ll;
End; End;
@ -1032,8 +1037,9 @@ Begin
exit; exit;
Read_Longint(f,ll); Read_Longint(f,ll);
If (ll<0) or (ll>255) Then If (ll<0) or (ll>255) Then
HandleError(106); InOutRes:=106
l:=ll; else
l:=ll;
End; End;
@ -1046,8 +1052,9 @@ Begin
exit; exit;
Read_Longint(f,ll); Read_Longint(f,ll);
If (ll<-128) or (ll>127) Then If (ll<-128) or (ll>127) Then
HandleError(106); InOutRes:=106
l:=ll; else
l:=ll;
End; End;
@ -1073,7 +1080,7 @@ Begin
ReadNumeric(f,hs,Base); ReadNumeric(f,hs,Base);
val(hs,l,code); val(hs,l,code);
If code<>0 Then If code<>0 Then
HandleError(106); InOutRes:=106;
End; End;
@ -1125,7 +1132,7 @@ var
Begin Begin
val(ReadRealStr(f),d,code); val(ReadRealStr(f),d,code);
If code<>0 Then If code<>0 Then
HandleError(106); InOutRes:=106;
End; End;
@ -1136,7 +1143,7 @@ var
Begin Begin
val(ReadRealStr(f),d,code); val(ReadRealStr(f),d,code);
If code<>0 Then If code<>0 Then
HandleError(106); InOutRes:=106;
End; End;
{$endif SUPPORT_SINGLE} {$endif SUPPORT_SINGLE}
@ -1148,7 +1155,7 @@ var
Begin Begin
val(ReadRealStr(f),d,code); val(ReadRealStr(f),d,code);
If code<>0 Then If code<>0 Then
HandleError(106); InOutRes:=106;
End; End;
{$endif SUPPORT_EXTENDED} {$endif SUPPORT_EXTENDED}
@ -1160,7 +1167,7 @@ var
Begin Begin
val(ReadRealStr(f),d,code); val(ReadRealStr(f),d,code);
If code<>0 Then If code<>0 Then
HandleError(106); InOutRes:=106;
End; End;
{$endif SUPPORT_COMP} {$endif SUPPORT_COMP}
@ -1172,7 +1179,7 @@ var
Begin Begin
val(ReadRealStr(f),d,code); val(ReadRealStr(f),d,code);
If code<>0 Then If code<>0 Then
HandleError(106); InOutRes:=106;
End; End;
{$endif SUPPORT_FIXED} {$endif SUPPORT_FIXED}
@ -1201,7 +1208,10 @@ end;
{ {
$Log$ $Log$
Revision 1.40 1999-03-01 15:41:04 peter Revision 1.41 1999-03-02 18:23:37 peter
* changed so handlerror() -> inoutres:= to have $I- support
Revision 1.40 1999/03/01 15:41:04 peter
* use external names * use external names
* removed all direct assembler modes * removed all direct assembler modes